Discussion :

[PtitGénie]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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

Merci d'avance en tout cas !

[patricktoulon]

bonjour

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[fring]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[PtitGénie]

Merci à vous deux c'est nickel ^^