Discussion :

[MAMANHOU]

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

[tomy7]

essaye ca:

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

[MAMANHOU]

Bonjour tomy7,

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

marteau:
Mamanhou

[tomy7]

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

[MAMANHOU]

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

Code :

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

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

[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!