Microsoft 365 Insertion case à cocher

Alain 79 · 23 Août 2024

Bonjour tout le monde,

J'ai un petit fichier (voir modèle joint) avec un tableau comprenant 3 colonnes. La 3éme colonne comprend une case à cocher.

Une fois que jai sélectionner les lignes souhaitées à l'aide de la case à cocher, et pour ne faire apparaître que ces lignes
ActiveSheet.ListObjects("Tableau1").Range.AutoFilter Field:=3, Criteria1:= "VRAI"

Ensuite lorsque je veux faire réapparaître toutes les lignes, j'utilise la macro
ActiveSheet.ListObjects("Tableau1").Range.AutoFilter Field:=3

Toutefois, je souhaiterais pouvoir remettre toutes les cases à cocher à "FAUX" soit lorsque je clique sur le bouton "TOUT" ou "FAUX".

Et c'est là que j'ai besoin de votre aide pour trouver la solution.
Par avance, je vous en remercie
Cordialement

mapomme · 23 Août 2024

Bonjour @Alain 79 , @fcyspm30 , à tous ,

Essayez :

VB:

Sub AfficherFAUX()
    ActiveSheet.ListObjects("Tableau1").Range.AutoFilter Field:=3, Criteria1:=CStr(False)
End Sub

Sub AfficherVRAI()
    ActiveSheet.ListObjects("Tableau1").Range.AutoFilter Field:=3, Criteria1:=CStr(True)
End Sub

Sub AfficherTout()
    ActiveSheet.ListObjects("Tableau1").Range.AutoFilter Field:=3
    ActiveSheet.ListObjects("Tableau1").ListColumns(3).DataBodyRange = False
End Sub

TooFatBoy · 23 Août 2024

Alain 79 à dit:
Oui exactement, j'utilise cette fonctionnalité et mon fichier n'est pas très volumineux car il ne va comportait qu'une cinquantaine de lignes.

Quand on disait que ça rendait le classeur plus lourd, on ne parlait pas de son poids en octets, mais plutôt de ralentissement dû à un nombre important de cases à cocher (ancienne génération).

mapomme · 23 Août 2024

Re @TooFatBoy ,

TooFatBoy à dit:
mais plutôt de ralentissement dû à un nombre important de cases à cocher (ancienne génération)

J'ai aussi essayé. Faire un zoom ou dézoom avec 1 000 cases à cocher anciennes versions, c'est la galère!
Une chose que Mikrosoft a bien faite : si on a un tableau structuré avec une colonne de "new" cases à cocher alors quand on insère une ligne en tête de TS ou en plein milieu du TS ou encore à la fin du TS alors Excel ajoute automatiquement une case à cocher dans la colonne idoine. Pas besoin de gérer cela.
Bien fâché, on doit pouvoir se passer du VBA pour gérer et utiliser ces nouvelles cases à cocher.

Staple1600 · 23 Août 2024

Bonsoir le fil

[En passant]
Qui dans la vie réelle utilise un classeur avec 1000 cases à cocher ?
Qui accepterait, même contre un salaire, de passer sa journée à cliquer ou décliquer 1000 fois ?

Pour finir paraphrasons Alain, Chantal et ses amis
“On peut cocher une case mille fois. On peut cocher mille cases une fois. Mais on ne peut pas cocher mille cases, mille fois.”

[/En passant]

@mapomme
merci pour la citation du fil de @R@chid du salon

mapomme · 23 Août 2024

Staple1600 à dit:
Qui dans la vie réelle

Bonsoir @Staple1600 ,
Si on ne s’échappait occasionnellement de la vie réelle, notre existence serait bien triste et on mettrait tous nos rêves au rebut (et sans aucun espoir de les recycler).

Microsoft 365 Insertion case à cocher

Alain 79

XLDnaute Junior

mapomme

TooFatBoy

XLDnaute Barbatruc

mapomme

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

mapomme

XLDnaute Barbatruc

Discussions similaires