Bonjour à tous,

 Je cherche une macro pour afficher et masquer des colonnes,
(exatement:A,B,en 2 colonnes fixes avec un bouton pour "masquer /afficher"les colonnes suivantes : C,jusquà Y.
Ensuite pareil :Z,AA,en 2 colonnes fixes avec un bouton pour "masquer /afficher", les colonnes suivantes : AB,jusquà AR.
Idem :Z,AA,en 2 colonnes fixes avec un bouton pour "masquer /afficher"les colonnes suivantes : AB,jusquà AR.
Idem :AS,AT,en 2 colonnes fixes avec un bouton pour "masquer /afficher"les colonnes suivantes : AU,jusquà BQ.
Idem :BR,BS,en 2 colonnes fixes avec un bouton pour "masquer /afficher"les colonnes suivantes : BT,jusquà CJ.

 Je voudrais qu'en cliquant sur 1 bouton cela affiche et que cela le masque quand je reclic sur le même bouton que le groupe concerné de colonne,
 .

 Merci à vous!

Bonsoir à tous

Bonsoir ikiki

Si j'ai bien compris, quelque chose comme cela :

If Columns("AA").Hidden = True Then    ' si colonne AA cachée
    Columns("AA:AN").EntireColumn.Hidden = False
    ActiveSheet.Shapes("Bouton 4").Select
    Selection.Characters.Text = "cache colonnes AA à AN"
Else
    Columns("AA:AN").EntireColumn.Hidden = True
    ActiveSheet.Shapes("Bouton 4").Select
    Selection.Characters.Text = "montre colonnes AA à AN"
End If

A toi de peaufiner pour tes différentes colonnes. Attention au "bouton 4".

Eric

Bonjour ERIC,

 je souhaiterais sur la même feuille Excel
 
1)  colonne A,B en colonnes fixes, les colonnes de C  jusqu'à  y avec un bouton unique
pour "masquer /afficher" UNIQUEMENT les colonnes de C, jusquà Y.

2)  colonne Z,AA en colonnes fixes, les colonnes de AB  jusqu'à  AR avec un bouton unique
pour "masquer /afficher" UNIQUEMENT les colonnes de AB , jusqu'à AR.

3)  colonne AS,AT en colonnes fixes, les colonnes de AU  jusqu'à  BQ avec un bouton unique
pour "masquer /afficher"UNIQUEMENT les colonnes de AU, jusqu'à BQ.

4)  colonne BR,BS  en colonnes fixes, les colonnes de BT  jusqu'à  CJ avec un bouton unique
pour "masquer /afficher"UNIQUEMENT les colonnes de BT, jusqu'à CJ.

Egalement comment creer les 4  boutons

 
 .

 Un grand Merci à vous

Bonjour le forum

Bonjour Ikiki, bonjour Eri

  Très vite fait, à adapter & surtout à peaufiner (prez). Sinon à ce soir pour plus d'infos.

Bonne journée

Ericcool

..Pas de fichier joint ???

Tu place un Bouton (1) dans ta barre ("B2") puis le code - Ensuite un bouton (2) en AA ...

Private Sub CommandButton1_Click()
Columns("C:Y").Hidden = True
End Sub

Private Sub CommandButton1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Columns("C:Y").Hidden = False
End Sub

Private Sub CommandButton2_Click()
Columns("Z:AA").Hidden = True
End Sub

Private Sub CommandButton2_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Columns("Z:AA").Hidden = False
End Sub

@ +

  P.S : Le mieux serait de masquer les colonnes à l'ouverture du classeur et de les afficher depuis un Userform ou depuis une page d'accueil.

Bonne journée

Ericcool

Bonjour à tous

Une réponse simple dans le fichier joint. Il suffit de cliquer sur la flèche orange qui se situe au-dessus de la cellule nommée pour faire apparaître ou disparaître les colonnes.

Eric

 Un grand Merci à vous

Bonjour ERIC,

Un TRES grand  merci pour tes reponses!

je souhaiterais justement si c'est possible, reproduire comme dans mon fichier les colonnes(boissons) de A  à  Y
ouverture avec la fleche orange et fermeture avec l'eclair rose,(affiche/masque les colonnes de C  à Y ) ,
 faire la même chose 4 fois de suite,mais quand je fais cela pour la suite colonnes(alimentaire) de Z  à  AR ,
 la fleche orange/l'eclair rose n'ouvre et ferme que (et toujours) le mêmes colonnes(boissons) de C  à  Y ,
au lieu des colonnes (alimentaires)  AB  à AR,

 Pareil pour la suite AS à BQ  et  BR  à CJ ,toujours les colonnes  de C  à Y qui  s'affichent et ce ferment!

Merci

Bonne journée

RE,

En piece jointe un fichier avec ce que je souhaiterai  :- Afficher flêche orange
                                                                                  - Masquer eclair rose
Avec ouverure uniquement des colonnes du même groupe, (boissons, alimentaire,frais,droguerie,pains)

Merci

RE,

Excuse moi je n'avais pas vu ton fichier !!!!(que tu l' avais modifié) 

c'est super de te part ,

C'est tout a fait ce que je voulais !

 Un très grand merci ERIC

Bonne soirée