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

Chloé Dubois · 28 Avril 2021

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 · 28 Avril 2021

Salut Chloé,

Essaye avec ClearContents au lieu de Clear.

Bernard_XLD · 28 Avril 2021

Bonjour Chloé, Nairolf, le forum

Ce code effacera valeurs et formules en une passe.

Bien cordialement,@+

Code:

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

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

Chloé Dubois

XLDnaute Nouveau

Nairolf

XLDnaute Accro

Bernard_XLD

XLDnaute Barbatruc

Discussions similaires