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:
Ce code ne fonctionne pas --> erreur 438:
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 fonctionne:
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 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 Sub Modif_Objet() For i = 40 To 171 With Feuil1.OLEObjects("OptionButton" & i) .Width = 9.75 .Height = 18 End With Next i End Sub
Quelqu'un peut-il m'expliquer pourquoi?
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
Par avance, merci.
Partager