Plusieurs Private Sub Worksheet_Change(ByVal Target As Range)

Version imprimable

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:

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:

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

Bonjour,

comme ceci ?

Code:

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

28/10/2020, 15h25
labaguette

1 pièce(s) jointe(s)

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

Code:

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