Bonjour,
J'utilise cette macro sous vba pour faire des comparaison entre deux feuilles EXCEL
Private Sub Comparaison_Click()
Dim i As Integer
i = 2
While i < 6000
If Worksheets("feuil1").Range("F" + CStr(i)).Value <> Worksheets("feuil2").Range("D" + CStr(i)).Value Then
Worksheets("comparatif automatique").Activate
Worksheets("comparatif automatique").Range("C" + CStr(i)).Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 65535
End With
End If
i = i + 1
Wend
End Sub
grâce à cette macro les cellules non identiques ressorte de couleur jaunes.
pour préciser ce dont j'ai besoin :
Worksheets("comparatif automatique").Activate
Worksheets("comparatif automatique").Range("C" + CStr(i)).Select
à ce moment de la macro j'utilise une troisième feuille excel qui me permet de colorer les cellules différentes, ce que je voudrais serait d'extraire d'autres données de cette lignes...
exemple :
---------------------------------------------------------
Nom| Prénom| adresse | ville | N°téléphone|
---------------------------------------------------------
si le nom et le prénom ne coïncide pas avec le nom et le prénom de la feuil1 alors extraire le nom et le numéro de téléphone.
voila j'espère m'être fait comprendre !
merci d'avance
