Discussion :

[Darvabus]

Bonjour,

J'ai un petit problème sur une feuille d'excel où j'ai inséré des macros.
En fait je pars d'une feuille qui sert de modèle, dans laquelle se trouvent des boutons radio. En cliquant sur un bouton sur une autre feuille, je vais dupliquer le modèle en un certain nombre de feuilles dont le nombre est variable.
Le problème, c'est que dans ces feuilles dupliquées, si je vais sur la première et que je sélectionne un des boutons radio, puis que je change de feuille et que je sélectionne un bouton radio de cette nouvelle feuille, le point noir indiquant ma sélection sur la première feuille disparait.
Je pense que le problème vient du fait que je ne renomme pas différemment les boutons radio de feuilles différentes, mais je ne sais pas si c'est la bonne explication, et si oui, je ne sais pas accéder aux propriétés des boutons radio en vba.

Est-ce que quelqu'un connait ce problème ou voit comment le résoudre ? en pièce jointe, j'ai fait un document avec la macro en question.

Merci d'avance !

[Daniel.C]

Bonjour,

Il est préférable d'utiliser le format zip que tout le monde peut lire que le format rar. Effectivement, tel qu'il se présente, ton code, tous les optionbuttons de toutes les feuilles ont le même groupname. J'ai modifié la macro pour leur donner un groupname égal au nom de la feuille créée.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub CommandButton1_Click()
Dim Sh As Shape
For i = 0 To 1
Sheets("modèle").Select
    Sheets("modèle").Copy After:=Sheets(2)
ActiveSheet.Name = "copie" & CStr(i)
For Each Sh In ActiveSheet.Shapes
    If Sh.Type = msoOLEControlObject Then
        If Sh.OLEFormat.progID = "Forms.OptionButton.1" Then
            nom = Sh.Name
            Sh.DrawingObject.Object.GroupName = "copie" & CStr(i)
        End If
    End If
Next Sh
Next i
End Sub

[Darvabus]

Merci beaucoup, ça marche nickel. Je prends note pour les .zip