Problème boucle ComboBox

Bonsoir !

Un petit problème basique il me semble, mais qui me prend la tête, et donc je ne trouve aucune réponse potable sur Internet : j'ai 10 ComboBox sur ma feuille Excel, je veux faire une macro avec une boucle qui récupère une à une leur valeur.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

(blabla)   nb = 1 While ActiveCell.Value <> Empty   (blabla)   requete = Sheets("Données").ComboBox "variable".Text   ActiveCell.Offset(1, 0).Activate   nb = nb + 1   Wend

---

J'ai trouvé ça via Google :

Code:

---

Me.Controls("ComboBox" & nb).Text

---

Mais cela bug sur le "Me." qu'il me dit "non définit"...

Merci d'avance en tout cas !

bonjour

Code:

---

Sheets("Données").ComboBox "variable".Text

---

selon ta macro ta combo se trouve sur le sheet et apres tu parle de "me "representant un userform
elle est la ton erreur

elle est ou ta combo?????


au plaisir

Citation:

---

Envoyé par patricktoulon

tu parle de "me "representant un userform
elle est la ton erreur

---

Bonjour,

@ patrick
Pour info, "Me" ne représente pas forcément un UserForm mais représente l'objet du module dans lequel se trouve le code, qui peut très bien être une feuille.
Par exemple teste ceci dans le module de la feuille 1

Code:

---

1 2 3

Private Sub Worksheet_SelectionChange(ByVal Target As Range) MsgBox Me.Name End Sub

---

@ PtitGénie
Pour ce qui est de récupérer la valeur des Combo sur la feuille, tu peux procéder de cette manière :

Code:

---

1 2 3 4 5 6 7 8 9 10

Sub Boucle_Combobox() Dim Obj As OLEObject   For Each Obj In ActiveSheet.OLEObjects If TypeOf Obj.Object Is MSForms.ComboBox Then MsgBox Obj.Name & ": " & Obj.Object.Value End If Next Obj   End Sub

---

Merci à vous deux c'est nickel ^^