C
chris-57
Guest
Salut à tous !
Je voudrais élaborer une recherche simple d'un mot dans une liste, sans tenir compte des majuscules/minuscules.
On tape le mot dans une cellule [E2], on clique sur un bouton et la macro sélectionne la 1ère cellule contenant ce mot, cela dans une plage spécifiée [E5:E275].
Puis en recliquant sur le même bouton, la macro doit sélectionner la cellule suivante contenant ce mot (comme la recherche inclue dans la barre d'outils, mais sans fenêtre qui s'ouvre)
En fouillant dans le forum, j'ai trouvé ça et je l'ai adapté, mais pas moyen de lui faire sélectionner la cellule suivante contenant ce mot.
Sub RECHERCHER()
Dim X As Range
Dim Valeur As String, FirstAddress As String
Valeur = [E2].Value
If Valeur = "" Then Exit Sub
With [E5:E275]
Set X = .Find(Valeur, LookIn:=xlValues)
If Not X Is Nothing Then
FirstAddress = X.Address
Do
X.Select
Set X = .FindNext(After:=ActiveCell)
Loop While Not X Is Nothing And X.Address <> FirstAddress
End If
End With
If FirstAddress = "" Then [E2].select
End Sub
Je voudrais élaborer une recherche simple d'un mot dans une liste, sans tenir compte des majuscules/minuscules.
On tape le mot dans une cellule [E2], on clique sur un bouton et la macro sélectionne la 1ère cellule contenant ce mot, cela dans une plage spécifiée [E5:E275].
Puis en recliquant sur le même bouton, la macro doit sélectionner la cellule suivante contenant ce mot (comme la recherche inclue dans la barre d'outils, mais sans fenêtre qui s'ouvre)
En fouillant dans le forum, j'ai trouvé ça et je l'ai adapté, mais pas moyen de lui faire sélectionner la cellule suivante contenant ce mot.
Sub RECHERCHER()
Dim X As Range
Dim Valeur As String, FirstAddress As String
Valeur = [E2].Value
If Valeur = "" Then Exit Sub
With [E5:E275]
Set X = .Find(Valeur, LookIn:=xlValues)
If Not X Is Nothing Then
FirstAddress = X.Address
Do
X.Select
Set X = .FindNext(After:=ActiveCell)
Loop While Not X Is Nothing And X.Address <> FirstAddress
End If
End With
If FirstAddress = "" Then [E2].select
End Sub