Bonjour à tous,

J'ai un petit soucis avec mon code VBA d'éffacement :

mon code :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
Private Sub CommandButton12_Click()
On Error Resume Next
Sheets("Feuil2").Unprotect
Sheets("Analyse").Unprotect
Range("A1:J227").SpecialCells(xlCellTypeConstants, xlNumbers).ClearContents
Feuil5.Range("A1:J227").SpecialCells(xlCellTypeConstants, xlNumbers).ClearContents
Sheets("Feuil2").Protect
Sheets("Analyse").Protect
End Sub
Je me sers de ce code pour effacer des données dans un tableau

Quand je clique sur le bouton "CommandButton12" pour effacer si j'ai saisi un chiffre simple dans un cellule (exemple : 36) il veut bien me l'effacer par contre si je saisie une formule (exemple : +15+21) il ne veut pas me l'effacer .

Je n'arrive vraiment pas à résoudre mon problème, si vous pouvez m'aider...
Merci d'avance

Mamanhou