Macro Vba affiche colonnes

Fermé

keriatsu Messages postés 11 Date d'inscription dimanche 24 juin 2007 Statut Membre Dernière intervention 27 avril 2009 - 27 avril 2009 à 21:55
Utilisateur anonyme - 30 avril 2009 à 14:05

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

A voir également:

Macro Vba affiche colonnes
Macro word - Guide
Macro logiciel - Télécharger - Organisation
Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
Macro recorder - Télécharger - Confidentialité
Word colonnes indépendantes - Guide

1 réponse

Réponse 1 / 1

Utilisateur anonyme
30 avril 2009 à 14:05

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

Discussions similaires

programme qui n'affiche pas le mot secret

Excel VBA : Derniere colonne utilisée

"L'indice n'appartient à la sélection" + VBA

VBA : Range avec références variables..

Discussions similaires

Newsletters