récupération du nom de feuille d'une donnée

[Didier]

Bonjour,

Je suis parfois des semaines sans passer par ici mais quand je viens ce n'est pas pour rien !

J'ai depuis maintenant quelques heures une feuille avec une recherche sur plusieurs feuilles, une macro qui marche a merveille.

EX :
j'ai une valeur X dans une feuille RESULTATS que je recherche dans FEUIL1, FEUIL2,FEUIL3,FEUIL4 et j'affiche (grâce a Bernard du Forum) dans ma feuille RESULTATS la valeur Y issue d'une de mes 4 feuilles !
La cerise sur le gâteau serait que juste à côté de cette valeur, je puisse obtenir le nom de la feuille de laquelle ma valeur Y est issue !

L'intégrer a la macro ne devrait pas être compliqué !

Merci.

 

[Pascal76]

Bonjour

Il serait bien de voir ta macro de recherche de ta valeur ce serait plus facile pour savoir comment s'effectue tes recherches sur tes feuilles.

Sinon ce serait du genre:

MonNomFeuille=sheets(x).name

Pascal

 

[Didier]

merci du tuyau ....

La macro de Bernard modifiée :

Dim MyRange As Range, MyPlage As Range
Dim C As Range, Mot As Range
Dim j As Byte

'Effacement des anciennes données du tableau
Worksheets("Liste à faxer").Range("D2", "D2000").ClearContents
'Déclaration de variable de la feuille Résultats
Set MyPlage = Range(Worksheets("Liste à faxer").Range("B2"), Worksheets("Liste à faxer").Range("B800").End(xlUp))
For Each Mot In MyPlage
'Mise en boucle des feuilles
For j = 1 To 4
'Déclaration de variable de la feuille à traiter
Set MyRange = Range(Sheets(j).Range("E2"), Sheets(j).Range("E700").End(xlUp))
'Boucle de mise en tableau des noms qui n'y sont pas, de leurs valeurs et du total
For Each C In MyRange
'Boucle de mise en place de la valeur correspondant aux mots de la feuille résultats
If Mot = C Then ' Recherche du mot
If C.Offset(0, -4) <> "" Then ' Recherche du mot
Mot.Offset(0, 1) = C.Offset(0, -4) ' Inscription de sa valeur
Mot.Offset(0, 3) = Sheets(j).Name ' Inscription du nom de la feuille
End If
End If
Next C
Next j
Next Mot