Modification de code "effacer donnée" [Résolu/Fermé]

Signaler
Messages postés
63
Date d'inscription
dimanche 11 février 2018
Statut
Membre
Dernière intervention
6 septembre 2020
-
Messages postés
63
Date d'inscription
dimanche 11 février 2018
Statut
Membre
Dernière intervention
6 septembre 2020
-
Bonjour,
voila j'ai créer une petite macro, pour effacer des données dans une sélection de plages =
' Effacer_Données Macro
'

'
Range("A7:S12").Select
Selection.ClearContents
End Sub
Mon soucis c'est quand j'exécute la macro, les formules disparaissent également, d'où ma question : Est 'il possible e modifier le code de manière de conserver les formules et effacer les données des cellules
merci de votre aide

1 réponse

Messages postés
16050
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
17 juin 2021
867
bonjour, peut-être:
Range("A7:S12").SpecialCells(xlCellTypeConstants).ClearContents

cela donnera une erreur si toutes les cellules contiennent des formules.
Messages postés
63
Date d'inscription
dimanche 11 février 2018
Statut
Membre
Dernière intervention
6 septembre 2020

Bonsoir ok merci de votre aide , parfait