Macro pour masquer des lignes en fonction condition

Résolu/Fermé
Lapin53 Messages postés 6 Date d'inscription lundi 3 décembre 2018 Statut Membre Dernière intervention 13 décembre 2018 - 3 déc. 2018 à 16:33
Lapin53 Messages postés 6 Date d'inscription lundi 3 décembre 2018 Statut Membre Dernière intervention 13 décembre 2018 - 4 déc. 2018 à 08:56
Bonjour,
Je cherche un code VBA pour masquer des lignes en fonction d'une condition :
Suite à une sélection dans un menu déroulant situé en cellule N5
A partir de la ligne 9 en colonne Y, ce trouve l'information qui peut être identique à ma cellule de référence N5.
Je souhaiterais trouver le code vba qui masque les lignes qui contiennent une valeur différence en colonne Y de ma cellule de référence N5.
Pouvez-vous m'aider.
Merci d'avance

2 réponses

via55 Messages postés 14494 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 26 octobre 2024 2 734
3 déc. 2018 à 16:59
Bonjour Lapin

Macro à mettre dans le worksheet de la feuille concernée et qui se déchence à un changement en N5
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("N5")) Is Nothing Then
Dim Ligne As Long
Ligne = Columns(25).Find("*", , , , xlByColumns, xlPrevious).Row
For i = Ligne To 9 Step -1
If Range("Y" & i) <> Target.Value Then
  Rows(i & ":" & i).Select
    Selection.EntireRow.Hidden = True
    End If
Next
End If
End Sub


Cdlmnt
Via
1