Code VBA pour effacement de contenu de cellules

Version imprimable

Bonjour à tous,

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

mon code :
Code:

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

essaye ca:

Code:

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").ClearContents
Range("A1:J227").ClearContents
Sheets("Feuil2").Protect
Sheets("Analyse").Protect
End Sub

18/03/2008, 15h35
MAMANHOU

Bonjour tomy7,

Je viens d'essayer et là il m'efface tout même mes libellés de colonnes...

marteau:
Mamanhou
18/03/2008, 15h42
tomy7

tu veux effacer quoi je comprends pas et tu ne veux pas effacer quoi?

j'ai délimité les zones à effacer :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Private Sub CommandButton12_Click()
On Error Resume Next
Sheets("Feuil2").Unprotect
Sheets("Analyse").Unprotect
Exploitation = "b8,d8:j8,d9:j11,D14:J15,d18:j19,d22:j24,d27:j32,d35:j36,d39:j42,d49:j49,d59:j61"
Bilan = "d69:j71,d73:j74,d77:j79,d82:j84,d87:j92,d95:j95,d102:j102,d108:j108,d115:j115"
Retraitement = "d125:j125,d128:j129,d135:j137,d141:j145,d149:j153,d156:j157"
Flux = "d224:i226"
Soldes = "d185:j186"
 
Feuil4.Range(Exploitation).ClearContents
Feuil4.Range(Bilan).ClearContents
Feuil4.Range(Retraitement).ClearContents
Feuil4.Range(Flux).ClearContents
Feuil4.Range(Soldes).ClearContents
 
Sheets("Feuil2").Protect
Sheets("Analyse").Protect
End Sub

Cà marche comme cela, mais il y avait peutêtre plus simple ???

Merci beaucoup pour ta réponse et ton aide.
Mamanhou

18/03/2008, 15h51
tomy7

Si tu veux garder les formules il y a plus simple.

Si tu veux effacer que certaine partie et garder du texte, je ferai un truc dans le meme style.

Apres peut etre que quelqu un a mieu...

Si c est simple et rapide, te prends pas la tete... et continue avec ca!