ComboBox : Données ne s'affichent pas !

[Joe[PT]]

Bonjour le forum,

J'ai un problème avec une ComboBox insérée dans un UserForm.
Que je tape directement les données (par combobox1.additem "Janvier"...) ou par Rowsource, je ne parviens pas à visualiser les données dans la liste déroulante. Je m'y prends comme un pied, mais je ne sais pas où ça pêche.😡

Si quelqu'un à une idée😕

Je suis preneur,
D'avance, merci.

Jorge

 

[pierrejean]

Re : ComboBox : Données ne s'affichent pas !

bonjour Joe[PT]

avec un fichier exemple (sans données confidentielles) il serait plus facile de t'aider

 

[Joe[PT]]

Re : ComboBox : Données ne s'affichent pas !

Bonjour Pierre-Jean,

Merci de ton attention, je ne peux pas joindre le fichier parce qu'il est beaucoup plus gros que ce qui est autorisé... Il faut que je fasse une version light...

C'est ma première comboBox et j'ai beaucoup de mal, l'aide est peu explicite sur la synthaxe à respecter alors... je m'en remets à l'expérience des plus doués que je ne le suis (100 % autodidacte & 0% dévelopeur)...

D'avance, merci.

Jorge

 

[Compte Supprimé 979]

Re : ComboBox : Données ne s'affichent pas !

Bonjour PierreJean
Bonjour Joe[PT] (drôle de pseudo 🙂 )

Dans les propriétés de ton combobox, dans la section : ColumnWidths
N'aurais tu pas plusieurs valeurs avec un 0, tout devant !?

Sinon pour joindre un fichier qui dépasse les limites autorisées, ut peux aller sur Accueil de Cjoint.com

A+http://www.cjoint.com

 

[Havelock]

Re : ComboBox : Données ne s'affichent pas !

Bonjour BrunoM45, Joe[PT] et pierrejean, j'ai moi aussi ce petit problème technique quelque peu ennuyant...

Private Sub ComboBox1_Change()
    test.ComboBox1.AddItem "5"
    test.ComboBox1.AddItem "6"
    test.ComboBox1.AddItem "8"
    test.ComboBox1.AddItem "9"
    test.ComboBox1.AddItem "10"
    test.ComboBox1.AddItem "15"
    test.ComboBox1.AddItem "20"
End Sub

voila le code de ma combobox, qui devrait m'afficher une liste deroulante, mais quand je lance l'userform, rien ne se passe... la liste est vide.

 

[pierrejean]

Re : ComboBox : Données ne s'affichent pas !

bonjour Havelock

pour avoir la liste a l'ouverture de l'Userform:

Private Sub UserForm_[COLOR=red]Initialize()
[/COLOR]    test.ComboBox1.AddItem "5"
    test.ComboBox1.AddItem "6"
    test.ComboBox1.AddItem "8"
    test.ComboBox1.AddItem "9"
    test.ComboBox1.AddItem "10"
    test.ComboBox1.AddItem "15"
    test.ComboBox1.AddItem "20"
End Sub

 

[Havelock]

Re : ComboBox : Données ne s'affichent pas !

Merci de la réponse 😉
par contre, ça ne m'affiche toujours rien. Y a t'il un autre champ a modifier quelque part?

 

[pierrejean]

Re : ComboBox : Données ne s'affichent pas !

re

sans ton fichier je crains que l'on ne puisse rien pour toi

moins de 48k zippé

et sans données confidentielles

 

[Joe[PT]]

Re : ComboBox : Données ne s'affichent pas !

Rebonjour à tous,

Voici le lien du tableau en question :
http://cjoint.com/?eypSgXrebB

En attendant,
Merci.

Jorge.

 

[bqtr]

Re : ComboBox : Données ne s'affichent pas !

Bonjour Joe[PT], pierrejean, Havelock, BrunoM45

Si j'ai bien compris, Essaye comme ca :

Private Sub UserForm_Initialize()
Dim Maplage As Variant
With Worksheets("Eff.Stats")
   Maplage = .Range("Q5:Q15")
End With
Mois.ComboBox1.List = Maplage
End Sub

Si tu veux le faire manuellement procéde comme ceci dans la procédure d'initialisation du UserForm:

With ComboBox1
.AddItem "Janvier"
.AddItem "Février"
.AddItem "Mars"
. .../... pour les autres mois
End With


Bonne fin de journée

 

[Excel_lent]

Re : ComboBox : Données ne s'affichent pas !

Salut tout le monde,

Avec :

Private Sub UserForm_Initialize()
Dim cell As Range
For Each cell In Range("Eff.Stats!N5:N15")
   ComboBox1.AddItem (cell)
Next
End Sub

cela devrait aller.

@+

 

[Joe[PT]]

Re : ComboBox : Données ne s'affichent pas !

Un grand merci,

J'ai essayé et ça fonctionne, merci à tous pour votre aide. Il ne reste plus qu'à coller le mois sélectionné dans la case prévue à cet effet, mais là je devrais y arriver puisque je l'ai déjà fait (oh! le prétentieux 😀 ).

Bonne journée !
Jorge
(100 % autodidacte !)😛