Microsoft 365 Empecher suppression case d'option

raf26

XLDnaute Occasionnel
Bonjour,

J'ai une macro qui efface certaines données de mon fichier, mais pas les images et commandbutton.

Je voudrais que les cases d'option (je vais en avoir 96) ne soient pas effacées par cette macro.

Dois ajouter
......" And S.Name <> "OptionButton1" Then S.Delete..... et ainsi de suite pour mes 96 cases ?

Ou existe t il une solution plus rapide intégrant tous les cases d'option ?

Ci-dessous ma macro (sans les cases d'option) :

----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

Sub Macro1()
'
' Macro1 Macro
'
If MsgBox("Etes-vous certain de d'effacer toutes les donnees?", vbYesNo + vbExclamation, "ATTENTION") = vbYes Then
Range("B7").Select
Selection.ClearContents
Range("D14:I42").Select
Selection.ClearContents
Range("D47:I69").Select
Selection.ClearContents
Range("B7").Select

'Dim s As Shape
For Each S In ActiveSheet.Shapes
If Not (S.Name Like "Drop Down*") And S.Name <> "logo" And S.Name <> "sign rs" And S.Name <> "sign mrv" And S.Name <> "CommandButton1" And S.Name <> "CommandButton2" And S.Name <> "CommandButton3" Then S.Delete

Next S
MsgBox ("Les données ont été effacées !")
Else: MsgBox ("Effacement annulé")
End If

End Sub


----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

Merci d'avance

Cordialement
 

Robert

XLDnaute Barbatruc
Re,

Je ne comprends pas ton problème puisque tu as déjà utilisé la solution :

VB:
If Not (S.Name Like "OptionButton*") And Not (S.Name Like "Drop Down*") And ...
 

raf26

XLDnaute Occasionnel
Bonjour Robert,

Effectivement je n'avais pas pensé à intégrer ...S.Name Like "OptionButton*"... avec la petite étoile...dans ma macro comme pour Drop Down.


Merci pour votre réponse !
 

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas