Discussion :

[Henri-gp]

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

[BERRACHED SAID]

Bonjour

a tester et adapter

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Henri-gp]

En fait, il me faut quelque chose comme ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Merci pour la réponse ,
Henri

[BERRACHED SAID]

salut

a tester est adapter a ton cas de figure

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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