XL 2019 Remplissage automatique d'un formulaire

[MarcDJ]

Bonjour à tous,

Voilà, j'ai créé un formulaire qui reprend Nom, Email, et Téléphone.

Je souhaiterais que lorsque je saisi le Nom, les champs Email et Téléphone se remplissent automatiquement.

Toutes les listes et tableaux ont été créés.

Merci d'avance pour vos conseils.

 

[Wayki]

Bonjour,
Par recherchev ou index equiv 🙃
A +

 

[JM27]

bonjour
En postant un petit fichier , avec des données non confidentielles , tu auras surement une réponse

 

[JM27]

bonjour
je penses que tes données ne sont pas anonymes
si c'est le cas supprimes ton fichier, avant que le modérateur s'en occupe

 

[MarcDJ]

Que puis-je faire donc ?

 

[Eric C]

Bonjour le forum
Bonjour MarcDJ
Oupsssss... Pas rafraîchi : Bonjour Wayki et bonjour JM27
Sans fichier ce n'est pas évident car il faut tout créer. A ne pas renouveler ... 😉

A tester sur ce fichier qui reste à aménager.
Bonne après-midi à toutes & à tous
@+ Eric c

 

[JM27]

Bonjour
Pour supprimer ton fichier:
Clic sur le post /modifier
Tu sélectionnes ton fichier et tu clique sur l'icone poubelle

sinon ton code pour afficher

Si les tel et courriel sont dans la feuille liste , tu remplaces
Sheets("MEMBRES 2021") par Sheets("Liste") et le range correspondant (C ou E)

Private Sub cboNomPrenom_Change()
    txtCourriel = Sheets("MEMBRES 2021").Range("G" & Me.cboNomPrenom.ListIndex + 2)
    Me.txtTelephone = Sheets("MEMBRES 2021").Range("F" & Me.cboNomPrenom.ListIndex + 2).Text
End Sub

ou

Private Sub cboNomPrenom_Change()
    txtCourriel = Sheets("LISTES").Range("C" & Me.cboNomPrenom.ListIndex + 2)
    Me.txtTelephone = Sheets("LISTES").Range("E" & Me.cboNomPrenom.ListIndex + 2).Text
End Sub

 

[MarcDJ]

Re,

Merci à vous tous pour votre réactivité.

Je vais tester vos solutions et je reviens vers vous.

 

[MarcDJ]

Bonjour JM27 et Eric C,

La solution que j'ai choisie est celle de JM27 qui correspond tip-top à ce que j'espérais.

Le solution de d'Eric C pourra me servir pour d'autres choses, parce qu'elle est plus général.

Un grand merci pour votre aide.