Discussion :

[sena1911]

Bonjour,

Je travaille actuellement sur un fichier excel qui me pose certaines difficultés de saisie suite aux différents reports car plusieurs feuilles. Je cherche à ce que excel recopie les cellules de certaines lignes vers une autre feuille si dans une colonne la réponse est OUI. Est il possible de ne pas faire de doublon?

La forme du 1er tableau à recopier
Colonne A Nom
Colonne B Prénom
Colonne F Mesure (oui ou non)
Colonne W heures

[halaster08]

Bonjour,

Je pense que l'utilisation des filtres avancés devrait répondre a ton problème.
Le tuto: http://philippetulliez.developpez.co...dvancedfilter/

[sena1911]

J'avais pensé à cette possibilité mais elle n'est pas adapté à mon tableau car la saisie n'est pas faite par moi, le tableau est en mode partagé. C'est pour celà que j'ai besoin que l'incrémentation des nouvelles lignes dans l'autre feuille se fasse automatiquement chose qui n'est pas possible avec le filtre avancé

[halaster08]

Dans ce cas il faut regarder du coté des macros évènementielle tuto:http://silkyroad.developpez.com/VBA/EvenementsClasseur/

Tu pourrais par exemple, avant la fermeture du fichier, faire le filtre avancé, de cette manière ceux qui doivent remplir le 1er tableau le font et quand ils ont fini (fermeture du classeur) le second se remplit tout seul

[sena1911]

Bonjour,

donc je dois insérer la ligne telle que:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    'Vérifie le contenu de la cellule A1 dans la Feuil1
    If Sheets("Feuil1").Range("A1") = "" Then
        MsgBox "Complétez la cellule A1"
        'Empêche la fermeture si la cellule A1 est vide
        Cancel = True
    Else
        'Enregistre les modifications avant la fermeture du classeur
        ThisWorkbook.Save
    End If
End Sub

mais pour l'incrémentation des cellules automatiqement

[halaster08]

Il existe une balise code (#) pour rendre le code beaucoup plus lisible.

De plus le code en question permet d'empecher la fermeture d'un fichier tant que la cellule A1 n'est pas remplie, ce qui il me semble n'a rien a voir avec ta demande initiale.

[sena1911]

Une balise code?

[halaster08]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Private Sub Workbook_BeforeClose(Cancel As Boolean)
 'Vérifie le contenu de la cellule A1 dans la Feuil1
 If Sheets("Feuil1").Range("A1") = "" Then
 MsgBox "Complétez la cellule A1"
 'Empêche la fermeture si la cellule A1 est vide
 Cancel = True
 Else
 'Enregistre les modifications avant la fermeture du classeur
 ThisWorkbook.Save
 End If
 End Sub

au lieu de ça

Private Sub Workbook_BeforeClose(Cancel As Boolean)
'Vérifie le contenu de la cellule A1 dans la Feuil1
If Sheets("Feuil1").Range("A1") = "" Then
MsgBox "Complétez la cellule A1"
'Empêche la fermeture si la cellule A1 est vide
Cancel = True
Else
'Enregistre les modifications avant la fermeture du classeur
ThisWorkbook.Save
End If
End Sub