XL 2016 Masquer des lignes en fonction d'un changement de valeurs

[ntb]

Bonjour à tous,

J'ai essayé de mettre en place une macro me permettant de masquer des lignes en fonction des valeurs se trouvant dans d'autres cellules. Toutefois celle-ci ne fonctionne pas et je n'arrive pas à trouver le problème...

Voici la macro :

Private Sub Worksheet_Change(ByVal Target As Range)
Application.Volatile
If Not Intersect(Target, [G8]) Is Nothing Then
If Target = "Single site" Then
Rows("17:25").EntireRow.Hidden = True
ElseIf Target = "Multisite" Then
Rows("17:25").EntireRow.Hidden = False
End If
End If

Application.Volatile
If Not Intersect(Target, [K24]) Is Nothing Then
If Target = "No sampling" Then
Rows("31:1000").EntireRow.Hidden = True
ElseIf Target = "Sampling" Then
Rows("31:1000").EntireRow.Hidden = False
End If
End If

End Sub


Si quelqu'un à une idée n'hésitez pas

 

[job75]

Bonjour ntb,

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [G8]) Is Nothing Then Rows("17:25").Hidden = [G8] = "Single site"
If Not Intersect(Target, [K24]) Is Nothing Then Rows("31:1000").Hidden = [K24] = "No sampling"
End Sub

Bien noter que Application.Volatile concerne les fonctions VBA, pas les procédures Sub.

A+

 

[ntb]

Bonjour ntb,

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [G8]) Is Nothing Then Rows("17:25").Hidden = [G8] = "Single site"
If Not Intersect(Target, [K24]) Is Nothing Then Rows("31:1000").Hidden = [K24] = "No sampling"
End Sub

Bien noter que Application.Volatile concerne les fonctions VBA, pas les procédures Sub.

A+

Super merci ça fonctionne! Juste une petite question, cela fonctionne lorsque dans les cases G8 et K24 il y a des listes déroulantes mais si jamais je veux la même chose sans liste déroulante mais en fonction de la valeur de la cellule comment je fais?

A+

 

[job75]

La macro va bien avec ou sans listes déroulantes en G8 et K24.