UserForm (formulaire) , aprés exécution impossible d'afficher la Civilité

Signaler
-
Messages postés
6778
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
29 mai 2020
-
Bonjour,

Je vous montre le formulaire (UserForm) que j'ai nommé FirstEssai



voici mon code :

Private Sub Saisie_joueur_Initialize()
'activation de la feuille "Tableau List" dans le classeur

Worksheets("Tableau Liste").Activate


'Numero de joueur
Cells(1, 1).Value = ComboBox_NumeroJoueur



If ComboBox_NumeroJoueur.Value = "" Then

MsgBox "Pas de Civilité....Votre Choix est-il confirmeé ?", vbYesNo

End If

'**** Civilité *****
ComboBox_Civilite.ColumnCount = 1
ComboBox_Civilite.List = Array("Mr", "Melle", "Mme")

End Sub


Merci de votre réponse

1 réponse

Messages postés
6778
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
29 mai 2020
107
Bonjour,

je pense que tu veux voir afficher dans la ComboBox un item à l'ouverture de ton UserForm.
Car ton code est correct pour ajouter les items.

Intéresse toi à la propriété ListIndex de ta ComboBox

https://silkyroad.developpez.com/VBA/ControlesUserForm/#LII-F
Messages postés
3
Date d'inscription
mercredi 22 avril 2020
Statut
Membre
Dernière intervention
22 avril 2020

Bonjour,
j'ai un check box et un text box, je veux que quand je clic sur un check box qu'y ait 3 dans la textbox.
merci de m'aider avec les codes.
Messages postés
6778
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
29 mai 2020
107 >
Messages postés
3
Date d'inscription
mercredi 22 avril 2020
Statut
Membre
Dernière intervention
22 avril 2020

Bonjour,

As-tu ouvert le lien fourni?

Tu auras la réponse à ta question.

voilà