colonnes a masquer

Version imprimable

1 pièce(s) jointe(s)

colonnes a masquer

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:

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

11/03/2011, 23h58
pgz
Bonsoir.

Tu as très mal structuré tes tests. Si A1 = 1, tu continues, sinon tu as fini. Donc si A1 = 2, tu échoues au premier test et tu ne testes pas a1 = 2.

En outre cela ne sert à rien de sélectionner la ligne pour la masquer.

Pour finir, quand tu fais [A1] il faut que tu soit sûr que la bonne feuille dans le bon classeur soit active. Mais bon...

Voici une correction minimale:
Code:

1 2 3 4 5 6 7 8 If [A1] = 1 Then Columns("AG:GC").Hidden = True ElseIf [A1] = 2 Then Columns("C:AF").Hidden = True Columns("BL:GC").Hidden = True ElseIf [A1] = 3 Then ... End If
PGZ
12/03/2011, 00h39
chris09300

le code modifie est parfait.
cris