Modification de code "effacer donnée"

Résolu
serco19 Messages postés 65 Statut Membre -  
serco19 Messages postés 65 Statut Membre -
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

  1. yg_be Messages postés 23437 Date d'inscription   Statut Contributeur Dernière intervention   Ambassadeur 1 588
     
    bonjour, peut-être:
    Range("A7:S12").SpecialCells(xlCellTypeConstants).ClearContents

    cela donnera une erreur si toutes les cellules contiennent des formules.
    0
    1. serco19 Messages postés 65 Statut Membre
       
      Bonsoir ok merci de votre aide , parfait
      0