Y
ya_v_ka
Guest
salut tout le monde
et oui encore moi (grrr)
j'avais créé un bouton qui fonctionnait... et qui maintenant refuse tous services ????
Private Sub CommandButton1_Click()
Wr = Worksheets("Stat").Range("J22")
ActiveSheet.Unprotect password:="zaza"
If Wr = Empty Then
Wr = Worksheets("trad").Range("A166")
Else
Wr.Select
Selection.ClearContents
End If
ActiveSheet.Protect password:="zaza", DrawingObjects:=True, Contents:=True, Scenarios:=True
Range("J24").Select
End Sub
je suis passé en option explicit... mais je ne comprends pas ce qui coince
si quelqu'un reconnait le problème... merci de me le faire savoir
ya'v
et oui encore moi (grrr)
j'avais créé un bouton qui fonctionnait... et qui maintenant refuse tous services ????
Private Sub CommandButton1_Click()
Wr = Worksheets("Stat").Range("J22")
ActiveSheet.Unprotect password:="zaza"
If Wr = Empty Then
Wr = Worksheets("trad").Range("A166")
Else
Wr.Select
Selection.ClearContents
End If
ActiveSheet.Protect password:="zaza", DrawingObjects:=True, Contents:=True, Scenarios:=True
Range("J24").Select
End Sub
je suis passé en option explicit... mais je ne comprends pas ce qui coince
si quelqu'un reconnait le problème... merci de me le faire savoir
ya'v