Utilisation des "Optionbutton" lors d'une duplication d'onglets

[heth]

Bonjour à tous,
j'ai un petit problème avec un fichier excel comportant un onglet avec des données et des "optionbutton". Quand je duplique mon onglet via une procédure vba (qui fonctionne bien) j'ai un deuxième onglet avec bien entendu le même contenu que celui dupliqué. Le seul problème c'est les boutons radio ainsi dupliqués ont le même "groupname" que les anciens et du coup dès que je clique sur les boutons ça modifie mon choix sur l'autre onglet car c'est le même "groupname".
est ce que qq a une réponse?
merci d'avance.

 

[Cousinhub]

Re : Utilisation des "Optionbutton" lors d'une duplication d'onglets

Bonsoir,

ce code copie ta feuille, la renomme en "essai" (à adapter), et met les optionbutton dans un groupname, nommé du nom de la feuille...

Sub Macro1()
ActiveSheet.Copy after:=Sheets(Sheets.Count)
ActiveSheet.Name = "essai"
For Each sh In ActiveSheet.OLEObjects
    If sh.Name Like "OptionButton*" Then
        sh.Object.GroupName = ActiveSheet.Name
    End If
Next sh
End Sub

 

[MJ13]

Re : Utilisation des "Optionbutton" lors d'une duplication d'onglets

Bonjour Heth

Soit tu ne copies pas tes boutons en décochant dans les options Modification Couper, copier et trier les objets.

Soit tu changes le liens de tes boutons sur ta feuille nouvellement crée.

Ah Bonjour Hubert, plus rapide et en plus du code!

 

[heth]

Re : Utilisation des "Optionbutton" lors d'une duplication d'onglets

Bonsoir,

ce code copie ta feuille, la renomme en "essai" (à adapter), et met les optionbutton dans un groupname, nommé du nom de la feuille...

Sub Macro1()
ActiveSheet.Copy after:=Sheets(Sheets.Count)
ActiveSheet.Name = "essai"
For Each sh In ActiveSheet.OLEObjects
    If sh.Name Like "OptionButton*" Then
        sh.Object.GroupName = ActiveSheet.Name
    End If
Next sh
End Sub

merci pour la réponse.
Le seul problème c'est que sur la feuille j'ai plusieurs boutons radio appartenant à des groupes différents et donc si j'applique "sh.Object.GroupName = ActiveSheet.Name" ils vont tous appartenir au même groupe...
est ce que tu as une solution?
D'avance merci.

 

[heth]

Re : Utilisation des "Optionbutton" lors d'une duplication d'onglets

Pb résolu merci à tous pour vos réponses.
Pour info j'ai utilisé un compteur au niveau du nom qui s'incrémente à chaque duplication.
sh.Object.GroupName = sh.Object.GroupName & ActiveSheet.Name