combobox

[pas doué]

bonjour
j'ai un problème
voila jai cette ligne
.Shapes.Range(Array(3, 4, 5).Visible = False
pour dire que mes image 3....5 sont invisible
et jai besoin de faire pareil pour des combobox
dc jai penser a ca

.ComboBox(Array(4, 5)).Visible = False

mais apparament j'ai mal penser
quelqu'un peu m'aider????je suis sur que ca doit pas ètre si compliquer que ca mais je doit pas connaitre encore suffisament VB pour y arriver
merci de votre aide

 

[_Thierry]

Bonjour Toi ('pas doué' n'est pas très joli comme pseudo)
Bonjour le Forum

D'après ce que je comprends tu parles d'ActiveX Contrôles 'ComboBox' sur une Feuille Excel. (Provenant de la Barre d'Outils Numéro 2 ci-dessous)



Si tel est le cas, il faut une approche un peu plus délicate car nous parlons d' 'OLE Objects'...

Voici une suggestion de code, sous réserve que les ComboBox4 et ComboBox5 existent bien sur la feuille nommée 'Feuil1' :

Sub IniComboBoxOLEObject()
Dim CTRL As OLEObject
Dim Number As Variant

    For Each CTRL In Sheets('Feuil1').OLEObjects
        If CTRL.ProgId = 'Forms.ComboBox.1' Then
            CTRL.Visible = True
            For Each Number In Array(4, 5)
                    If Val(Right(CTRL.Name, 1)) = Number Then
                        CTRL.Visible = False
                    End If
            Next Number
        End If
    Next CTRL

End Sub

Bon Dimanche
[ol]@+Thierry[/ol]

 

[pas doué]

pour le surnom c vrai que c pas forcement jolie

pour le reste je vais m'expliquer un peu mieu
jai ca

With Sheets('feuille1')
If ComboBox1 = 'blabla1' Then

.Shapes.Range(Array(1, 2)).Visible = True
.Shapes.Range(Array(3, 4, 5, 6, 7, 8, 9, 10)).Visible = False

pour mes image

et j'aimerais avoir pareil pour mes combobox....en fait c la ligne
.Shapes.Range(Array(3, 4, 5, 6, 7, 8, 9, 10)).Visible
que je souhaiterais transformer pour que cela foncionne sur combobox
voila
merci

 

[_Thierry]

RE Bonjour

Oui c'est très bien tout ceci, mais tu n'as pas expliqué de quelle source sont tes ComboBox, si ce sont des 'OLEObject', tu nauras pas d'autres choix que de travailler autour de ma proposition, si ce sont des Objets 'Formulaire' d'Excel, je ne les utilise plus depuis belle lurette et je conseille d'en faire autant sauf si tu es sous environnement Mac.

Bon Dimanche
[ol]@+Thierry[/ol]