Lier des colonnes pour les visualiser ensembl

Minerva -  
eriiic Messages postés 24581 Date d'inscription   Statut Contributeur Dernière intervention   -
Bonjour,

Je me demandais s'il et possible dans Excel de visualiser certains colonnes uniquement quand on pointe une autre colonne.
Exemple: je pointe sur la colonne A, les colonnes D et G sont visualisées (ou les colonnes B,C, E et F sont temporairement et automatiquement masquées). Je pointe sur la colonne B, les colonnes E et H sont visualisées...
Je sais que dans d'autres logiciels on peut faire ça, mais j'aimerais utiliser mon document excel car les données y sont....

Milles mercis pour votre aide!!!

1 réponse

  1. eriiic Messages postés 24581 Date d'inscription   Statut Contributeur Dernière intervention   7 281
     
    Bonsoir,

    Code à mettre dans la feuille :
    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
        Application.ScreenUpdating = False
        Union(Range("B:C"), Range("E:F")).EntireColumn.Hidden = False
        Union(Range("C:D"), Range("F:G")).EntireColumn.Hidden = False
        If Target.Rows.Count <> Columns(1).Rows.Count Then
            Exit Sub
        Else
            Select Case Target.Column
            Case 1
                Union(Range("B:C"), Range("E:F")).EntireColumn.Hidden = True
            Case 2
                Union(Range("C:D"), Range("F:G")).EntireColumn.Hidden = True
            End Select
        End If
        Application.ScreenUpdating = True
    End Sub
    


    Et si tu n'as jamais mis une macro dans un classeur :
    https://www.commentcamarche.net/faq/8130-mise-a-jour-d-une-procedure-ou-d-une-fonction-en-vba

    eric
    0