Afficher / Masquer des colonnes avec le même bouton

[Feitan]

Bonjour tout le monde,

Ma problématique est simple : J'aimerais une macro qui me permette d'afficher ou de cacher les colonnes d'une feuille (en l'occurence de I à O inclus).

Ce qui serait génial et c'est là que je n'y arrive pas, c'est que je vais relier cette macro à un bouton, et en fait que l'utilisateur se serve du meme bouton pour afficher/ cacher.

En gros, la macro détecte si les colonnes sont affichées ou cachées et effectue l'action inverse en fonction : Si les colonnes sont affichées, appuyer sur le bouton (et donc enclencher la macro) les masque; si les colonnes sont masquées, appuyer sur le même bouton (et donc enclencher la même macro) les affiche.

Cela m'aiderait beaucoup

Merci énormément d'avance,

 

[Guest]

Re : Afficher / Masquer des colonnes avec le même bouton

Bonjour,

vois si cela convient

A+

 

[Feitan]

Re : Afficher / Masquer des colonnes avec le même bouton

Une réponse rapide et qui marche en plus parfaitement. Que demander de plus ?

Merci beaucoup Hasco, je te souhaite une bonne journée !

 

[Staple1600]

Re : Afficher / Masquer des colonnes avec le même bouton

Bonsoir

Pour saluer Hasco (et pour le fun )

Private Sub cmdCacherAfficher_Click()
Dim s$: s = " colonnes I:0"
    With Range("I1:O1").EntireColumn
    .Hidden = Not .Hidden
    cmdCacherAfficher.Caption = IIf(.Hidden, "Afficher" & s, "Cacher" & s)
    End With
End Sub

 

[Guest]

Re : Afficher / Masquer des colonnes avec le même bouton

Re,

Hi, l'Agrafe

Encore un petit pour la route:

Const s$  = " colonnes I:0"

A+++

 

[gillmo]

Re : Afficher / Masquer des colonnes avec le même bouton

bonjour,

j'essaye d'utiliser la macrofaite par Hasco mais je n'arrive pas à relier la macro au bouton de commande dans mon fichier.

Quand je regarde dans le fichier d'Hasco, je ne vois pas le lien entre la macro et le bouton

Pouvez vous me dire comment faire

merci à tous

 

[Staple1600]

Re : Afficher / Masquer des colonnes avec le même bouton

Bonsoir gilmo, Hasco

Le code du bouton se trouve dans la feuille où niche le bouton.

(Clic-droit sur l'onglet subséquent -> Visualiser le code )

Mais ce sont des choses privées entre Hasco et sa feuille ...
(Private matters comme disent les sujets d'Elisabeth )

Cela ne nous regarde pas.

 

[gillmo]

Re : Afficher / Masquer des colonnes avec le même bouton

comment faire alors si cela est privé

j'essaye dans tous les sens de faire fonctionner mais sans réussite

Est ce qu'il faut avoir une version particulière d'excel sachant que moi j'ai excel 2003.

 

[Staple1600]

Re : Afficher / Masquer des colonnes avec le même bouton

Re


Il fallait voir ici une sorte d'humour

Je redeviens pragmatique.

Sub cmdCacherAfficher_Click()
 Dim s$: s = " colonnes I:0" 
    With Range("I1:O1").EntireColumn
.Hidden = Not .Hidden 
    cmdCacherAfficher.Caption = IIf(.Hidden, "Afficher" & s, "Cacher" & s)     
End With 
End Sub

Je viens de rendre cette macro publique
(donc visible dans Outils/Macros)

Dans Lien supprimé

Elle était privée

 

[Lermiton]

Re : Afficher / Masquer des colonnes avec le même bouton

Staple1600 et Hasco, MERCI !

Je viens de découvrir la fonction "Iif" ... après 20 ans de bidouillage dans le VBA ... La honte !

Et merci aussi pour l'humour !

 

[Staple1600]

Re : Afficher / Masquer des colonnes avec le même bouton

Re

Lermiton
Euh, il y a 20 ans
VBA n'existait pas encore

Les versions de Microsoft Excel pour Windows

1987 - Excel 2.0 for Windows
1990 - Excel 3.0
1992 - Excel 4.0

 

[Ilino]

Re : Afficher / Masquer des colonnes avec le même bouton

Bonjour Forum
je suis très intéressé par ce code

Sub cmdCacherAfficher_Click()
 Const s$ = " colonnes I:0" 
    With Range("I1:O1").EntireColumn
.Hidden = Not .Hidden 
    cmdCacherAfficher.Caption = IIf(.Hidden, "Afficher" & s, "Cacher" & s)     
End With 
End Sub

et dans le cas ou les colonnes I&O sont verrouillées ça ne marche pas ???
Merci

 

[Guest]

Re : Afficher / Masquer des colonnes avec le même bouton

Bonjour,

C'est une question ou une affirmation.

Dans les deux cas as-tu essayer? (ça c'est une question)

As-tu fais des recherches sur le forum pour savoir comment déprotéger/reprotéger une feuille par VBA? (Une deuxième question)

A+

 

[Efgé]

Re : Afficher / Masquer des colonnes avec le même bouton

Bonjour Ilino, le fil,
Si tu veux dire que la feuille est protégée, il faut la déprotéger.

Sub cmdCacherAfficher_Click()
Const s$ = " colonnes I:0"
ActiveSheet.Unprotect "toto"
With Range("I1:O1").EntireColumn
    .Hidden = Not .Hidden
    cmdCacherAfficher.Caption = IIf(.Hidden, "Afficher" & s, "Cacher" & s)
End With
ActiveSheet.Protect "toto"
End Sub

Le "tot" n'est utile que si il y a un mot de passe

Cordialement

 

[Guest]

Re : Afficher / Masquer des colonnes avec le même bouton

Re,

Merci Efgé.....grrrrrrrrrrrrrrrr

A+