bonjour,
je souhaites comparer 2 colonnes à l'aide du "bouton 2", si sur la ligne les 2 colonnes sont identique alors msg "aucune mise à jour" si différent msg "mise à jour à effectuer" et copie de la 1ère case de la colonne sur la "feuil2".
et ceux ci pour un tableau de plus de 300 entrées.
voici ma macro mais elle ne fonctionne pas comme je veux.
merci de voter aide
oby1
je souhaites comparer 2 colonnes à l'aide du "bouton 2", si sur la ligne les 2 colonnes sont identique alors msg "aucune mise à jour" si différent msg "mise à jour à effectuer" et copie de la 1ère case de la colonne sur la "feuil2".
et ceux ci pour un tableau de plus de 300 entrées.
voici ma macro mais elle ne fonctionne pas comme je veux.
Code:
Sub Bouton2_Clic()
Dim col_A As Range
Dim col_B As Range
With Worksheets("Feuil1")
Set col_A = .Range("A2")
Set col_B = .Range("B2")
For i = 2 To .Cells(1, 2).End(xlDown).Row 'derniere cellule renseignée de la colonne, nécessite que toutes les cellules soient remplies
For j = 2 To .Cells(2, 2).End(xlDown).Row
If .Cells(i, 1) = .Cells(j, 1) Then
MsgBox "aucune mise à jour"
Else
Sheets("feuil1").Cells(i, 1) = Sheets("feuil2").Cells(j, 1)
MsgBox "mise à jour à effectuer"
End If
Next
Next
End With
End Sub
merci de voter aide
oby1