Rapport de message :*
 

Re: Affichage/masquage colonne une à une

Titre du sujet : Re: Affichage/masquage colonne une à une
par myDearFriend! le 11/08/2010 23:46:53

Bonsoir fred777, le Forum,

Citation :
fred777 a écrit : Bonjour myDearFriend!,

C'est effectivement ce que je cherchais à faire, mais j'aurais souhaité qu'il ne m'affiche une à une que certaine colonne. Par exemple les colonne masquées B,C,D
J'insérerai un autre bouton pour faire la même chose pour les colonnes masquée H,I,J.

En tout cas merci pour votre aide.

A l'avenir, tu serais gentil d'annoncer la couleur dès le départ fred777...

Bon... soit 2 boutons ActiveX sur ta feuille (boutons issus de la boîte à outils Contrôles), nommés CommandButton1 et CommandButton2. Voici les 2 procédures évènementielles que tu peux essayer :

DANS LE MODULE DE CODE DE LA FEUILLE :
Private Sub CommandButton1_Click()
    AffichPremColMasquee "B1,C1,D1"
End Sub

Private Sub CommandButton2_Click()
    AffichPremColMasquee "H1,I1,J1"
End Sub

Puis, DANS UN MODULE DE CODE STANDARD (ex : Module1) :
Option Explicit

Sub AffichPremColMasquee(T As String)
Dim R As Range
    For Each R In Range(T)
        With R.EntireColumn
            If .Hidden = True Then
                .Hidden = False
                Exit Sub
            End If
        End With
    Next R
End Sub

J'espère que ça répondre à ta demande... Et si c'est le cas, merci de solder ce sujet (voir au bas de ma signature).

Pour info, je m'absente pour une dizaine de jours et laisse donc les clés de la boutique à mes petits camarades de jeux du Forum XLpages.com.

Cordialement,