Discussion :

[Momo143]

Bonjour,

J'ai un fichier qui contient un grand nombre de colonnes et accéder le plus rapidement possible aux données, j'ai fait des regroupements. Si c'est possible, bien-sûr, je souhaiterais pouvoir grouper/degrouper des colonnes en cliquant sur l'intitulé d'une colonne. Par exemple, si je clique sur la cellule A2.A4 noire, elle affiche/masque les colonnes B à N, idem si je clique sur la cellule B4 bleue, j'ai les colonnes C à J qui s'affichent/masquent, etc.

J'espère que ma question est bien rédigée et qu'elle soit compréhensible, c'est pourquoi, j'ai mis un fichier en pièce jointe.

Une belle journée et d'avance un gros M E R C I !

Momo143

[Igloobel]

Bonjour,

j'ai pas regarder ton classeur mais je pense qu'avec une macro événementielle du type :" Worksheet_SelectionChange" ça devrait bien marcher.

tu testes le "Target" pour savoir lequel est sélectionné
tu testes si les colonnes sont cachées si oui tu les rends visible sinon tu les caches

Voilà

A+

[78chris]

Bonjour

Je n'ai peut-être pas tout compris mais les + et - en haut le font déjà, non ?

[Momo143]

Bonjour,

j'ai pas regarder ton classeur mais je pense qu'avec une macro événementielle du type :" Worksheet_SelectionChange" ça devrait bien marcher.

tu testes le "Target" pour savoir lequel est sélectionné
tu testes si les colonnes sont cachées si oui tu les rends visible sinon tu les caches

Voilà

A+

Voilà, voilà et c'est là que les difficultés apparaissent, car je ne maîtrise pas vraiment le VBA !
Alors, voilà

Merci pour ton aide et belle fin de journée à toi !

[Momo143]

Bonjour

Je n'ai peut-être pas tout compris mais les + et - en haut le font déjà, non ?

Oui, bien-sûr, mais en cliquant directement sur l'intitulé de la colonne, c'est plus rapide et plus confortable !

[Igloobel]

du coup j'ai regardé ton classeur et voici un début de travail

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
     If Target.Row = 2 Then
        If Target.Column = 1 Then
            If Columns("B").Hidden = True Then
 
                Columns("B:N").EntireColumn.Hidden = False
            Else
                Columns("B:N").EntireColumn.Hidden = True
            End If
        Else
            If Target.Column = 15 Then
                If Columns("P").Hidden = True Then
 
                    Columns("P:AF").EntireColumn.Hidden = False
                Else
                    Columns("P:AF").EntireColumn.Hidden = True
                End If
            End If
        End If
    End If
 
End Sub

cela marche pour la cellule A2 et O2 reste à faire les autres.

Mon code est perfectionable car si tu es sur la cellule tu peux pas la re-sélectionner immédiatement il faut passer par une autre cellule

tu l'implantes, tu testes et tu me dis

A+

[Momo143]

du coup j'ai regardé ton classeur et voici un début de travail

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
     If Target.Row = 2 Then
        If Target.Column = 1 Then
            If Columns("B").Hidden = True Then
 
                Columns("B:N").EntireColumn.Hidden = False
            Else
                Columns("B:N").EntireColumn.Hidden = True
            End If
        Else
            If Target.Column = 15 Then
                If Columns("P").Hidden = True Then
 
                    Columns("P:AF").EntireColumn.Hidden = False
                Else
                    Columns("P:AF").EntireColumn.Hidden = True
                End If
            End If
        End If
    End If
 
End Sub

cela marche pour la cellule A2 et O2 reste à faire les autres.

Mon code est perfectionable car si tu es sur la cellule tu peux pas la re-sélectionner immédiatement il faut passer par une autre cellule

tu l'implantes, tu testes et tu me dis

A+

Yellow man,

J'ai implanté, testé et je te dis : SUPER, GENIAL, FORMIDABLE, ..., ça fonctionne !

Un tout grand MERCI à toi et belle journée.

Momo

[Igloobel]

Si tu es content un petit fait toujours plaisir

mais déjà c'est bien tu as penser à cloturer

bonne journée ... à tous