Discussion :

[CeluiQuiCherche]

bonjour,

j'utilise Excel 2016 sous Windows 7.

Je voudrais modifier, à l'aide d'une macro, les GroupName d'OptionButton mais j'ai une erreur 438 quand je veux mettre un No d'OptionButton variable.

Ce code Fonctionne:

Code :

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

1
2
3
4
5
Sub Modif_Objet2()
 
    Feuil1.OptionButton1.GroupName = "a"
 
End Sub

Ce code ne fonctionne pas --> erreur 438:

Code :

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

1
2
3
4
5
6
7
Sub Modif_Objet2()
 
    i = 1
 
    Feuil1.OLEObjects("OptionButton" & i).GroupName = "a"
 
End Sub

Ce code fonctionne:

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub Modif_Objet()
 
    For i = 40 To 171
        With Feuil1.OLEObjects("OptionButton" & i)
            .Width = 9.75
            .Height = 18
        End With
    Next i
 
End Sub

Ce code ne fonctionne pas --> erreur 438:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub Modif_Objet()
 
    For i = 40 To 171
        With Feuil1.OLEObjects("OptionButton" & i)
            .Width = 9.75
            .Height = 18
            .GroupName = "a"
        End With
    Next i
 
End Sub

Quelqu'un peut-il m'expliquer pourquoi?

Par avance, merci.