Forums XLPages

Excel & VBA Forum principal [résolu] Affichage/masquage colonne une à une

Affichage/masquage colonne une à une
#1
fred777
Régulier XLPages

Inscription: 27/06/2010

Messages: 44

Système d'exploitation:
PC
Version Excel utilisée:
Excel 2007
Posté le : 10-08-2010 14h39
Bonjour à tous,

J'ai une macro pour afficher/masquer une colonne, mais ce que je voudrais c'est afficher les colonnes une par une. Je m'explique : lorsque je clic sur afficher, je voudrais qu'il m'affiche une colonne et lorsque je reclic sur ce même bouton qu'il m'affiche une 2ème colonne et ainsi de suite. Bref qu'il m'affiche les colonne masquées mais une à une.

Merci d'avance.
Hors Ligne
 Rapport   Haut 

Re: Affichage/masquage colonne une à une
#2
myDearFriend!
Webmestre

Inscription: 18/05/2006
De Saône-et-Loire (71)

Messages: 1539

Système d'exploitation:
PC
Version Excel utilisée:
97, 2000, 2002, 2003, 2007, 2010, 2013, 2016 et 365
Posté le : 10-08-2010 18h12
Bonsoir fred777,

Tu peux essayer avec cette procédure (à toi de la lier à un bouton) :
Sub AffichPremColMasquee()
Dim R As Range
    For Each R In Rows(1).Cells
        With R.EntireColumn
            If .Hidden = True Then
                .Hidden = False
                Exit Sub
            End If
        End With
    Next R
End Sub
Ce code ré-affiche la première colonne masquée de la feuille et s'interrompt. Un second lancement affichera la suivante, etc...

Cordialement,
Didier_mDF
Image redimensionnée
Le Webmaster

La réponse vous satisfait ? Merci de revenir solder le sujet en [résolu], voir ce lien
Hors Ligne
 Rapport   Haut 

Re: Affichage/masquage colonne une à une
#3
fred777
Régulier XLPages

Inscription: 27/06/2010

Messages: 44

Système d'exploitation:
PC
Version Excel utilisée:
Excel 2007
Posté le : 11-08-2010 12h28
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.
Hors Ligne
 Rapport   Haut 

Re: Affichage/masquage colonne une à une
#4
myDearFriend!
Webmestre

Inscription: 18/05/2006
De Saône-et-Loire (71)

Messages: 1539

Système d'exploitation:
PC
Version Excel utilisée:
97, 2000, 2002, 2003, 2007, 2010, 2013, 2016 et 365
Posté le : 11-08-2010 23h46
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,

Didier_mDF
Image redimensionnée
Le Webmaster

La réponse vous satisfait ? Merci de revenir solder le sujet en [résolu], voir ce lien
Hors Ligne
 Rapport   Haut 

Re: Affichage/masquage colonne une à une
#5
fred777
Régulier XLPages

Inscription: 27/06/2010

Messages: 44

Système d'exploitation:
PC
Version Excel utilisée:
Excel 2007
Posté le : 12-08-2010 00h07
Merci,

C'est exactement cela.

Désolé de "ne pas annoncer la couleur dès le départ", mais je débute et j'y vais à tatons ce qui fait que je découvre mes besoins au fur et à mesure.

Quoi qu'il en soit, un grand merci pour tout le boulot que vous faites.

Fred
Hors Ligne
 Rapport   Haut 


Vous pouvez voir les sujets.
Vous ne pouvez pas débuter de nouveaux sujets.
Vous ne pouvez pas répondre aux contributions.
Vous ne pouvez pas éditer vos contributions.
Vous ne pouvez pas effacez vos contributions.
Vous ne pouvez pas ajouter de nouveaux sondages.
Vous ne pouvez pas voter en sondage.
Vous ne pouvez pas attacher des fichiers à vos contributions.
Vous ne pouvez pas poster sans approbation.

[Recherche avancée]


Qui consulte actuellement ce sujet ?   1 Utilisateur(s) anonymes