1. Accueil
  2. Forum Codes-Sources
  3. Visual Basic
  4. VBA Office (Excel, Word ...)

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
Afficher la suite

1 réponse

Réponse 1 / 1
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
Signaler
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.
Signaler
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à
Répondre Posez votre question