Autres (RESOLU) afficher et masquer des colonnes via combobox

[chaelie2015]

Bonjour
Je souhaite afficher et masquer des colonnes via une Combobox.
Merci par avance

 

[M12]

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

 

[chaelie2015]

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

 

[chaelie2015]

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

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

 

[M12]

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

 

[chaelie2015]

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

Re
Super, c'est nickel.
a+

 

[fanch55]

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

 

[job75]

Bonjour chaelie2015, M12, fanch55,

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

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+

 

[fanch55]

Bonjour chaelie2015, M12, fanch55,

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

A+

Salut @job75

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

et masquer tous

Je suis le fil ....

 

[job75]

Merci de suivre.

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

 

[job75]

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

    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 :

    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+

 

[fanch55]

@job75 :

Pas de masquer tous

 

[job75]

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.

 

[fanch55]

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.

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