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

Lone-wolf

XLDnaute Barbatruc

• 24 Octobre 2015

• #2

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+

 

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 24 Octobre 2015

• #3

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

tu peux aussi faire comme cela, sans checkbox.

Code:

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+

 

Vote positif 0 Vote négatif

A

arkheos

XLDnaute Nouveau

• 24 Octobre 2015

• #4

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

 

Pièces jointes

• Capture1.jpg

  46.6 KB · Affichages: 54
• Capture2.jpg

  62.1 KB · Affichages: 49

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 24 Octobre 2015

• #5

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.

Code:

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

Code:

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+

 

Dernière édition: 24 Octobre 2015

Vote positif 0 Vote négatif

A

arkheos

XLDnaute Nouveau

• 24 Octobre 2015

• #6

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

Bonsoir,

Re: je viens de voir le code dans le formulaire et tu as ceci [CODE à dit:

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.

Cliquez pour agrandir...

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

Cliquez pour agrandir...

qu'en penses tu ?

Merci pour ton aide.

Cordialement.

 

Vote positif 0 Vote négatif

A

arkheos

XLDnaute Nouveau

• 24 Octobre 2015

• #7

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

 

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 24 Octobre 2015

• #8

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

Bonsoir arkheos,

ravi de t'avoir aidé.

A+

 

Vote positif 0 Vote négatif