Bonjour Corbin,
Il me semble qu'il faudrait partir sur un petit If... Then de type :
If Range("A1").Value = "32165" Then
"nom correspondant" = Range ("A1").Value
'où 32165 est la réf d'un produit
Et il faudrait recommencer avec les autres cellules....
Sur ce, on complique légèrement et :
Dim cellule As Range
Range("A1").Activate
For Each cellule In Worksheets("zaza").Range("A1:A63536")
If cellule = 32165 Then
"nom correspondant" = Cellule.Value
Next
Bon, là bien sûr, zaza c'est le nom de la feuille...
Mais cela ne te suffira pas, car tu n'as sûrement pas envie de te taper la saisie de tous les nom correspondants, ni de toutes les réfénces....
Peut-être une piste :
Si tes réf. sont enregistrées en "A" et tes noms en "B"
Dim cellule As Range
Sheets("toto").Select 'Il s'agit de la feuilles où sont les noms et les ref.
ref = Selection.Value
Selection.Offset(0, 1)
nomCORRES = Selection.Value
Sheets("zaza").Activate
Range("A1").Activate
For Each cellule In Worksheets("zaza").Range("A1:A63536")
If cellule = ref Then
Cellule.Value = nomCORRES
Next
Sheets("toto").Activate
Il ne s'agirait alors plus que de sélectionner chaque cellule "A" à tour de rôle, puis de lancer la macro....
Mais bon, on doit pouvoir automatiser cela (300 ref, quand même !!)
Il faudrait prévoir une boucle, mais je n'ai hélas aucune idée de la façon de procéder....
Essaie déjà cette macro, et dis moi si elle fonctionne (je ne l'ai pas testée..)
A Bientôt,
William