Conserver la formule après un clearcontents en VBA

Bonjour,

Comment conserver la formule après un clearcontents en VBA ?

Lorsque j’efface une plage sur une feuille, j’aimerai conserver la formule, j’ai lu quelque part que ceci était possible, mais je n’arrive pas à mettre le main dessus
D’où ma question comment effacer juste le contenu d’une feuille ?

Merci de vos réponses

Cordialement,

Henri

Bonjour

a tester et adapter

Code:

---

1 2 3 4 5 6 7 8 9

Sub ClearCellWithoutFormula() Dim Cell As Range   For Each Cell In Range("A11:H25") ' a adapter If Not Cell.HasFormula Then Cell.ClearContents End If Next End Sub

---

bonne journée

En fait, il me faut quelque chose comme ceci :

Code:

---

Range("A1:A10").SpecialCells(xlCellTypeConstants).ClearContent

---

Merci pour la réponse :ccool:,
Henri

salut

a tester est adapter a ton cas de figure

Code:

---

1 2 3 4 5 6 7 8

Sub RemoveConstants()   Dim rConstants As Range   Set rConstants = Sheet1.Range("A1:B2").SpecialCells(xlCellTypeConstants) rConstants.ClearContents   End Sub

---

merci