Microsoft 365 Recherche info à partir d'une cellule

[grosduke]

Bonjour à tous, j'ai une feuil "Donnée1" qui regroupe les nom, adresse et no. de téléphone de mes contacts
J'aimerais pouvoir afficher dans l'autre Feul "Résultat"ces infos à partir d'une cellule de recherche
Exemple: J'écris Monique dans une cellule sous "Résultat" , disons A1 et on affiche le nom, l'adresse et le numéro de téléphone un en dessous de l'autre.
disons: A1 Monique Leblond
B1 222 Carrier
C1 450-123-4567
Merci pour votre aide.

 

[Calvus]

Bonjour,

Comme ceci peut être.

Option Explicit

Sub Recherche()
Dim i As Integer
For i = 1 To Feuil1.Cells(Rows.Count, 1).End(xlUp).Row
    If Range("A1") Like Feuil1.Cells(i, 1) Then
    Cells(1, 1) = Feuil1.Cells(i, 1)
    Cells(2, 1) = Feuil1.Cells(i, 2)
    Cells(3, 1) = Feuil1.Cells(i, 3)
    End If
Next i
End Sub

A+

 

[Robert]

supprimé...

 

[Calvus]

Salut Robert,

Content de te croiser !

Je t'attends toujours... mémoire d'oiseau va !

Ps : je sais que tu vas me demander de quoi je parle..mais je vais te laisser chercher un peu..

 

[Robert]

Re,

Arf ! Calvus... Faux et archi faux ! Les oiseaux ont bien plus de mémoire que moi... Désolé mais je ne vois absolument pas de quoi tu parles...

 

[Calvus]

Une vieille histoire qui remonte à loin loin loin, que je t'avais rappelée il y a déjà 2 ou 3 ans et que tu avais oubliée déjà !
Il était question que si tu passais une fois par ici, on se ferait un bœuf où je t'accompagnerais, toi chantant du Brassens..

 

[Robert]

Re,

Ha.... La dernière fois que je suis passé par Antibes j'ai perdu un œil !.... Et j'ai encore mes deux yeux... Ça doit être pour ça...

 

[Calvus]

Et tu te souviens de quoi je parle ou pas du tout ?

Et moi j'étais à Sète la semaine dernière..

 

[Robert]

Re,

Non bien sûr... Je ne me souviens pas du contexte mais tu as tout dit dans le post #6...

 

[Calvus]

Je chercherai et t'enverrai le lien en mp.

Bonne soirée

 

[Robert]

Cool, merci !

Bonne soirée à toi aussi.