comparer 2 feuilles

[Pedro]

Bonjour,

J'utilise Excel 2000. J'ai deux feuilles (1 et 2). Je veux comparer les 2 feuilles au niveau du champ "Nom". Si un nom existe dans la FEUILLE1
et dans la FEUILE2, mettre "PAYE" dans le champ "Situation" de la FEUILLE2; en même temps ajouter la valeur du champ "annee" correspondante. Quelqu'un peut il me donner des indications. Les etapes dans les tableaux suivants:

FEUILLE1:

Nom annee
Pierre 1992
Paul 1995


FEUILLE2 (Avant la macro)
Nom
Pierre
Paul
Eric
Jean

FEUILLE2 (Apres exécusion de la macro)

Nom Situation Annee
Pierre PAYE 1992
Paul PAYE 1995
Eric
Jean

 

[vincent]

bonjour.
Voila une procedure qui devrait te convenir.

Sub verife()
With Sheets(2)
For rang = 2 To Sheets(1).Range("a:a").End(xlDown).Row
For rang1 = 2 To .Range("a:a").End(xlDown).Row
If Sheets(1).Cells(rang, 1) = .Cells(rang1, 1) Then
.Cells(rang1, 2) = "PAYE"
.Cells(rang1, 3) = Sheets(1).Cells(rang, 2)
Exit For
End If
Next
Next
End With
End Sub