problème de liste dans une combobox

[zephir94]

Bonsoir à tous,


J'ai un soucis pour récupérer une liste qui est dans une ligne avec des Cellules continue.
Pour créer ma liste j'ai utilisé ctrl+F3, sélectionné la ligne et les cellules concernées et je lui ai donné un nom.
J'ai essayé deux méthodes pour déclarer ma liste dans la ComboBox .

En premier, en passant par les propriétés de la ComboBox en Rowsource.
En deuxième, en passant par le VBA

Sub UserForm_Activate()
Me.Controls("combobox11").RowSource = ("flash1")
end sub

Mon soucis malgré une vérification par Ctrl+F3 d'une base compléte en selection je n'ai que la première composante de ma liste qui apparait dans la Combobox !
Merci par avance à vous tous

 

[camarchepas]

Re : problème de liste dans une combobox

Bonsoir ,

Plutot comme ceci

Sub UserForm_Activate()
Me.Controls("combobox11").RowSource = Range("flash1").Address
End Sub

 

[zephir94]

Re : problème de liste dans une combobox

non toujours que le premier élément de la liste s'affiche dans la ComboBox

 

[camarchepas]

Re : problème de liste dans une combobox

essais comme cela alors


Sub UserForm_Activate()
Me.Controls("combobox11").List = Range("flash1").Value
End Sub

 

[zephir94]

Re : problème de liste dans une combobox

pareil ! helas

 

[camarchepas]

Re : problème de liste dans une combobox

Regardes du coté de ta déclaration de liste.

Voir le fichier joint

 

[camarchepas]

Re : problème de liste dans une combobox

Sans liste nommée:


Sub UserForm_Activate()
Me.Controls("combobox1").List = Feuil1.Range("A3:A15").Value
End Sub

 

[zephir94]

Re : problème de liste dans une combobox

hélas pareil ! j'ai regardé ton exemple mais sur une colonne ça marche, moi elle est sur une ligne ma liste

 

[camarchepas]

Re : problème de liste dans une combobox

Bon , assureùment , c'est ton intégration qui ne fonctionne pas .

il faudrait voir ton fichier ?

 

[laetitia90]

Re : problème de liste dans une combobox

bonsoir zephir94 , camarchepas

on peut tenter transpose avec list j'aime pas RowSource

Sub UserForm_Activate()
  ComboBox11.List = Application.Transpose(Range("flash1"))
End Sub

 

[zephir94]

Re : problème de liste dans une combobox

Je te remercie infiniment, ta proposition re joint
Toutes les recherches et essais que j'ai effectué hier soir !
En repartant d'un fichier vierge j'ai testé ceci qui fonctionne

Private Sub ComboBox2_GotFocus()
Dim i As Range
With Sheets("toto")
Set i = .Range("L34:M34")
End With
ComboBox2.List = Application.Transpose(Range("L34:M34").Value)
End Sub

J'ai pas eu le temps de tester dans mon fichier mais je vous tiens au courant,
Merci à vous deux

 

[zephir94]

Re : problème de liste dans une combobox

Bonjour Laetitia90,

Je viens de tester en utilisant ta proposition, cela fonctionne dans ma première Combobox.
Par contre si j'utilise pour déclarer une autre j'obtient une erreur 70 permission refusé alors que ma feuille n'est pas protégé ?

 

[laetitia90]

Re : problème de liste dans une combobox

re ,
il faudrait en dire plus sans fichier pas simple???

je viens de voir ton code a quoi sert GotFocus tu as une classe ???

Private Sub ComboBox1_DropButtonClick()

peut etre suffisant

......

Dim i As Range
With Sheets("toto")
Set i = .Range("L34:M34")
End With

sert a quoi ces lignes de code ????


encore....... ta combo...... 2 cellules un array suffisant

 

[zephir94]

Re : problème de liste dans une combobox

Bonjour Laetitia90,

J'ai testé cela dans un fichier vide en créant une combobox, mon fichier ne comporte pas de classe.
J'ai donc essayé avec uniquement :

  ComboBox11.List = Application.Transpose(Range("flash1"))

cela fonctionne pour ma première combo mais par contre

  ComboBox11.List = Application.Transpose(Range("flash1"))

  ComboBox1.List = Application.Transpose(Range("flash2"))

....
  ComboBox13.List = Application.Transpose(Range("inc1"))

à partir de la deuxième déclaration j'ai l'erreur " 70 permission refusé "

 

[camarchepas]

Re : problème de liste dans une combobox

Bonjour Zéphir ,

L'on revient au paragraphe 9 de cette discussion, sans fichier cela devient trés compliqué de t'aider .

y'a surement quelque chose de spécial sur ce classeur, on la mise en place comporte une anomalie