Recherche valeur et si presente affiche resultat

[T-Maxx]

Bonjour tout le monde,
je tiens à felicité les acteurs de ce forum pour toute l'aide qu'ils apportent, j'y ai trouvé deja plusieurs petites astuces que j'utilise au quotidien.

Voila ma demande:
j'extrait de mon DMS une liste de clients qui ont eu une facture dans les 12 derniers mois que je copie dans une feuille que j'appelle 'Annuelle'.
Je reçois un fichier clients à comparer avec mon extraction et je doit mettre la date de la facturation s'il y en a une dans une cellule de la ligne.
je voudrais automatiser cette manip et je fais donc appel à vous.

La valeur commune unique est dans la colone D (c'est l'identification de la machine) car cette machine peut avoir changée de main au court de l'année.
je pense à une macro mais j'ai encore beaucoup de mal avec et je fais appel à vous.
merci de votre aide

je joint un fichier type [file name=TMaxxtest.zip size=3082]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/TMaxxtest.zip[/file]

 

[soft]

Salut T-Maxx,

Voilà la macro que tu peux utiliser :

Sub Traitement()
Dim I As Long, Y As Long
Dim Chassis As String

For I = 5 To Sheets('Annuelle').Range('C5').End(xlDown).Row

Chassis = Sheets('Annuelle').Range('C' & I)

For Y = 5 To Sheets('Mensuel').Range('D5').End(xlDown).Row

If Chassis = Sheets('Mensuel').Range('D' & Y) Then
Sheets('Mensuel').Range('A' & Y) = Sheets('Annuelle').Range('F' & Y)
End If

Next Y
Next I
End Sub

 

[T-Maxx]

Merci beaucoup soft, ça marche nickel
maintenant je vais essayer de comprendre cette macro