XL 2019 Remplissage automatique d'un formulaire

MarcDJ

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

Eric C

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

Pièces jointes

  • Correspondance.xlsm
    23 KB · Affichages: 14

JM27

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


VB:
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

VB:
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
 
Dernière édition:

MarcDJ

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

Discussions similaires

Réponses
18
Affichages
505

Statistiques des forums

Discussions
311 725
Messages
2 081 943
Membres
101 849
dernier inscrit
florentMIG