VBA - Comparer 2 listes

[kalek93]

Bonjour,

Je souhaite créer une macro pour comparer deux listes et mettre les variables les unes en face des autres

Voici un exemple

Feuille d'origine
1 1
2 3
3 4
4
5

Résultat
1 1
2
3 3
4 4
5

Voici ma macro

For i = 1 To 100 Step 1

If Range("A" & i).Value <> Range("D" & i).Value Then
Range("D" & i, "F" & i).Select
Selection.Insert Shift:=xlDown
End If

Next i


Le problème c'est qu'elle ne marche que si la colonne A est supérieur à B... Auriez-vous une solution svp?

Merci d'avance

 

[jpb388]

Re : VBA - Comparer 2 listes

Bonjour à tous
tu peux écrire ta macro de cette façon

For i = 1 To range("A" & rows.count).end(xlup).row

 If Range("A" & i).Value <> Range("D" & i).Value Then
 Range("D" & i, "F" & i).Insert xlDown
 End If

 Next i

et quand c'est inférieur quelle est la marche à suivre ?
si tous les mêmes chiffres doivent se trouver sur la même ligne il suffit de faire un tri du+< au +> et de lancer la macro