XL 2019 Remplissage automatique d'un formulaire

Wayki

XLDnaute Impliqué

• 3 Octobre 2021

• #2

Bonjour,
Par recherchev ou index equiv
A +

 

Vote positif 0 Vote négatif

J

JM27

XLDnaute Barbatruc

• 3 Octobre 2021

• #3

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

 

Vote positif 0 Vote négatif

J

JM27

XLDnaute Barbatruc

• 3 Octobre 2021

• #4

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

 

Vote positif 0 Vote négatif

MarcDJ

XLDnaute Junior

• 3 Octobre 2021

• #5

Que puis-je faire donc ?

 

Vote positif 0 Vote négatif

Eric C

XLDnaute Barbatruc

• 3 Octobre 2021

• #6

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

Vote positif 0 Vote négatif

J

JM27

XLDnaute Barbatruc

• 3 Octobre 2021

• #7

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: 3 Octobre 2021

Vote positif 0 Vote négatif

MarcDJ

XLDnaute Junior

• 3 Octobre 2021

• #8

Re,

Merci à vous tous pour votre réactivité.

Je vais tester vos solutions et je reviens vers vous.

 

Vote positif 0 Vote négatif

MarcDJ

XLDnaute Junior

• 4 Octobre 2021

• #9

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.

 

Vote positif 0 Vote négatif