Menu

Macro pour masquer des lignes en fonction condition [Résolu]

Messages postés
6
Date d'inscription
lundi 3 décembre 2018
Dernière intervention
13 décembre 2018
- - Dernière réponse : Lapin53
Messages postés
6
Date d'inscription
lundi 3 décembre 2018
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
Afficher la suite 

Votre réponse

2 réponses

Meilleure réponse
Messages postés
9970
Date d'inscription
mercredi 16 janvier 2013
Dernière intervention
16 décembre 2018
1
Merci
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

Dire « Merci » 1

Heureux de vous avoir aidé ! Vous nous appréciez ? Donnez votre avis sur nous ! Evaluez CommentCaMarche

CCM a aidé 36427 internautes ce mois-ci

Commenter la réponse de via55
Messages postés
6
Date d'inscription
lundi 3 décembre 2018
Dernière intervention
13 décembre 2018
0
Merci
Merci
Commenter la réponse de Lapin53