Microsoft 365 Code pour Excel pour cocher/décocher les cases d'une même colonne

[nmbs]

Bonjour,

J'aimerai pouvoir cocher une case et que celle-ci coche automatiquement toutes les cases de la colonne dessous mais pas celles de toute la feuille, seulement de la colonne sur Excel!

En gros j'aimerai créer une case à cocher/décocher par colonne Est-ce possible? Pourriez-vous me donner un code qui pourrait faire cela?

Je ne m'y connait pas vraiment mais je sais comment copier les codes et les appliquer.

Merci beaucoup !!

 

[eastwick]

Bonsoir. Pour une aide optimale, un fichier sera toujours le bienvenu. C'est quasiment indispensable pour adapter la réponse à votre demande.

 

[Staple1600]

Bonsoir le fil

J'ai cela en stock.
Faut juste que je retrouve la bonne boite à chaussure.

 

[Staple1600]

Re

Ah bah, c'est pas si vieux

XL 2016 - Case décoche/coche toutes les cases à cocher

Bonjour, j'aimerai avoir une case à cocher qui lorsque l'on clique dessus décohe toutes les cases, puis si on reclique dessus recoche toutes les cases ... Pour l'instant, je n'arrive à avoir qu'un bouton qui décoche toutes les cases à cocher, mais ne fait rien lorsque l'on reclique dessus Sub...

www.excel-downloads.com

 

[job75]

Bonsoir,

Pour une aide optimale, un fichier sera toujours le bienvenu.

Ou pour une aide tout court d'ailleurs.

On parle de plusieurs cases à cocher dans une colonne, ensuite il faut en créer une seule...

A+

 

[Staple1600]

Re

Je plussoie aux propos précédents néanmoins puisque je range mes tiroirs
Dans cet exemple, les CheckBoxes (issues de la BO Formulaire) sont en colonne 5
(Test OK sur mon PC)

Sub Cocher_TOUT()
'coche les  CheckBox (=> BO Formulaire )
Application.ScreenUpdating = False
Cochez True
End Sub
Sub Décocher_TOUT()
'décoche les  CheckBox (=> BO Formulaire )
Application.ScreenUpdating = False
Cochez False
End Sub

Private Sub Cochez(statut As Boolean)
Dim chk As CheckBox
With ActiveSheet
For Each chk In ActiveSheet.CheckBoxes
chk.Value = chk.TopLeftCell.Column = 5 = statut
Next chk
End With
End Sub

Avec des CheckBox (ActiveX) sauf erreur de ma part, pas de propriété TopLeftCell

 

[Staple1600]

Re

Dans la second tiroir de mes archives, cette version qui fonctionnera quelque soit la colonne.
NB: Affecter cette macro à la 1ère CheckBox en haut de la colonne où sont les autres CheckBoxes à cocher

Sub Cochez_CHK_Selon_Colonne()
Dim chk As CheckBox
For Each chk In ActiveSheet.CheckBoxes
If chk.TopLeftCell.Column = _
        ActiveSheet.CheckBoxes(Application.Caller).TopLeftCell.Column Then chk.Value = _
        ActiveSheet.CheckBoxes(Application.Caller).Value
Next chk
End Sub

(Test OK sur mon PC)
NB: ne fonctionne toujours qu'avec les CheckBoxes "formulaires"

 

[job75]

Bonjour JM,

Avec des CheckBox (ActiveX) sauf erreur de ma part, pas de propriété TopLeftCell

C'est une erreur de ta part, crée une CheckBox ActiveX et exécute :

Sub a()
For Each o In ActiveSheet.OLEObjects
    If TypeName(o.Object) = "CheckBox" Then MsgBox o.TopLeftCell.Column
Next

A+

 

[job75]

Avec des CheckBoxes ActiveX placez cette macro dans le code de la feuille :

Private Sub CheckBox1_Change() 'nom à adapter pour chaque colonne, 1ère CheckBox de la colonne
Dim v As Boolean, col%, o As OLEObject
v = CheckBox1 'nom à adapter
col = CheckBox1.TopLeftCell.Column 'nom à adapter
For Each o In OLEObjects
    If TypeName(o.Object) = "CheckBox" Then If o.TopLeftCell.Column = col Then o.Object = v
Next
End Sub

Il faut une macro du même genre pour chaque colonne concernée.

S'il y en a beaucoup on peut utiliser un module de classe.

 

[Staple1600]

Bonjour job75

mea culpa
J'avais testé mon code précédent avec
c.Object.TopLeftCell
(qui produisait une erreur)
Le code précédent adapté pour ActiveX (celui du message#6)

Sub Cocher_TOUT()
'coche les CheckBox (ActiveX)
Application.ScreenUpdating = False
Cochez True
End Sub
Sub Décocher_TOUT()
'décoche les CheckBox (ActiveX)
Application.ScreenUpdating = False
Cochez False
End Sub

Private Sub Cochez(statut As Boolean)
Dim c As Object
With ActiveSheet
    For Each c In .OLEObjects
    If TypeName(c.Object) = "CheckBox" Then
    If c.TopLeftCell.Column = 3 Then
    c.Object.Value = statut
    End If
    End If
    Next c
End With
End Sub