Modification de code "effacer donnée"

Résolu/Fermé
serco19 Messages postés 62 Date d'inscription dimanche 11 février 2018 Statut Membre Dernière intervention 6 septembre 2020 - 3 févr. 2019 à 15:43
serco19 Messages postés 62 Date d'inscription dimanche 11 février 2018 Statut Membre Dernière intervention 6 septembre 2020 - 3 févr. 2019 à 20:31
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
A voir également:

1 réponse

yg_be Messages postés 23333 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 18 novembre 2024 Ambassadeur 1 551
Modifié le 3 févr. 2019 à 17:22
bonjour, peut-être:
Range("A7:S12").SpecialCells(xlCellTypeConstants).ClearContents

cela donnera une erreur si toutes les cellules contiennent des formules.
0
serco19 Messages postés 62 Date d'inscription dimanche 11 février 2018 Statut Membre Dernière intervention 6 septembre 2020
3 févr. 2019 à 20:31
Bonsoir ok merci de votre aide , parfait
0