Sub comparedata() Dim ligne, colonne, compteur As Integer 'test effectué sur la 1ére colonne colonne = 3 ligne = 1 'trouve le numéro de la dernière ligne non vide pour limiter la boucle compteur = Sheets("Feuil1").Columns("C:C").Find("*", Cells(ligne, colonne), , , xlByRows, xlPrevious).Row For ligne = 1 To compteur 'comparaisons des données If Sheets("Feuil1").Cells(ligne, colonne) = Sheets("Feuil2").Cells(ligne, colonne) Then Sheets("Feuil1").Cells(ligne, colonne + 1) = Sheets("Feuil2").Cells(ligne, colonne) End If Next End Sub
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question