bouton_clic qui ne marche plus

[ya_v_ka]

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

 

[CBernardT]

Bonsoir Ya_v_ka

Essayes ce code :

Private Sub CommandButton1_Click()
Dim Wr As Range
Set Wr = Worksheets("Stat").Range("J22")
ActiveSheet.Unprotect Password:="zaza"
If Wr = Empty Then
Wr = Worksheets("trad").Range("A166")
Else
Wr.ClearContents
End If
ActiveSheet.Protect Password:="zaza", DrawingObjects:=True, Contents:=True, Scenarios:=True
Range("J24").Select
End Sub

Cordialement

CBernardT

 

[ya_v_ka]

salut cbernard

merci ca marche

j'avais essayé le dim wr as range, mais il me manquais le set...

mais pour le wr.clearcontents ca ne marche pas, j'ai du reveni à wr.select/selection.clearcontents je crois que c'est par-ce que J22 est une celulle fusionnée

encore merci pour ce set de dépannage

ya'v

 

[CBernardT]

Bonjour Ya_v_ka

Je voudrais pas te faire misère mais si le code :

wr.select
Selection.clearcontents

fonctionne, le code :

Wr.ClearContents

fonctionne aussi donc le bug est ailleurs.

Cordialement

CBernardT

 

[fodjio]

Salut tout le monde,

je vais mettre tous le monde d'accord

il faut faire :

Wr.Cells.ClearContents


car Selection fait référence aux cellules de la feuille et non à la feuille elle-même