USF menu deroulant avec 1,2,3 comme choix

[carlos]

bonsoir

Est il possible sur USF d'avoir un menu deroulant avec les chiffes 1,2,3 comme choix sans passer par une cellule.

Merci

 

[carlos]

Bonsoir

J'ai testé ca mais rien n'apparait dans mon combobox1

Private Sub NbreParPoule_Change()

NbreParPoule.AddItem '1'
NbreParPoule.AddItem '2'
NbreParPoule.AddItem '3'

End Sub

Merci

 

[Hervé]

Bonsoir

Enlève les guillemets entres tes items.

.....additem 1

sinon

dim i as byte

for i=1 to 3
NbreParPoule.additem i
next i

A plus

 

[carlos]

bonsoir Hervé

ET merci pour ton aide

Carlos

 

[carlos]

Bonsoir

j'ai testé le s2 formules mais rien n'y fait , rien ne s'affiche dans le combobox nommé NbreParPoule

Private Sub NbreParPoule_Change()
Dim i As Byte

For i = 1 To 3
NbreParPoule.AddItem i
Next i
End Sub

Ou est l'erreur ??

Merci

 

[Philippe]

Il faut mettre ta rputine en NbreParPoule_GOTFOCUS

A+
philippe

 

[Hervé]

re

Apparement tu met ta macro dans l'évenement de changement de la combobox, essaye au démarrage de l'userform :

Private Sub UserForm_Initialize()

.....ton code.....

End Sub

A plus

 

[carlos]

re re re bonsoir

Voici mon fichier joint ....

Merci [file name=RemplirCombo.zip size=6236]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/RemplirCombo.zip[/file]

 

[Hervé]

re

En retour ton fichier avec quelques commentaires.

A plus
[file name=RemplirCombo2.zip size=10016]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/RemplirCombo2.zip[/file]

 

[carlos]

Bonjour Hervé

Merci pour tes conseils et ton travail .

Bon week end