probléme avec case à cocher

[eclairalundra]

salut à tous
en feuil1 j'ai un premier dossier avec une case à cocher en face de chaque ligne, quand je la coche la ligne elle va bien ce collé sur la feuil2 mais le souci c quand je la décoche "avec la macro que j'ai faite"c la ligne complete qui s'en va
j'aurais voulu que ce soit que le texte
merci de m'aider voici ma macro(je crois que le souci viens de .delete


Private Sub CheckBox1_Click()

If CheckBox1 Then
Worksheets("feuil1").Range("A1:B1").Copy _
Destination:=Worksheets("feuil2").Range("A1:B1")
Else
Worksheets("feuil2").Range("A1:B1").Delete
End If

End Sub

 

[Eric_C]

Bonjour le forum
Bonjour Eclairalundra

Je n'ai pas tout saisi car au vu de ton code, seules les cellules A1&B1 sont vidées si tu avais des données en C, elles sont restées bien que décalées vers la gauche après l'action de "décochage". Si tu ne veux affecter que tes cells A1&B1 remplace .Delete par .Clear
Reste sur ce fil en cas de problème;

Bon ouikand à toutes & à tous

@ + Eric C

 

[lea]

Bonjour,

Dans ton code remplace l'instruction "Delete" par "Clear"
Worksheets("feuil2").Range("A1:B1").Clear
Léa

 

[eclairalundra]

Je vous remercie beaucoup c exactement ça que je recherchais
un souci de moins