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

[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 :

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

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

[chris09300]

le code modifie est parfait.
cris