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

ntb · 24 Juin 2021

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 · 24 Juin 2021

Bonjour ntb,

VB:

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+

job75 · 24 Juin 2021

Bonjour ntb,

VB:

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 · 24 Juin 2021

job75 à dit:
Bonjour ntb,

VB:

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 · 24 Juin 2021

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

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

ntb

XLDnaute Nouveau

job75

job75

XLDnaute Barbatruc

ntb

XLDnaute Nouveau

job75

XLDnaute Barbatruc

Discussions similaires