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
 

Discussions similaires

Statistiques des forums

Discussions
311 720
Messages
2 081 900
Membres
101 834
dernier inscrit
Jeremy06510