Afficher une range de colonne par un Button click

Bonjour A tous ,


Svp je voudrais afficher une range de 4 colonnes par 4 colonnes a chaque clique sur "Bouton15" ... J'ai en gros une range total qui va de le colonne "AS" à "EB" , les 4 premières colonnes de cette range sont visible de base "AS : AV" puis ensuite je voudrais afficher les suivante qui seront donc "AW:AZ" ... ainsi de suite a chaque clique sur Bouton15 .

J'ai commencer avec code pour l'idée .. Nn fonctionnel

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27

''Ajout de Versions +++ Sub ajout_de_versions() Dim Celv As Range Dim X As Range   With ws   For Each Cel In Range("$AS$7:$EB$7")   Celv = Range("$AS$7:$AV$7")   If Celv.EntireColumn.Hidden = False Then   X = Celv.Offset(, 4).EntireColumn.Hidden = False   End If   Next Celv End If     End With     End If   End Sub

---

Bonjour

Par exemple

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

Sub ajout_de_versions() Dim colonne As Integer   With ActiveSheet   For colonne = 45 To 132 Step 4       If Cells(7, colonne).EntireColumn.Hidden = True Then   Range(Cells(7, colonne), Cells(7, colonne).Offset(, 3)).EntireColumn.Hidden = False   colonne = 132   End If   Next colonne   End With     End Sub

---

Bonjour ,

J'ai adapter le modèle , ca marche parfaitement ;) Merci