Discussion :

[labaguette]

Bonjour,

J'ai un formulaire qui est remplie automatiquement via des Vlookup, sur l'information produit.

Je n'ai à changé qu'une seul cellule (le produit) pour changer toute l'information.


J'ai tenté d'écrire un code qui vient cacher automatiquement certaine ligne/colonnes quand certaines cases sont vides:

Code VBA :

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
 
Private Sub Worksheet_Change(ByVal Target As Range)
 
    If Range("k7").Value = 0 Then
        Columns("k").EntireColumn.Hidden = True
    Else
        Columns("k").EntireColumn.Hidden = False
 
        End If
        End Sub
 
Private Sub Worksheet_Change(ByVal Target As Range)
    If Range("c19").Value = 0 Then
 
        Rows("19:83").EntireRow.Hidden = True
    Else
        Rows("19:83").EntireColumn.Hidden = False
 
        End If
        End Sub

Mon code fonctionne individuellement... Je sais qu'on ne peut pas avoir plusieurs Private Sub Worksheet_Change, j'ai alors tenté la variante suivante:

Code VBA :

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
 
Private Sub Worksheet_Change(ByVal Target As Range)
 
    If Range("k7").Value = 0 Then
        Columns("k").EntireColumn.Hidden = True
    Else
        Columns("k").EntireColumn.Hidden = False
 
        End If
 
    If Range("c19").Value = 0 Then
 
        Rows("19:83").EntireRow.Hidden = True
    Else
        Rows("19:83").EntireColumn.Hidden = False
 
        End If
 
        End Sub

Mais ça ne fonctionne pas. Mes deux if doivent être validé pour que le code fonctionne. Si k7 =0 mais pas c19 ça ne fonctionne pas et vice versa...

Une idée?

Merci

[joe.levrai]

Bonjour,

comme ceci ?

Code :

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

1
2
3
4
5
6
7
8
Private Sub Worksheet_Change(ByVal Target As Range)
    Select Case Target.Address
        Case "$C$19"
            Rows("19:83").EntireRow.Hidden = Range("c19").Value = 0
        Case "$K$7"
            Columns("k").EntireColumn.Hidden = Range("k7").Value = 0
    End Select
End Sub

[labaguette]

Bonjour,

Je dois sélectionner la cellule pour que le code fonctionne. Vu que ces cellules (c19, et k7) sont des Vlookup, l'utilisateur n'y touche pas...

La seul cellule que l'utilisateur peut changer est la cellule f4 (code produit), tous mes autres champs sont des Vlookup.

Merci

[joe.levrai]

Code :

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

1
2
3
4
5
6
Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("F4")) Is Nothing Then
        Rows("19:83").EntireRow.Hidden = Range("c19").Value = 0
        Columns("k").EntireColumn.Hidden = Range("k7").Value = 0
    End If
End Sub

Une description précise = une réponse au plus précis de la demande