Discussion :

[jpma75]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[parmi]

Bonjour,

Fais une recherche sur Find
ex:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[joe.levrai]

Bonjour,

la fonction FIND effectue ça correctement

exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 (), 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