Discussion :

[chris09300]

bonsoir
j'ai le code suivant:
mais pour les 2 premieres lignes ca fonctionne, mais la suite ne fonctionne pas.
quelqu'un a t'il une idee pourquoi cela ne fonctionne pas.
merci
cris

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
28
29
30
31
32
33
Sub Macro2()
'
'
   If [A1] = 1 Then
    Columns("AG:GC").Select
    Selection.EntireColumn.Hidden = True
   If [A1] = 2 Then
    Columns("C:AF").Select
    Selection.EntireColumn.Hidden = True
    Columns("BL:GC").Select
    Selection.EntireColumn.Hidden = True
   If [A1] = 3 Then
    Columns("C:BK,CP:GC").Select
    Selection.EntireColumn.Hidden = True
   If [A1] = 4 Then
    Columns("C:CO").Select
    Columns("DU:GC").Select
    Selection.EntireColumn.Hidden = True
   If [A1] = 5 Then
    Columns("C:DT").Select
    Columns("EZ:GC").Select
    Selection.EntireColumn.Hidden = True
   If [A1] = 6 Then
   Columns("C:EY").Select
    Selection.EntireColumn.Hidden = True
End If
End If
End If
End If
End If
End If
[A1].Select
End Sub