Liste Deroulante VBA

Bonjour,

Je ne suis pas un expert niveau excel/vba mais j'arrive a me débrouiller je travail sur un fichier de saisie d'attribution de matériel et je me suis retrouver face a une interrogation.

J'ai un fichier excel avec des nom/prénom en colonne A, email colonne C, téléphone en D et Localisation en E.

J'aimerais que dans mon interface de saisie avec une liste déroulante je choisisse un nom (le problème n'est pas la) et qu'il fasse correspondre ce nom avec la ligne afin de me retourner dans des variables l'email, le téléphone et la localisation.

(Voici mon interface de saisie)

Je vais fusionner nom et prénom (le 1 et le 2) afin de créer une liste déroulante avec "NOM, Prénom" hors il me faudra par la suite avoir le nom et le prénom séparément donc voici ma première interrogation peut on vue qu'elles sont séparé par une virgule stocker le nom d'un coter et le prénom de l'autre ?

Voici ma deuxième question qui ramène a mon problème plus haut : comment je peux récupéré dans des variables l'email, le téléphone et la localisation.

Voilà si je ne suis pas claire ne pas hésiter a demander je répondrais, Merci d'avance a toute personne pour sont aide

Bonjour,

Un p’tit classeur avec 10/15 données anonymisées serait mieux pour régler le soucis

Voilà merci d'avance de votre réponse

Re,

En réfléchissant un petit peu, en montrant sur ton premier post, un userform, cela n'aurait il pas été judicieux de le placer dans le classeur exemple.

Je n'ai pas envie de me taper un userform, surtout que tu as peut-être nommé les différents contrôles

Je peux vous envoyer mon fichier en privé ?

Re,

Sans problème avec explications claires de la demande

Bonjour,

Si tes données sont organisées comme sur l'image de ta feuille (données commençant en A2), et que tu disposes, sur ton UserForm d'une combobox présentant les données de ta colonne A, alors test ceci :

Private Sub ComboBox1_Change()
'ComboBox1 = combobox contenant les : NOM, Prenom
Dim nom As String, prenom As String, email As String, ligne As Long
    If ComboBox1.Value <> vbNullString Then
        ligne = ComboBox1.ListIndex + 2
        nom = Split(ComboBox1.Value, ", ")(0)
        prenom = Split(ComboBox1.Value, ", ")(1)
        MsgBox "NOM : " & nom & vbCrLf & "Prénom : " & prenom & vbCrLf & "LIGNE : " & ligne & vbCrLf & "E-MAIL : " & Sheets("Feuil1").Cells(ligne, 3).Value
    End If
End Sub

Merci beaucoup c'est exactement ce que je voulais