Numéroter une ComboBox ?

Version imprimable

22/10/2012, 11h11
Losey01

Numéroter une ComboBox ?

Bonjour à tous,

J'aurais aimé savoir s'il l'était possible de numéroter une Combobox.
Je m'explique: j'ai dans une feuille Excel 48 ComboBox. Je voulais savoir si avec une boucle on pouvait passer d'une combobox à l'autre.
Du type:

For i=1 to 48
If Comboboxi <> "" then ...
next i

Cela n'est peut etre pas possible mais ç'a m'éviterait de copier coller ma macro pour toutes les ComboBox !

Merci pour votre aide

Bonne journée :D
22/10/2012, 12h13
Didier Gonard

Bonjour,

Citation:

Envoyé par Losey01

Cela n'est peut etre pas possible mais ç'a m'éviterait de copier coller ma macro pour toutes les ComboBox !

la solutions raisonnable est de passer par un module de classe, sinon bon courage pour le développement la maintenance etc... le moindre changement = 48 changements ;)

http://excel.developpez.com/faq/?pag...lationTxtBoxWs

http://excel.developpez.com/faq/?pag...ontroleFeuille

sinon vois ici : http://silkyroad.developpez.com/VBA/...UserForm/#LI-B

cordialement,

Didier

Bonjour,

Il y a plusieurs façons de faire référence à des contrôles posés sur une feuille Excel.
Si c'est un objet "Formulaire" :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
 
Sub Test()
 
    Dim Fe As Worksheet
    Dim S As Shape
    Dim I As Integer
 
    Set Fe = Worksheets("Feuil1")
 
    For Each S In Fe.Shapes
 
        'valeur choisie dans la liste
        Debug.Print S.ControlFormat.Value
 
        'nom du contrôle
        Debug.Print S.Name
 
    Next S
 
    For I = 1 To Fe.Shapes.Count
 
        'valeur choisie dans la liste
        Debug.Print Fe.Shapes("Zone combinée " & I).ControlFormat.Value
 
    Next I
 
End Sub

Si c'est un contrôle ActiveX :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
Sub Test()
 
    Dim Fe As Worksheet
    Dim Ctrl As OLEObject
 
    Set Fe = Worksheets("Feuil1")
 
    For Each Ctrl In Fe.OLEObjects
 
        'valeur choisie
        If TypeName(Ctrl.Object) = "ComboBox" Then
 
            Debug.Print Ctrl.Object
 
        End If
 
        'nom du contrôle
        Debug.Print Ctrl.Name
 
    Next Ctrl
 
End Sub

Hervé.

Salut,
si tes combobox se nomment ComboBox1,ComboBox2,...ComboBox34

Code:

1
2
3
4
For c = 1 To 34
            Controls.Item("ComboBox" & c).AddItem "(sans correspondance)"      
 
        Next c