Microsoft 365 Empecher suppression case d'option

[raf26]

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]

Re,

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

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

 

[raf26]

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 !