bonjour,

Dans mon formulaire UserForm (que j'ai nommé Saisie_joueur), j'ai voulu créé un ComboBox de Civilité (avec: Mr, Mme, Melle) mais lors de l'execution du formulaire , il n'apparait pas la Civilité......Je ne comprends pas pourquoi il ne s'affiche pas.

voici le code

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
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
pour votre information, je vous affiche l'image Imprimé du Formulaire (créé en VBA) :


Nom : erreur 9.jpg Affichages : 137 Taille : 80,5 Ko




Pouvez-vous m'aider à resoudre de probléme ???


Merci