Re post Sélection Combobox Le sujet est résolu

Y compris Power BI, Power Query et toute autre question en lien avec Excel
A
Alf0622
Jeune membre
Jeune membre
Messages : 12
Inscrit le : 16 mars 2016
Version d'Excel : 2013

Message par Alf0622 » 18 mars 2016, 08:17

Bonjour je souhaiterais sélectionner différente case en ligne grâce au combobox mais j'obtient ceci, cela me sélectionne toute la ligne (voir pièce jointe)

Je l'obtiens grâce au code suivant
Private Sub UserForm_Initialize()

 Liste2.RowSource = "Données!$C$3:$F$3"

End Sub

VBA pays.png
Avatar du membre
Avie
Membre fidèle
Membre fidèle
Messages : 211
Inscrit le : 16 février 2016
Version d'Excel : 2010

Message par Avie » 18 mars 2016, 08:59

Salut,

Essaye ceci :
Private Sub UserForm_Initialize()

 Liste2.list = Worksheets("Données").Range("C3:F3").Value

End Sub


Pas facile de répondre à ta demande avec un simple screen :?
Cordialement,
Avie.
Avatar du membre
d3d9x
Membre dévoué
Membre dévoué
Messages : 950
Appréciations reçues : 2
Inscrit le : 14 avril 2015
Version d'Excel : 2007

Message par d3d9x » 18 mars 2016, 09:05

Je pense plutôt qu'il veut avoir une liste verticale...
Private Sub UserForm_Initialize()
 Liste2.list = WorksheetFunction.Transpose(Range("C3:F3"))
End Sub
“En temps de paix, les fils ensevelissent leurs pères ; en temps de guerre, les pères ensevelissent leurs fils. Sommes-nous en guerre Père?”
A
Alf0622
Jeune membre
Jeune membre
Messages : 12
Inscrit le : 16 mars 2016
Version d'Excel : 2013

Message par Alf0622 » 18 mars 2016, 09:07

Avie a écrit :Salut,
Essaye ceci :
Private Sub UserForm_Initialize()

 Liste2.list = Worksheets("Données").Range("C3:F3").Value

End Sub


Pas facile de répondre à ta demande avec un simple screen :?
Bonjour, merci de votre réponse, mais mon problème persiste, dans le combobox toute la ligne est sélectionné et pas seulement le pays que je souhaite :?

Coridalement

d3d9x a écrit :Je pense plutôt qu'il veut avoir une liste verticale...
Private Sub UserForm_Initialize()
 Liste2.list = WorksheetFunction.Transpose(Range("C3:F3"))
End Sub

Bonjour, merci de votre aide j'obtiens exactement ce que je souhaitais.
Merci et bonne journée
Cordialement
good pays.png
good pays.png (9.91 Kio) Vu 340 fois
pays VBA 2.png
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message