Microsoft 365 Recherche info à partir d'une cellule

grosduke

XLDnaute Nouveau
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

XLDnaute Barbatruc
Bonjour,

Comme ceci peut être.
VB:
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+
 

Calvus

XLDnaute Barbatruc
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..
 

Discussions similaires

Statistiques des forums

Discussions
314 450
Messages
2 109 726
Membres
110 552
dernier inscrit
jasson