Macro Vba affiche colonnes

Question

Salutation,

Pour créer un fichier excel de compta qui soit lisible, j'ai besoin d'une macro.

Voilà le but de la macro : 
Je veux que :
dès un clique sur une certaine cellule, des colonnes de mon tableau disparaissent. 
Dès un second clique sur cette cellule, les colonnes disparues réapparaissent.

Exemple : 

Si je clique sur la cellule B3
les colonne C D E F disparaissent.

Si je clique une seconde fois sur B3 , les colonnes C D E F réapparaissent.

Quelqu'un peut-il m'aider à trouver des fonctions Vba qui puisse faire ca.

Merci

Utilisateur anonyme · Answer

Bonjour,

À placer derrière la feuille :

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    
    Dim Plage As Range, Cible As Range
    
    Set Cible = Range("B3")
    
    Set Plage = Application.Intersect(Cible, Target)
    
    If (Not (Plage Is Nothing)) Then
        If (Columns("C:C").Hidden = True) Then
            Columns("C:F").Hidden = False
        Else
            Columns("C:F").Hidden = True
        End If
        Application.EnableEvents = False
        Target.Offset(1, 0).Select
        Application.EnableEvents = True
    End If
    
End Sub
'


Lupin

Macro Vba affiche colonnes

1 réponse

Discussions similaires

Newsletters