Recherche d'un mot dans un Range Dynamique [Résolu]
Bonjour le Forum,
j'ai une liste (A2:A30) remplie de noms divers et je cherche à afficher les lignes, dont les cellules contiennent le nom d'une variable que j'ai crée. Voici le code que je mets et ça ne marche pas : HELP!
Option Explicit
Public NomRecherche As String
Sub AfficheAjouts()
NomRecherche = "Ajouts"
Call AfficheNRT
End Sub (celle-ci marche)
Sub AfficheNRT()
Cells(2, 1).Select
Do Until ActiveCell.Value = ""
If Range(ActiveCell, ActiveCell.Offset(0, 4)).Value = NR Then
Rows(ActiveCell.Row).Select
Selection.EntireRow.Hidden = False
Else:
Rows(ActiveCell.Row).Select
Selection.EntireRow.Hidden = True
End If
ActiveCell.Offset(1, 0).Activate
Loop
End Sub
Je mets un loop afin de pouvoir rajouter autant de noms que je le souhaite dans ma liste. Je souhaite donc fonctionner en dynamique.
Ca plante au niveau du IF. Quelqu'un peut-il m'aider???
Par avance Merci. Juju