Discussion :

[diss10]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[a_diard]

Bonjour

Par exemple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[diss10]

Bonjour ,

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