Recherche valeur et si presente affiche resultat

  • Initiateur de la discussion Initiateur de la discussion T-Maxx
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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

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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Réponses
1
Affichages
960
Réponses
13
Affichages
786
Retour