Autres (RESOLU) afficher et masquer des colonnes via combobox

M12

XLDnaute Accro

• 16 Janvier 2022

• #2

Bonjour,
A tester avec une macro établie au plus simple pour comprendre la manoeuvre

 

Pièces jointes

• charlie masquer colonne par combobox.xlsm

  21.6 KB · Affichages: 19

Vote positif 0 Vote négatif

Solution

chaelie2015

XLDnaute Accro

• 16 Janvier 2022

• #3

Bonjour M12
Merci pour la réponse. c'est parfait.
a+

 

Vote positif 0 Vote négatif

chaelie2015

XLDnaute Accro

• 16 Janvier 2022

• #4

M12 à dit:

Bonjour,
A tester avec une macro établie au plus simple pour comprendre la manoeuvre

Cliquez pour agrandir...

Re
Je souhaite ajouter a ton code ,un code de contrôle. Par exemple si je sélectionne dans combobox "masquer Cahier 1" et ces colonnes sont déjà masqué alors informer l'utilisateur par message que elles sont déjà masquées et vis versa ?
MERCI

 

Dernière édition: 16 Janvier 2022

Vote positif 0 Vote négatif

M12

XLDnaute Accro

• 16 Janvier 2022

• #5

Re,
a voir,
Je n'ai fait que pour le cahier 1, à toi de reproduire pour les autres

 

Pièces jointes

• charlie masquer colonne par combobox.xlsm

  22 KB · Affichages: 6

Vote positif 0 Vote négatif

chaelie2015

XLDnaute Accro

• 16 Janvier 2022

• #6

M12 à dit:

Re,
a voir,
Je n'ai fait que pour le cahier 1, à toi de reproduire pour les autres

Cliquez pour agrandir...

Re
Super, c'est nickel.
a+

 

Vote positif 0 Vote négatif

fanch55

XLDnaute Barbatruc

• 16 Janvier 2022

• #7

Bonjour à tous,
Pour le fun car je n'avais pas posté,
une autre méthode prenant en compte indirectement la deuxième demande.

 

Pièces jointes

• charlie masquer colonne par combobox-3.xlsm

  26.8 KB · Affichages: 10

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 17 Janvier 2022

• #8

Bonjour chaelie2015, M12, fanch55,

En modifiant la liste source comme le fait fanch55, une solution plus simple dans ce fichier :

VB:

Private Sub ComboBox1_Change()
Static flag As Boolean
If flag Then Exit Sub
Dim i%, col%, col3%, P As Range, cb$, test As Boolean
i = ComboBox1.ListIndex
If i = -1 Then Exit Sub
flag = True
If i < 3 Then col = Application.Match("Cahier " & i + 1, Rows(1), 0) Else col = Application.Match("Cahier 1", Rows(1), 0)
col3 = Application.Match("Cahier 3", Rows(1), 0)
Set P = IIf(i < 3, Cells(1, col).MergeArea, Range(Cells(1, col), Cells(1, col3).MergeArea))
cb = ComboBox1
With [Cahiers]
    With .Cells(i + 1)
        test = .Value Like "Masquer*"
        .Replace IIf(test, "Masquer", "Afficher"), IIf(test, "Afficher", "Masquer"), xlPart 'modifie la liste source
    End With
    If cb = "Masquer tous" Then .Replace "Masquer", "Afficher" Else If cb = "Afficher tous" Then .Replace "Afficher", "Masquer"
    If Application.CountIf(.Cells, "Afficher Cahier*") = 3 Then .Cells(4) = "Afficher tous"
    If Application.CountIf(.Cells, "Masquer Cahier*") = 3 Then .Cells(4) = "Masquer tous"
End With
ComboBox1 = cb 'restitue la valeur choisie
P.EntireColumn.Hidden = test 'masque/affiche
flag = False
End Sub

A+

 

Pièces jointes

• charlie masquer colonne par combobox.xlsm

  25.1 KB · Affichages: 4

Dernière édition: 17 Janvier 2022

Vote positif 0 Vote négatif

fanch55

XLDnaute Barbatruc

• 17 Janvier 2022

• #9

job75 à dit:

Bonjour chaelie2015, M12, fanch55,

En modifiant la liste source comme le fait fanch55, une solution plus simple dans ce fichier :

A+

Cliquez pour agrandir...

Salut @job75

Selon la config,
Tu as oublié l'option afficher tous


et masquer tous


Je suis le fil .... 😉

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 17 Janvier 2022

• #10

Merci de suivre.

J'ai essayé de corriger mais ça ne va pas, je verrai plus tard.

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 17 Janvier 2022

• #11

Dans ce fichier (2) j'ai remplacé :

VB:

    If Application.CountIf(.Cells, "Afficher Cahier*") = 3 Then .Cells(4) = "Afficher tous"
    If Application.CountIf(.Cells, "Masquer Cahier*") = 3 Then .Cells(4) = "Masquer tous"

par :

VB:

    If cb Like "Masquer*" Then .Cells(4) = "Afficher tous"
    If cb Like "Afficher*" Then .Cells(4) = "Masquer tous"

C'est plus simple en fait.

A+

 

Pièces jointes

• charlie masquer colonne par combobox(2).xlsm

  25.1 KB · Affichages: 2

Vote positif 0 Vote négatif

fanch55

XLDnaute Barbatruc

• 17 Janvier 2022

• #12

@job75 :

Pas de masquer tous

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 17 Janvier 2022

• #13

C'est sûr qu'on ne peut pas avoir "Afficher tous" et "Masquer tous" en même temps !

C'est l'un ou l'autre, ce que je fais (l'opposé de la sélection) me paraît convenir.

 

Vote positif 0 Vote négatif

fanch55

XLDnaute Barbatruc

• 17 Janvier 2022

• #14

job75 à dit:

C'est sûr qu'on ne peut pas avoir "Afficher tous" et "Masquer tous" en même temps !

C'est l'un ou l'autre, ce que je fais (l'opposé de la sélection) me paraît convenir.

Cliquez pour agrandir...

S'il y a un élément masqué, on peut tout afficher
S'il y a un élément affiché, on peut tout masquer
🤔

 

Vote positif 0 Vote négatif