XL 2013 [résolu] Effacer le contenu d'une plage de cellule si checkbox est cochée

[arkheos]

Bonjour,

Excel 2016 n'étant pas dans la liste, je l'ai rajouté dans mon titre sur le conseil d'un autre membre.

Je viens donc solliciter de nouveau votre aide car je n'arrive pas à le faire moi même.

Je souhaite que lorsque je coches une checkbox qui se situe sur mon userform "saisie d'une commande", une plage de cellule de la première ligne de la feuille Slitter (ligne 4) soit effacée. Cette ligne est créée lorsque je valide la saisie de commande.

C'est là mon problème, je parviens à effacer le contenu des cellules mais sur la ligne du dessous (ligne 5).

Je vous joins le fichier afin que vous compreniez mieux.

Merci de votre aide.

Cordialement

 

[Lone-wolf]

Re : Effacer le contenu d'une plage de cellule si checkbox est cochée ! Excel 2016 !

Bonsoir arkeos, Le Forum.

Tout d'abord, il faudrait vraiment mettre des checkbox. ensuite dans la feuille tu met ceci.

Private Sub Slitter1_Click()
If Me.Slitter1.Value = True Then
Range("a4").EntireRow.ClearContents
End If
End Sub


A+

 

[Lone-wolf]

Re : Effacer le contenu d'une plage de cellule si checkbox est cochée ! Excel 2016 !

tu peux aussi faire comme cela, sans checkbox.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("g2")) Is Nothing Then
Range("a4").EntireRow.ClearContents
End If
End Sub

A+

 

[arkheos]

Re : Effacer le contenu d'une plage de cellule si checkbox est cochée ! Excel 2016 !

Bonjour Lone-wolf,

merci de t'intéresser à mon problème.

j'ai due mal m'expliquer, les checkbox existent bien. Elles sont sur le userform qui apparait lorsque l'on clique sur le bouton "saisir une commande" sur la feuille "planning"



ce que je voudrai, c'est que lorsque je choisi la checkbox1, la ligne créée dans la feuille "slitter" ne comporte pas de valeur dans la plage de cellule L4-N4.



j'espère que mon explication est plus claire ?

Cordialement

 

[Lone-wolf]

Re : Effacer le contenu d'une plage de cellule si checkbox est cochée ! Excel 2016 !

Re arkheos,

et bien tu reprend le code que je t'ai montrer pour la checkbox en le modifiant comme ceci.

Private Sub Slitter1_Click()
If Me.Slitter1.Value = True Then
Sheets("Slitter").Range("L4:N4").ClearContents
End If
End Sub

Re: je viens de voir le code dans le formulaire et tu as ceci

Private Sub checkbox1_click() 'efface le slitter 2
If CheckBox1.Value = True Then
Sheets("Slitter").Range("K4:N4").ClearContents
End If
End Sub

Tu aurais pu modifier K par L.



A+

 

[arkheos]

Re : Effacer le contenu d'une plage de cellule si checkbox est cochée ! Excel 2016 !

Bonsoir,

Private Sub checkbox1_click() 'efface le slitter 2
If CheckBox1.Value = True Then
Sheets("Slitter").Range("K4:N4").ClearContents
End If
End Sub
[/CODE]

Tu aurais pu modifier K par L.

désolé, j'avais pas fait attention.

Toujours est il que ton code ne fonctionne pas, je pense que le problème vient de ce code :

Sheets("Slitter").ListObjects("Tableau2").ListRows(1).Range.Insert xlShiftDown

qu'en penses tu ?

Merci pour ton aide.

Cordialement.

 

[arkheos]

Re : Effacer le contenu d'une plage de cellule si checkbox est cochée ! Excel 2016 !

J'y suis finalement parvenu !

il suffisait de mettre le code au bon endroit ! c'était tout simple ...

Merci pour ton aide

 

[Lone-wolf]

Re : [résolu] Effacer le contenu d'une plage de cellule si checkbox est cochée

Bonsoir arkheos,

ravi de t'avoir aidé.

A+