Macro pour effacer différentes cellules dans un tableau avec bouton.

**seigneurchris** · 19/06/2011, 16h09

bonjour a toutes et tous
J'ai une macro pour effacer un groupe de cellules avec un bouton qui a un mot de passe avant execution de cette macro, mais mon problème est que s'à n'efface que les premières cellule

voici ma macro.

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
20
21
22
23
24
Sub Calendrier()
UserForm2.Show
End Sub
 
Private Sub CommandButton1_Click()
UserForm1.Hide
End Sub
 
Private Sub CommandButton2_Click()
 
If TextBox1.Text = "zizi" Then
Range("G5:K36, Q5:T33, AA5:AE36, AK5:AO35, AU5:AY36, BE5:BI35, BO5:BS36, BY5:CC36, CI5:CM35, CS5:CW36, DC5:G35, DM5:Q36").ClearContents
Else: MsgBox ("c'est pas le bon t'es trop nul!!!!!")
End If
TextBox1 = ""
UserForm1.Hide
End Sub
 
Private Sub Label1_Click()
 
End Sub
 
Private Sub UserForm_Click()
End Sub

les seules cellules qui s'effacent sont ("G5:K36") et les autres groupes non

pourriez vous m'aider et me dire ou est mon erreur!

Je vous mets mon fichier pour vous rendre compte..

d'avance merci