Afficher/masquer une colonne sur 2

[balzou]

Bonjour à tous,

j'ai trouver sur le forum de nombreuses discussions montrant comment afficher/masquer les colonnes mais je souhaiterais le faire pour une colonne sur 2 en commençant par afficher/masquer la colonne A. Par conséquent la colonne B ne serait jamais touchée par exemple.

Cela est il réalisable ou faut il forcément fournir une plage de colonne dans le code VBA ?

Merci pour vos réponses

balzou

 

[phlaurent55]

Re : Afficher/masquer une colonne sur 2

Bonjour balzou,

voir solution en pièce jointe

à+
Philippe

 

[gilbert_RGI]

Re : Afficher/masquer une colonne sur 2

Bonjour

comme ceci peut-être

Sub un_col_sur_deux()
 For i = 1 To 10 Step 2
    Columns(Chr$(64 + i) & ":" & Chr$(64 + i)).Select
    Selection.EntireColumn.Hidden = True
    Next
End Sub

 

[balzou]

Re : Afficher/masquer une colonne sur 2

Bonjour philippe,

c'est exactement ce que je voulais merci beaucoup!

Ce serait encore mieux si un seul bouton gérait tout ça, tu penses que c'est possible ? sinon je prendrais ça comme ça, pas de soucis!

 

[Pierrot93]

Re : Afficher/masquer une colonne sur 2

Bonjour,

avec une seule macro à affecter à un seul bouton :

Option Explicit
Sub test()
Dim i As Long
Application.ScreenUpdating = False
For i = 1 To Columns.Count
    Columns(i).Hidden = i Mod 2 = Columns(i).Hidden + 1
Next i
Application.ScreenUpdating = True
End Sub

bonne journée
@+

 

[gilbert_RGI]

Re : Afficher/masquer une colonne sur 2

sur le modèle de Philippe que je salue voilà avec un seul bouton

 

[phlaurent55]

Re : Afficher/masquer une colonne sur 2

Re,

Ce serait encore mieux si un seul bouton gérait tout ça, tu penses que c'est possible ? sinon je prendrais ça comme ça, pas de soucis!

voir le fichier joint qui répond à la demande faite

à+
Philippe

Edit: Salut Pierrot
Edit: Salut Gilbert, je trouve ton code un peu long par rapport au mien

 

[Pierrot93]

Re : Afficher/masquer une colonne sur 2

Re,

en modifiant le bouton :

Option Explicit
Sub test()
Dim i As Long
Application.ScreenUpdating = False
For i = 1 To Columns.Count
    Columns(i).Hidden = i Mod 2 = Columns(i).Hidden + 1
Next i
Feuil1.CommandButton1.Caption = IIf(Columns(1).Hidden, "Afficher", "Masquer")
Application.ScreenUpdating = True
End Sub

 

[balzou]

Re : Afficher/masquer une colonne sur 2

Merci à tous pour vos réponses, ça marche nikel !

Cependant, je remarque une chose. Quand je créé mon bouton sur la feuille excel et que j'affiche/masque les colonnes, le bouton bouge également alors que sur le fichier joint de phlaurent55, son bouton ne bronche pas!

Savez vous à quoi cela est du ?

 

[Pierrot93]

Re : Afficher/masquer une colonne sur 2

Re,

click droit sur le bouton => format de controle => onglet "propriétés", tu coches "ne pas déplacer ou dimensionner avec les cellules"

 

[balzou]

Re : Afficher/masquer une colonne sur 2

Merci Pierrot

 

[balzou]

Re : Afficher/masquer une colonne sur 2

Serait-il possible d'ajouter une troisième fonction à ce bouton.

J'aimerais qu'en cliquant, le contenu de la colonne A (qui contient 3 listes déroulantes) soit copié et collé sur toutes les colonnes qui sont affichées/masquées donc une colonne sur 2.