Problème VBA-excel _Comparer deux listes Résolu/Fermé

Question

Bonjour,

Quelqu'un pourrait-il me filer un coup de main?

Je souhaite comparer deux listes de données (une colonne de code avec une autre colonne de code) dans excel (en automatisant avec VBA)?

Si les codes sont identiques:correct, si ils sont différents:erreur.
quand traiter ce problème dans VBA?

xjl · Answer

Salut,

ce code t'écrira dans une troisième colonne s'il y a erreur ou non, en espérant que ce soit ça que tu souhaites:

Sub Compare()
    For i = 1 To Range("A1").End(xlDown).Row
        If Cells(i, 1).Value = Cells(i, 2).Value Then
        Cells(i, 3).Value = "Correct"
        Else: Cells(i, 3).Value = "Erreur"
        End If
    Next i
End Sub

A adapter ! ;-)

lermite222 · Answer

bonjour,
par exemple comparer colonne A à B

sub Compare()
dim i as integer, V as integer
'déterminer la dernière ligne initialisée
V= Range("A65536").End(xlUp).Row
for i=1 to V
     if range("A" & i).value <>range("B" & i).value then
          msgbox "pas égale"
     end if
next i
End SUB
A+
louis

Y0 · Answer

Merci pour vos réponses si rapides les gas, on sent les pros...
Comme je t'attonne en VBA, je galère, bref
j'ai essayé vos réponses et en fait le problème est plus compliqué:

donc je compare deux colonnes(A et B).OK
Une valeur qui se trouve dans A doit se trouver dans la colonne B (elle peut se trouver  n'importe ou dans  la colonne B, si ce n'est pas le cas elle est fausse; et ce raisonnement pour toutes les valeurs de la colonne A (et le pire c'est que vice versa aussi mais laissons cela))

Je sais pas si je suis clair. Si je suis compris que je comprenne vos réponses .
Merci Quand même

xjl · Answer

Ok, on reprend:

Sub Compare() 
n = 0
For i = 1 To Range("A1").End(xlDown).Row 
For j = 1 To Range("B1").End(xlDown).Row
If Cells(i, 1).Value = Cells(j, 2).Value Then 
n = n + 1
Exit For
End If 
Next j
Next i
If n = Range("A1").End(xlDown).Row Then MsgBox "Toutes les formules de la colonne A se trouvent en B"
Else MsgBox "Il y a " & Range("A1").End(xlDown).Row-n & " formules de la colonne A qui ne se trouvent pas en B"
End If
End Sub

Ca va déjà se rapprocher de ce que tu cherches je pense...

xjl · Answer

Salut, ce code ta donne le nombre de formules qu'il y a en A et qui ne sont pas en B et inversement. Problème, il ne gère pas les doublons, donc si tes formules sont une seule fois dans chaque colonne, ça marche bien, sinon il faudra modifier un peu... Sub Compare() n = 0 m = 0 For i = 75 To Range("A75").End(xlDown).Row For j = 75 To Range("B75").End(xlDown).Row If Cells(i, 1).Value = Cells(j, 2).Value Then n = n + 1 Exit For End If Next j Next i For i = 75 To Range("B75").End(xlDown).Row For j = 75 To Range("A75").End(xlDown).Row If Cells(i, 1).Value = Cells(j, 2).Value Then m = m + 1 Exit For End If Next j Next i If n = Range(Range("A75"), Range("A75").End(xlDown).Address).Rows.Count And m = Range(Range("B75"), Range("B75").End(xlDown).Address).Rows.Count Then MsgBox "Toutes les formules se trouvent dans les deux colonnes" ElseIf n = Range(Range("A75"), Range("A75").End(xlDown).Address).Rows.Count And m <> Range(Range("B75"), Range("B75").End(xlDown).Address).Rows.Count Then MsgBox "Il y a " & Range(Range("B75"), Range("B75").End(xlDown).Address).Rows.Count - m & " formules de la colonne B qui ne se trouvent pas en A et toutes les formules de A se trouvent en B" ElseIf n <> Range(Range("A75"), Range("A75").End(xlDown).Address).Rows.Count And m = Range(Range("B75"), Range("B75").End(xlDown).Address).Rows.Count Then MsgBox "Il y a " & Range(Range("A75"), Range("A75").End(xlDown).Address).Rows.Count - n & " formules de la colonne A qui ne se trouvent pas en B et toutes les formules de B se trouvent en A" Else: MsgBox "Il y a " & Range(Range("A75"), Range("A75").End(xlDown).Address).Rows.Count - n & " formules de la colonne A qui ne se trouvent pas en B et " & Range(Range("B75"), Range("B75").End(xlDown).Address).Rows.Count - m & " formules de la colonne B qui ne se trouvent pas en A" End If End Sub

xjl · Answer

Dans ce cas, dans la partie suivante tu dois effectuer une petite modif:

For i = 75 To Range("A75").End(xlDown).Row 
For j = 75 To Range("B75").End(xlDown).Row 
If Left(Cells(i, 1).Value,6) = Left(Cells(j, 2).Value,6) Then 
n = n + 1 
Exit For 
End If 
Next j 
Next i 

For i = 75 To Range("B75").End(xlDown).Row 
For j = 75 To Range("A75").End(xlDown).Row 
If Left(Cells(i, 1).Value,6) = Left(Cells(j, 2).Value,6) Then 
m = m + 1 
Exit For 
End If 
Next j 
Next i 

Du coup il ne va comparer que les 6 premiers caractères de chaque chaine contenue dans les cellules... ;-)