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 : Sélectionner tout - Visualiser dans une fenêtre à part
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.