Discussion :

[Moa83]

Bonjour,

je suis en train de tenter de comparer deux fichiers Excel sur l'égalité de deux colonnes. Quand on trouve la même valeur de ces deux colonnes dans une ligne de la feuille A et de la feuille B, on copie ces deux lignes à la suite dans une feuille doublon, sinon, on ne copie que la ligne de la feuille A dans une feuille importable. Ensuite, on travaillera à la main sur la feuille doublon et on complètera la feuille "importable", mais cela est une autre histoire. Pour le moment, j'ai écrit le code suivant mais je reçois une erreur "il manque un for avant le next". Pourtant, il me semble avoir précisé la variable pour chaque boucle. Où est l'erreur? Merci.

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
Sub Remplissage_doublons_simples()
'définition des variables
Dim li As String
li = 1
Dim ld As String
Dim ln As String
Dim la As String
Dim cola As String
Dim cold As String
 
'nombre de lignes de "nouveau"
ln = 1
While Worksheets("Nouveau").Cells(ln, 1) <> ""
ln = ln + 1
Wend
' nombre de ligne de "actuel"
la = 1
While Worksheets("Actuel").Cells(la, 1) <> ""
la = la + 1
Wend
'Recherche dans les lignes de "nouveau"
For lign_var = 2 To ln
    For lign_varr = 2 To la
        If Worksheets("Nouveau").Cells(lign_var, 5) = Worksheets("Actuel").Cells(lign_varr, 7) And Worksheets("Nouveau").Cells(lign_var, 2) = Worksheets("Actuel").Cells(lign_varr, 2) Then
            For coli = 1 To 10
            Worksheets("Importable").Cells(li, coli) = Worksheets("Nouveau").Cells(lign_var, coli)
            Next coli
        li = li + 1
        Else
            For coln = 1 To 10
            Worksheets("Doublons").Cells(ld, coln) = Worksheets("Actuel").Cells(lign_var, coln)
            Worksheets("Doublons").Cells(ld + 1, coln) = Worksheets("Actuel").Cells(lign_var, coln)
            Next coln
        ld = ld + 2
    Next lign_varr
Next lign_var
End Sub

[halaster08]

Bonjour,

C'est un end if qu'il te manque.

[eriiic]

Bonjour,

et le End If ???
Par contre avant de te lancer tu ferais bien de lire quelques tutos sur le B.A.BA de vba, c'est le minimum.
À commencer par les déclarations et type des variables parce que là...
eric

[Marc-L]

Bonjour,

pour ce genre de problématique une seule & unique boucle est nécessaire lors du contrôle !
Soit via le B-A-BA d'Excel, à savoir la fonction EQUIV (Application.Match en VBA, Windows / MAC)
soit via un dictionnaire (consulter l'aide VBA de l'objet Dictionary, plus rapide mais Windows only) …

Sans compter les nombreux exemples dans les discussions de ce forum quelle que soit la méthode retenue !

___________________________________________________________________________________________________________

Je suis Paris, Egypte, Stockholm, London, Istanbul, Berlin, Nice, Bruxelles, Charlie, …

[Moa83]

Merci de ces réponses, je vais mettre en application. Merci notamment à Marc-L pour sa proposition de simplifier cela avec une fonction EQUIV, je vais enquêter là-dessus. De fait, la programmation n'est pas du tout mon métier et je découvre VBA par moi-même au fur et à mesure. Et comme je travaille sur Mac, le bouquin que j'ai acheté pour démarrer n'est pas le mieux adapté. Donc, j'ai bien conscience que mon morceau de code est loin d'être optimal.

[Marc-L]

Il est alors vraiment nécessaire de renseigner le préfixe de la discussion (MAC + version) lors de sa création !