Excel VBA Zone combinée

Version imprimable

bonjour à tous, je débute en vba et je cherche à faire une macro qui récupère la valeur d'une zone combiné, mais j'ai un message d'erreur : Erreur de compilation Objet requis.

Voici le code :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
Sub ZoneCombCase()
    Set sZoneCCase = ActiveSheet.Shapes("Zone combinée 190").ControlFormat. _
    List(ActiveSheet.Shapes("Zone combinée 190").ControlFormat.ListIndex)
    Select Case sZoneCCase
        Case "?":  MsgBox "ERREUR,,vbOKOnly"
        Case "1": set sHub = "1"
        Case "2": set sHub = "2"
        Case "3": set sHub = "3"
        Case "4": set sHub = "4"
       End Select
    MsgBox sHub
End Sub

Merci pour votre aide.

Bonsoir,

Tu peux utiliser :

Code:

1
2
3
4
With Worksheets("Feuil1")
    MsgBox .DropDowns("Zone combinée 190").List _
        (.DropDowns("Zone combinée 190").ListIndex)
End With

bonne soirée
michel

09/04/2009, 01h53
rpierre

merci pour ta réponse SilkyRoad, mais comment faire pour avoir la valeur dans une variable texte afin de faire les "case" ?

Bonsoir,

je ne suis pas sur de bien comprendre ta question :

Code:

1
2
3
4
5
6
7
8
Dim strVar As String
 
With Worksheets("Feuil1")
    strVar = .DropDowns("Zone combinée 190").List _
        (.DropDowns("Zone combinée 190").ListIndex)
End With
 
MsgBox strVar

bonne soirée
michel

20/04/2009, 18h53
rpierre

Excel VBA Zone combinée

bonsoir Silkyroad,
merci pour ton aide, c'est exactement ce que je cherchai.