Equivalent CTRL F

Bonjour,

Dans le code qui suit :
Je souhaite rechercher un nom dans une colonne qui en contient environ 500.
1- Bien que j'ai sélectionné cette colonne (ceux qui haïssent les "select" vont me détester), il me semble que la recherche se fait également au delà de la sélection ! Comment puis-je corriger le problème ?
2- Si, dans la fenêtre qui s'ouvre, je ne mets que quelques lettres, le résultat renverra tous les noms comprenant ces quelques lettres, qu'elles soient au début ou au milieu des noms (dans ce dernier cas, ça ne m'arrange pas !). Peut-on avoir une recherche qui s'effectue uniquement sur le début des noms ?
Je vous remercie par avance pour votre aide.
Cdt

Code:

---

1 2 3 4 5 6

If Target.Address = "$Q$22" Then Range("C26:C500").Select Application.Dialogs(xlDialogFormulaFind).Show ActiveCell.Offset(0, 5).Select End If

---

Bonjour,

Fais une recherche sur Find
ex:

Code:

---

1 2 3 4 5 6

Dim Recherche as range Set Recherche = Columns("C").Find(MaValeur, LookIn:=xlValues, LookAt:=xlWhole) If Not Recherche is nothing then 'La valeur a été trouvée Msgbox Recherche.Address end if

---

Ici, j'ai mis une colonne (C), mais c'aurait pu être une plage quelconque
Il y a aussi différents paramètres que tu peux regarder dans l'aide selon tes besoins.
xlWhole pourrait être xlPart si la valeur est une partie de ce qui est écrit dans la cellule.

Il y a aussi FindNext

Bonjour,

la fonction FIND effectue ça correctement

exemple :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Private Sub Worksheet_Change(ByVal Target As Range) ' on recherche en C26:C500 la valeur écrite en Q22 If Target.Address = "$Q$22" Then Set recherche = Range("C25", "C500").Find(Target.Value, , , xlWhole) If Not recherche Is Nothing Then MsgBox recherche.Address ' adresse du résultat Else MsgBox "Aucun résultat" End If End If End Sub

---

Cet exemple recherche la valeur complète de la cellule (argument xlWhole) et pas une portion de la valeur de la cellule (argument xlPart)
Seul le premier résultat est retourné ==> il existe une seconde fonction FindNext (regarde aussi l'aide) qui te permettra de récupérer tous les résultats


regarde attentivement l'aide (:f1:), car il est nécessaire de toujours paramétrer les arguments de cette fonction
(à défaut, VBA prendra les dernières paramètres utilisés quand tu as fait un CTLR+F)


EDIT : parmi a été le plus rapide ... on a proposé Les mêmeS choseS :P