Discussion :

[tchoutchou69]

Bonjour,

Je cherche à cacher une colonne grace à un choix sur trois variables.

y, t et z sont des variables issues de " combobox differentes

Si y different de CGIE cacher la colonne K dela feuille 2
Ou si t different de Controle idem
Ou si z different de CGIE idem

Si l'une des variables ou les 3 sont bonnes faire apparaitre la colonne K.

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
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
 
Private Sub CommandButton13_Click()
 
Dim t As Variant
t = Sheets("Feuil1").Range("M28").Value
Dim u As Variant
u = Sheets("Feuil1").Range("M27").Value
Dim v As String
v = Sheets("Feuil1").Range("M25").Value
Dim w As String
w = Sheets("Feuil1").Range("M25").Value
Dim x As String
x = Sheets("Feuil1").Range("M22").Value
Dim y As Variant
y = Sheets("Feuil1").Range("M23").Value
Dim z As String
z = Sheets("Feuil1").Range("M24").Value
 
 
Var = "*" & y & "*"
Var1 = z
Var2 = w
Var3 = v
Var4 = u
Var5 = t
 
 
Sheets(x).Select
Selection.AutoFilter Field:=7, Criteria1:=Var, Operator:=xlAnd
 
Sheets(x).Select
Selection.AutoFilter Field:=8, Criteria1:=Var1, Operator:=xlAnd
 
Sheets(x).Select
Selection.AutoFilter Field:=5, Criteria1:=Var2, Operator:=xlAnd
 
Sheets(x).Select
Selection.AutoFilter Field:=3, Criteria1:=Var3, Operator:=xlAnd
 
Sheets(x).Select
Selection.AutoFilter Field:=4, Criteria1:=Var4, Operator:=xlAnd
 
Sheets(x).Select
Selection.AutoFilter Field:=1, Criteria1:=Var5, Operator:=xlAnd
 
  If y <> "CGIE" Or t <> "Contrôle de gestion" Or z <> "CGIE" Then
      Sheets(x).Range("K1:K150").EntireColumn.Hidden = True
 
      Else
 
      Sheets(x).Range("K1:K150").EntireColumn.Hidden = False
      End If
 
End Sub

Merci pour votre futur aide

[tchoutchou69]

Désolé pour ce post, j'ai trouvé la solution

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
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
 
Private Sub CommandButton13_Click()
 
Dim t As Variant
t = Sheets("Feuil1").Range("M28").Value
Dim u As Variant
u = Sheets("Feuil1").Range("M27").Value
Dim v As String
v = Sheets("Feuil1").Range("M25").Value
Dim w As String
w = Sheets("Feuil1").Range("M25").Value
Dim x As String
x = Sheets("Feuil1").Range("M22").Value
Dim y As Variant
y = Sheets("Feuil1").Range("M23").Value
Dim z As String
z = Sheets("Feuil1").Range("M24").Value
 
 
Var = "*" & y & "*"
Var1 = z
Var2 = w
Var3 = v
Var4 = u
Var5 = t
 
 
Sheets(x).Select
Selection.AutoFilter Field:=7, Criteria1:=Var, Operator:=xlAnd
 
Sheets(x).Select
Selection.AutoFilter Field:=8, Criteria1:=Var1, Operator:=xlAnd
 
Sheets(x).Select
Selection.AutoFilter Field:=5, Criteria1:=Var2, Operator:=xlAnd
 
Sheets(x).Select
Selection.AutoFilter Field:=3, Criteria1:=Var3, Operator:=xlAnd
 
Sheets(x).Select
Selection.AutoFilter Field:=4, Criteria1:=Var4, Operator:=xlAnd
 
Sheets(x).Select
Selection.AutoFilter Field:=1, Criteria1:=Var5, Operator:=xlAnd
 
  If y = "CGIE" Or t = "Contrôle de gestion" Or z = "CGIE" Then
      Sheets(x).Range("K1:K150").EntireColumn.Hidden = False
 
      Else
 
      Sheets(x).Range("K1:K150").EntireColumn.Hidden = True
      End If
 
            If y = "CGIE" Or t = "Contrôle de gestion" Or z = "CGIE" Then
            Sheets(x).Range("L8:V150").EntireColumn.Hidden = False
 
            Else
 
            Sheets(x).Range("L8:V150").EntireColumn.Hidden = True
            End If
 
 
End Sub