Discussion :

[Joeytriviani]

Bonjour,
J'aimerai insérer des lignes dans des tableaux en fonction de certains critères. J'ai commencé à écrire un code avec les explications à côté et des lignes manquantes ou des [...] lorsque je ne sais pas écrire le code.

Merci d'avance à ceux qui pourront m'aider.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Sub Test()
FinTab1 = Feuil1.Range("C1000").End(xlUp).Row         ' nomme la fin de mon tableau en Feuil 1
FinTab2 = Feuil2.Range("C1000").End(xlUp).Row         ' nomme la fin de mon tableau en Feuil 2
FinTab3 = Feuil3.Range("C1000").End(xlUp).Row         ' nomme la fin de mon tableau en Feuil 3
For i = 2 To FinTab1
If Feuil1.Range("L" & i) = "" Then                    'si cellule Li Feuil1 est vide, alors
For j = 2 To FinTab2
If Feuil1.Range("C" & i) = Feuil2.Range("C" & j) Then 'si cellule Ci Feuil1 = Cj Feuil2, alors
Feuil1.Range("A:AD" & i).Copy                         'copie la ligne i de A à AD
                                                      'et colle la à la place de la ligne en Feuil2
Next
End If
Feuil1.Range("A:AD" & i).Copy [...]                   'Autrement (si cellule C2 Feuil1 ne trouve pas d'équivalent dans la Feuil2), copier la ligne et la mettre à la fin du tableau Feuil2
End If
Next
For i = 2 To FinTab1
If Feuil1.Range("L" & i) = "*" Then                   'si cellule L2 Feuil1 est pleine, alors
For j = 2 To FinTab3
If Feuil1.Range("C" & i) = Feuil3.Range("C" & j) Then 'si cellule C2 Feuil1 = C2 Feuil3, alors
Feuil1.Range("A:AD" & i).Copy                         'copie la ligne i de A à AD
                                                      'et colle la à la place de la ligne en Feuil3
Next
End If
Feuil1.Range("A:AD" & i).Copy [...]                   'Autrement (si cellule C2 Feuil1 ne trouve pas d'équivalent dans la Feuil3), copier la ligne et la mettre à la fin du tableau Feuil3
End If
Next
End Sub

[Menhir]

Un petit conseil sur la forme :
Prends la peine de faire des indentations pour tes boucles et tes tests, ça rendra ton code plus lisible.
De plus, ajoute à tes Next la désignation de la variable compteur. Même si ce n'est pas obligatoire, ça aide à comprendre le code.

Tout cela t'aurait permis, entre autre, de te rendre compte que ta boucle For j ... Next et le test qu'il contient sont "croisé" : lIf est dans la boucle For Next mais le End If est en dehors.

[Joeytriviani]

Bonjour Forum,

Voici après trois jours de recherche une macro qui fonctionne pour ce que je voulais faire.
Elle peut sans aucun doute être optimisée. mais elle fonctionne, c'est déjà ça.
Je prendrai toutefois tous les conseils que vous me fournirez.

J'espère que cette macro pourra servir à d'autre.

Cordialement,

Joey

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
Sub Test()
Dim FinTab1%, FinTab2%, FinTab3%, i%, j%
Dim VF As Boolean
 
FinTab1 = Feuil1.Range("C1000").End(xlUp).Row         ' nomme la fin de mon tableau en Feuil 1
FinTab2 = Feuil2.Range("C1000").End(xlUp).Row         ' nomme la fin de mon tableau en Feuil 2
FinTab3 = Feuil3.Range("C1000").End(xlUp).Row         ' nomme la fin de mon tableau en Feuil 3
 
For i = 2 To FinTab1
VF = False
    If Feuil1.Range("L" & i) = "" Then                  'si cellule Li Feuil1 est vide, alors
       j = 1
        Do While j <= FinTab2                            'Tant que j<Fintab2, fais j+1
            j = j + 1
                If VF = True Then
                    Exit Do
                End If
 
                If Feuil1.Range("C" & i) = Feuil2.Range("C" & j) Then 'si cellule Ci Feuil1 = Cj Feuil2, alors
                    Feuil1.Range("A" & i, "AB" & i).Copy Feuil2.Range("A" & j) 'copie colle
                    VF = True                                                   'VF égale true
                End If
        Loop
        If VF = False Then
        Feuil1.Range("A" & i, "AB" & i).Copy Feuil2.Range("A" & FinTab2 + 1)
                FinTab2 = FinTab2 + 1
        End If
     Else
     j = 1
        Do While j <= FinTab3                            'Tant que j<Fintab3, fais j+1
            j = j + 1
                If VF = True Then
                    Exit Do
                End If
 
                If Feuil1.Range("C" & i) = Feuil3.Range("C" & j) Then 'si cellule Ci Feuil1 = Cj Feuil3, alors
                    Feuil1.Range("A" & i, "AB" & i).Copy Feuil3.Range("A" & j) 'copie colle
                    VF = True                                                   'VF égale true
                End If
        Loop
        If VF = False Then
        Feuil1.Range("A" & i, "AB" & i).Copy Feuil3.Range("A" & FinTab3 + 1)
                FinTab3 = FinTab3 + 1
        End If
     End If
Next
 
For i = 2 To FinTab3
FinTab3 = Feuil3.Range("C1000").End(xlUp).Row
VF = False
j = 1
    Do While j <= FinTab2                            'Tant que j<Fintab3, fais j+1
    j = j + 1
        If VF = True Then
            Exit Do
        End If
 
        If Feuil3.Range("C" & i) = Feuil2.Range("C" & j) Then 'si cellule Ci Feuil1 = Cj Feuil2, alors
            Feuil2.Rows(j).EntireRow.Delete Shift:=xlUp 'supprimer la ligne correspondante
            VF = True                                                   'VF égale true
        End If
    Loop
Next
 
End Sub