Chercher du texte et afficher le résultat [Résolu]

[pierodu13]

Bonjour, voici ce que j'aimerai faire depuis un petit moment déjà.

J'ai cherché sur des tutos mais je n'arrive pas à construire ma macro....

J'ai la colonne A d'une feuille excelle qui contient des dates sous la forme texte (ex 1 janvier) et les colonnes B,C,D qui contiennent des noms (Ex jean dupont)


J'ai crée une userform avec une textbox et un bouton et j'aimerais que si l'on marque un nom dans la textbox (jean dupont) un message apparait avec la date qui correspond (1 janvier) sachant que dans mon classeur si la cellule A1 contient 1 janvier, la cellule b1 contient jean dupont.

Suis-je assez clair?

Merci

[jfontaine]

Bonjour,

Tu peux utiliser la méthode find

Ici on recherche le nom lors du click sur un bouton

Code :

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub CommandButton1_Click()
 
Dim rg As Range
 
If TextBox1.Text <> "" Then
    Set rg = Sheets("Feuil1").Range("B:D").Find(what:=TextBox1.Text, lookat:=xlWhole)
    If Not rg Is Nothing Then
        MsgBox Sheets("Feuil1").Range("A" & rg.Row).Value
    End If
End If
 
End Sub

[pierodu13]

Super, merci beaucoup pour cette réponse rapide et efficace !!! tu m’enlèves une épine du pied ! c'est exactement ce que je recherchais.