Liste deroulante outil de controle géré par vba

[bartelele]

Bonsoir le forum,

Une question de débutant mais je n'arrive pas à trouver la réponsé...

Je veux faire une liste déroulante via un outil de contrôle donc une combobox.

Je cré mon code dans vba, mais ca marche pas, et je m'arrache doucement mais cheveux 😱


Si quelqu'un peut m'aider 🙂

 

[Softmama]

Re : Liste deroulante outil de controle géré par vba

Bonsoir,

Modifie ton code comme ceci (en rouge) pour que ça fonctionne :

Private Sub ComboBox1_[COLOR="Red"]GotFocus[/COLOR]()
Dim i As Integer

Me.ComboBox1.Clear
i = 2
Do Until ActiveWorkbook.Sheets("Feuil2").Cells(i, [COLOR="Red"]2[/COLOR]) = ""
    Me.ComboBox1.AddItem (ActiveWorkbook.Sheets("Feuil2").Cells(i, [COLOR="Red"]2[/COLOR]))
    i = i + 1
Loop
End Sub

En effet, l'évènement "change" sur une combobox vide risquait pas de se déclencher et tes données étaient ds la feuille 2, colonne B et non A!

 

[Staple1600]

Re : Liste deroulante outil de controle géré par vba

Bonsoir


Une question en passant
Cette syntaxe est-elle fonctionnelle?

Private Sub ComboBox1_GotFocus()
Dim i As Integer
Me.ComboBox1.Clear
i = 2
With ActiveWorkbook.Sheets("Feuil2").Cells(i, 2)
Do Until .value = ""
    Me.ComboBox1.AddItem .Text
    i = i + 1
Loop
End with
End Sub

PS: j'ai testé sans succès sur OOO
(Pas d'Excel sur ce PC)

EDITION: Il me parait que zon m'a dit que je commençais à boucler, boucler, mais boucler de chez boucler 😉

(Pourtant avec ce qu'il me reste de tif, ca devrait pas )

 

[ROGER2327]

Re : Liste deroulante outil de controle géré par vba

Re...

(…)
Cette syntaxe est-elle fonctionnelle?
(…)

À mon avis, non. La référence requise par .Value étant déclarée avant la boucle Do… …Loop, de deux choses l'une : où cette boucle ne s'exécute pas, où elle s'exécute éternellement (si on a la naïveté enfantine de croire à l'éternité).
Ce n'est qu'un avis… …que votre expérience semble corroborer.
​

ROGER2327
#4581

Samedi 21 As 138 (Saint Possible, schizophrène, SQ)
3 Frimaire An CCXIX
2010-W47-2T23:29:53Z

 

[Staple1600]

Re : Liste deroulante outil de controle géré par vba

Bonsoir

Merci ROGER2327

Le code proposé par Softmama ne fonctionne pas non plus sur OOO.
Qu'en est-il sur Excel ?

 

[ROGER2327]

Re : Liste deroulante outil de controle géré par vba

Re...

Testé dans le classeur d'essai du message #1 : ça fonctionne.
​

ROGER2327
#4582

Dimanche 22 As 138 (Saint Lautréamont, SS)
4 Frimaire An CCXIX
2010-W47-3T00:18:18Z

 

[ROGER2327]

Re : Liste deroulante outil de controle géré par vba

Re...

bonjour bartelele
salutations ROGER2327,Staple1600,Softmama🙂
je pense (mais il est tard🙄) qu'un

Private Sub ComboBox1_DropButtonClick()
'le code 
End Sub

serrait plus adapté , de bien entendu avec un bon code d'alimentation du contrôle ComboBox 😉

Sûr ! C'est plus mieux !
​

Bonne nuit !

ROGER2327
#4584

Dimanche 22 As 138 (Saint Lautréamont, SS)
4 Frimaire An CCXIX
2010-W47-3T01:36:02Z

 

[bartelele]

Re : Liste deroulante outil de controle géré par vba

arf autant pour moi, j'en apprends tous les jours ici 🙂

merci à vous