Recherche de plusieurs valeurs

[mazieres]

bonjour,
Je souhaite récuperer toutes les valeurs possible d'une constante.
Exemple
A B
Pierre 1
Paul 0
Pierre 2


Résultat recherché :

Pierre 1
Pierre 2


La fonction recherche ne renvoi que la première valeur de Pierre.

Merci

 

[Robert]

Bonsoir Mazières, bonsoir le forum,

je te propose une macro événementielle pour résoudre ce problème. Double clique sur une données et la macro t'indiquera, chaque fois que cette données existe dans cet onglet, la donnée et la valeur de la cellule à droite de cette donnée.

Regarde le fichier en pièce jointe.

La macro :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim don As String 'déclare la variable don (donnée)
Dim R As Range 'déclare la variable R (Recherche)
Dim PA As String 'déclare la variable PA (Première Adresse)
Dim msg As String 'déclare la variable msg(message)

don = Target.Value 'définit la variable don
If don = '' Then Cancel = True: Exit Sub 'si cellule est vide, sort de la procédure

Cancel = True 'évite le mode édition lié au double-clic

With ActiveSheet.UsedRange 'prend en compte toutes les cellules éditées de l'onglet actif
Set R = .Find(don) ''definit la variable R (recherche de la donnée éditée dans la boîte d'entrée)
PA = R.Address 'définit la variable PA
Do 'exécute
'définit la variable msg (mémorise la donnée)
msg = msg & R.Value & ' ' & R.Offset(0, 1).Value & Chr(13)
Set R = .FindNext(R) 'redéfinit la variable R (recherche le suivant)
'boucle tant que le suivant n'a pas l'adresse de PA
Loop While Not R Is Nothing And R.Address <> PA
End With 'fin de la prise en compte
MsgBox msg 'affiche e message

End Sub

[file name=Mazieres.zip size=9895]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Mazieres.zip[/file]