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

Alain 79 · 23 Août 2024

Bien sûr j'ai oublié de joindre le fichier

fcyspm30 · 23 Août 2024

Bonjour, Ne serait il pas plus simple d'utiliser des segments?

Alain 79 · 23 Août 2024

fcyspm30 à dit:
Bonjour, Ne serait il pas plus simple d'utiliser des segments?

Désolé mais je ne comprends votre réponse.

fcyspm30 · 23 Août 2024

Voici un essai.

fcyspm30 · 23 Août 2024

Re,
Il suffit de cliquer sur le ou les boutons bleus pour ne faire apparaître que les lignes que l'on désire. Les cases à cocher c'est bien quand il n'y en a pas beaucoup car elles alourdissent le fichier.

Alain 79 · 23 Août 2024

Merci pour la réponse, mais ça ne correspond pas à ce que je souhaite.
Dans ma liste complète, je coche différentes lignes quel que soit le rayon puis en cochant mon bouton "VRAI" toutes les lignes cocher restent visibles

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

Bonjour,

Il te suffit de faire une macro qui boucle sur toutes tes cases à cocher et qui les décoche une par une.

Mais si la case à cocher marche dans les deux sens avec sa cellule associée, alors il suffit de mettre toutes les cellules de la colonne à FAUX.
(ce que fait la macro de mapomme que je salue)

L'idée des cases à cocher n'est pas forcément très bonne car, comme dit en #6, ça alourdi grandement le classeur.

Alain 79 · 23 Août 2024

mapomme à dit:

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

Bonjour mapomme
Merci pour ta réponse, mais la macro "AffcheTout" ne m'affiche que les lignes non cochées et ne décoche par les cases cochées.

mapomme · 23 Août 2024

Re,

@Alain 79 semblent utiliser la nouvelle fonctionnalité maintenant intégrée dans Excel 365 (Menu Insérer /Sous-menu Contrôle / Insérer Case à cocher) qui facilite l'utilisation des cases à cocher, leur alignement au sein de la cellule, leur maniement par VBA. En plus cela n'augmente pratiquement pas la taille du fichier.
Voir ce qu'en disent Rachid et Staple1600 ICI.

sousou · 23 Août 2024

Bonjour
Un peux tout

Alain 79 · 23 Août 2024

Alain 79 à dit:
Bonjour mapomme
Merci pour ta réponse, mais la macro "AffcheTout" ne m'affiche que les lignes non cochées et ne décoche par les cases cochées.

Pardon, tout fonctionne parfaitement. Petite erreur de manipulation.
Un Grand merci

Alain 79 · 23 Août 2024

mapomme à dit:
Re,

@Alain 79 semblent utiliser la nouvelle fonctionnalité maintenant intégrée dans Excel 365 (Menu Insérer /Sous-menu Contrôle / Insérer Case à cocher) qui facilite l'utilisation des cases à cocher, de leur alignement au sein de leur cellule, leur maniement par VBA.
Voir ce qu'en disent Rachid et Staple1600 ICI.

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.

mapomme · 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.

Pour le fun :

Classeur vide : 10 ko
Avec seulement 1 000 contrôles de formulaire type case à cocher, le classeur pèse 400 ko sans compter la lourdeur de manipulation.
Avec 100 000 (soit 100 fois plus) cases à cocher (nouvelle fonctionnalité de O365), le classeur pèse 300 ko.

Il n'y a pas photo !

Microsoft 365 Insertion case à cocher

Alain 79

XLDnaute Junior

mapomme

Alain 79

XLDnaute Junior

Pièces jointes

fcyspm30

XLDnaute Junior

Alain 79

XLDnaute Junior

fcyspm30

XLDnaute Junior

Pièces jointes

fcyspm30

XLDnaute Junior

Alain 79

XLDnaute Junior

mapomme

XLDnaute Barbatruc

TooFatBoy

XLDnaute Barbatruc

Alain 79

XLDnaute Junior

mapomme

XLDnaute Barbatruc

sousou

XLDnaute Barbatruc

Pièces jointes

Alain 79

XLDnaute Junior

Alain 79

XLDnaute Junior

mapomme

XLDnaute Barbatruc

Discussions similaires