Salut
Décompose ce que tu as à faire :
- Enumérer et comparer les valeurs des cellules de deux colonnes
Si tu dois comparer le contenu des cellules dont le numéro de ligne est le même dans les colonnes B de la feuille "X" avec la colonne C de la feuille "export_org", il te suffit de faire une boucle de lecture.
Dim r As Long
For r = 1 To 4012 ' n° de ligne à tester
If Worksheets("X").Cells(r, "B").Value = _
Worksheets("export_org").Cells(r, "C").Value Then
' Elles sont égales
End If
Next r
- Ne comparer que les X premiers caractères
Dim NbChar As Long
NbChar = Val(InputBox("Nombre de caractères à comparer", "Codes-Sources"))
...
If Left$(Worksheets("X").Cells(r, "B").Value, NbChar) = _
Left$(Worksheets("export_org").Cells(r, "C").Value, NbChar) Then
- Faire des copies de cellules
Un simple enregistrement de macro pendant que tu fais la copie manuellement te fournira le code
Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés
Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)