renvoyer la valeur d'une colonne en fonction d'une autre valeur de la même ligne

[kastor]

Bonjour,

Comment faire pour aller trouver une valeur dans une plage et renvoyer la valeur d'une colonne de la ligne contenant la valeur recherché ?

Dans mon fichier, je veux simplement afficher un msgbox (nom & " " & prénom), qui correspond au code de la personne indiqué en un inputbox.
en sachant que je peux avoir beaucoup de ligne pour une même personne.

je pense qu'il faudrait passer par la fonction "find", et renvoyer la valeur de la colonne souhaitée, mais je n'arrive pas à trouver comment utiliser cette fonction.

Merci pour votre aide.

 

[kastor]

Re : renvoyer la valeur d'une colonne en fonction d'une autre valeur de la même ligne

Bon,

j'ai enfin trouvé,

pour ceux que ça intéresse,


Sub choix()

Dim plc As Range
Dim c As Variant

retour:
M1 = InputBox("Merci de renseigner le code", vbOKCancel)
If M1 = "" Then GoTo retour:
Ls = Sheets("feuil1").Cells(Application.Rows.Count, 1).End(xlUp).Row
Set plc = Sheets("feuil1").Range("B2:B" & Ls)
Set c = plc.Find(M1)
c1 = Split(c.Address, "$")(2)


nom = sheets("feuil1").Range("C" & c1).Value & " " & sheets("feuil1").Range("D" & c1)

M2 = MsgBox("vous avez selectionné " & nom, vbYesNo)
If M2 = 7 Then GoTo retour:

end sub


Bon c'est peut être pas parfait, mais ça fonctionne !!!