ComboBox

[meldja]

Rebonjour,
Ma question est toute bête... et pourtant, après une heure de recherche (j'ai des excuses, j'ai un débit inférieur à 30 kbits/s), je me résous à demander de l'aide.
J'ai une ComboBox dans un UserForm et impossible de l'alimenter.
Je suis allé dans les propriétés, RowSource, mais ma source est en ligne (A2:C2) et apparemment, c'est comme les listes de validation, ça marche pas.
Ma plage est nommée alors j'ai essayé de mettre le nom de la plage dans RowSource et ça marche toujours pas.
J'ai vu sur différents fils qu'il y avait un champ ListFileRange ou ListRange dans les propriétés d'une ComboBox, mais je n'ai pas vu ça dans les propriétés de la mienne. Serait-ce une combobox spécialement conçu pour me faire ch.. ?
Le seul truc qui marche, c'est le .AddItem "blabla" etc..
Il doit bien y avoir un moyen d'alimenter ma ComboBox avec ma plage de cellule ???
Merci d'avance pour vos réponses, et ne vous moquez pas

 

[BOISGONTIER]

Re : ComboBox

Bonjour,

Private Sub UserForm_Initialize()
  Me.ComboBox1.List = Application.Transpose([A2:C2])
End Sub

JB
Formation Excel VBA JB

 

[pierrejean]

Re : ComboBox

bonjour meljda

teste ceci

Private Sub UserForm_Initialize()
For n = 1 To 3
  ComboBox1.AddItem Cells(2, n)
Next n
End Sub
 
Salut JB 
Decidement il faudra que je me mette au Transpose !!

 

[meldja]

Re : ComboBox

Merci,
J'avais oublié de préciser que ma liste n'est pas sur la même feuille mais j'ai rajouté le nom de la feuille dans ton code :
Private Sub UserForm_Initialize()
Me.ComboBox1.List = Application.Transpose([MaFeuille!A2:C2])
End Sub

et ça marche.
Juste pour info, les crochets [ ] c'est comme les { } pour la formule matricielle TRANSPOSE dans une feuille ?

 

[Pierrot93]

Re : ComboBox

Bonjour Meldja, PierreJean🙂, jb

une autre solution, donnée par Hervé🙂 :

Private Sub UserForm_Initialize()
ComboBox1.Column = Range("A2:C2").Value
End Sub

bonne soirée
@+

 

[meldja]

Re : ComboBox

Merci JeanPierre,
J'ai testé en rajoutant le nom de la feuille source (parce que mon UserForm ne se trouve pas dans la feuille où y a la source) et ça marche aussi bien.
Au passage je remercie PierreJean qui m'a mainte fois appris des trucs.
Bonne soirée