XL pour MAC Macro VBA suppression des données en gardant la mise en page des cellules

[Chloé Dubois]

Bonjour à tous,
J'ai un soucis avec le code :

Sub Reset()
If MsgBox("Confirmez-vous la supression de la simulation ?", vbYesNo, "Demande de confirmation de suppression") = vbYes Then
Range("E8:E10").Clear
Range("E12:E13").Clear
Range("E17:E19").Clear
Range("E22:E23").Clear
Range("G22:G25").Clear
Range("E27").Clear
Range("F21").Clear
Range("E29").Clear
Range("E25").Clear
Range("E32").Clear
Range("E33").Clear
End If
End Sub

Le code fonctionne , il m'affiche la confirmation et supprime mes données des cellules que je lui ai indiqué mais il supprime aussi la mise en page de mes cellules.
Seriez-vous comment je peux lui indiquer que je souhaite garder la mise en page de ma simulation ?

 

[Nairolf]

Salut Chloé,

Essaye avec ClearContents au lieu de Clear.

 

[Bernard_XLD]

Bonjour Chloé, Nairolf, le forum

Ce code effacera valeurs et formules en une passe.

Bien cordialement,@+

Sub Reset()
If MsgBox("Confirmez-vous la supression de la simulation ?", vbYesNo, "Demande de confirmation de suppression") = vbYes Then _
    Range("E8:E10,E12:E13,E17:E19,E22:E23,E25,E27,E29,E32:E33,F21,G22:G25").ClearContents
End Sub