Contenu ComboBox

[rudaye]

Une petite question un peu même je pense très basic mais bon on peut pas être bon partout!

J'ai un combobox et je voudrais dans le code de la combobox mettre la liste de choix suivante:
TS
ou
TM
ou
TS/TM

merci d'avance

 

[ThomasR]

Bonsoir rudyperray, le forum

vite fait en avant de manger

dans l'initializ de ton USF tu indique ceci
combobox1.additem 'TS'
combobox1.additem 'TM'

idem pour les suivant 'TS/TM'

 

[Hellboy]

Bonjour rudyperray

ce code permet de faire ce que tu demande.

Private Sub UserForm_Initialize()
With UserForm1.ComboBox1
    .AddItem 'TS'
    .AddItem 'ou'
    .AddItem 'TM'
    .AddItem 'ou'
    .AddItem 'TS/TM'
End With
End Sub

Message édité par: Hellboy, à: 29/07/2005 19:26

 

[ERIC S]

Bonsoir

si tu es directement sur feuille excel (et non en vba),
tu places tes chois par exemple en A1, A2 & A3

et dans les propriétés de ton combobox tu mets

A1:A3 dans ListFillRange

A+

 

[ERIC S]

Re

je voulais écrire choiX mais mes doigts ont fourché......

 

[rudaye]

Merci pour vos réponse!

Mais lorsque je clic une deuxième fois sur la combobox, il double la liste et ainsi de suite en fonction du nbre de fois que l'on clic

 

[salim]

bonsoir à tous

rudyperray si j'ai bien compris ton probleme alors il te faut utiliser la methode Clear avant d'alimenter ta ComboBox pour que la liste ne s'ajoute pas à elle meme chaque fois.

salim

 

[Hellboy]

bonjour rudyperray, salim, Eric S

Je rajouterais, que si tu ne Unload pas ta forme exUnload Userform1), tu maintient les données ds ton Usf.

a+

 

[rudaye]

j'ai fait ça pour que ma combobox se vide mais ça ne change rien, à chaque fois que je clic sur la combobox il me remet dans la liste les trois ITEM


Private Sub ComboBox1_Change()
ComboBox1.Clear
ComboBox1.AddItem 'TS'
ComboBox1.AddItem 'TM'
ComboBox1.AddItem 'TS/TM'
End Sub

 

[MichelXld]

Bonjour Rudyperray ,Thomas Philippe , Eric et Salim

si tu utilises la solution proposée par Philippe , tu ne devrais pas avoir de probleme
les données sont ajoutées au ComboBox ors de l'affichage de l'USF (evenement UserForm_Initialize)

Private Sub UserForm_Initialize()
With UserForm1.ComboBox1
.AddItem 'TS'
.AddItem 'TM'
.AddItem 'TS/TM'
End With
End Sub


bon week end
MichelXld

Message édité par: MichelXld, à: 30/07/2005 12:15

 

[rudaye]

Oui c bon maintenant j'ai oublié de le dire sur le fil !

Merci beaucoup

 

[Hellboy]

re a tous

snif ! snif!

Merci MichelXld, c'est vrai qu'on m'oublie souvent de me lire. Je suis un éternel incompris. B)