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

Signaler
Messages postés
6
Date d'inscription
lundi 3 décembre 2018
Statut
Membre
Dernière intervention
13 décembre 2018
-
Messages postés
6
Date d'inscription
lundi 3 décembre 2018
Statut
Membre
Dernière intervention
13 décembre 2018
-
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

Messages postés
12672
Date d'inscription
mercredi 16 janvier 2013
Statut
Membre
Dernière intervention
18 septembre 2020
2 016
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
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

CCM 60350 internautes nous ont dit merci ce mois-ci

Messages postés
6
Date d'inscription
lundi 3 décembre 2018
Statut
Membre
Dernière intervention
13 décembre 2018

Merci