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
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