Recherche valeur et si presente affiche resultat

T

T-Maxx

Guest
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]
 

Pièces jointes

  • TMaxxtest.zip
    3 KB · Affichages: 13

soft

XLDnaute Occasionnel
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
 

Discussions similaires

Membres actuellement en ligne

Statistiques des forums

Discussions
311 725
Messages
2 081 941
Membres
101 846
dernier inscrit
Silhabib