Liste deroulante outil de controle géré par vba

S

Softmama

XLDnaute Accro

• 23 Novembre 2010

• #2

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

Bonsoir,

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

Code:

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!

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 23 Novembre 2010

• #3

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

Bonsoir


Une question en passant
Cette syntaxe est-elle fonctionnelle?

Code:

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 )

 

Dernière édition: 23 Novembre 2010

Vote positif 0 Vote négatif

ROGER2327

XLDnaute Barbatruc

• 24 Novembre 2010

• #4

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

Re...

Staple1600 à dit:

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

Cliquez pour agrandir...

À 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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 24 Novembre 2010

• #5

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 ?

 

Vote positif 0 Vote négatif

ROGER2327

XLDnaute Barbatruc

• 24 Novembre 2010

• #6

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

 

Vote positif 0 Vote négatif

ROGER2327

XLDnaute Barbatruc

• 24 Novembre 2010

• #7

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

Re...

carcharodon-carcharias à dit:

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

Code:

Private Sub ComboBox1_DropButtonClick()
'le code 
End Sub

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

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

B

bartelele

Guest

• 24 Novembre 2010

• #8

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

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

merci à vous

 

Vote positif 0 Vote négatif