Discussion :

[JPDU92]

En fait, j'ai un soucis avec une formule, j'essaye de rechercher une chaine de caractére exacte mais je n'y arrive pas, par exemple, je fais rechercher nimes et je voudrais qu'il me sorte nimes et pas "nimasa". Vous savez comment je peux faire ? Merci d'avance

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Dim FL1 As Worksheet
 
Private Sub Recherche_Click()
Dim MotCherche, Plage As Range, Cell As Range
MotCherche = Me.TextBox1.Text
ColonneRecherche = 1
Set Plage = FL1.Range(Cells(1, ColonneRecherche), _
            Cells(Range("A65536").End(xlUp).Row, ColonneRecherche))
With Plage
    Set C = .Find(MotCherche, LookIn:=xlValues)
    If Not C Is Nothing Then 'donnée trouvée
            'On place les données de la ligne dans les textbox
            Me.TextBox2.Text = FL1.Cells(C.Row, 2).Value
            Me.TextBox3.Text = FL1.Cells(C.Row, 3).Value
            Me.TextBox4.Text = FL1.Cells(C.Row, 4).Value
            Me.TextBox5.Text = FL1.Cells(C.Row, 5).Value
        Else
            MsgBox "Donnée non trouvée"
    End If
End With

[patbou]

bonjour,

je ne comprends pas tout
tu recherche le mot dans la col1 et tu lis les valeurs des col2,3,4,5 lorsque la valeur a ete trouvée
peux tu preciser ce que tu attends

[JPDU92]

Bonjour
En fait la formule recherche effectivement dans la colonne 1 et ensuite elle place la ligne correspondante dans des box. Donc je cherche un moyen pour rechercher une valeur exacte dans cette colonne 1. Et aprés une formule qui me changerai cette meme ligne selectionnée par rapport à ce que je mettrai dans ces memes box...

[fred65200]

une piste
ajoutez LookAt:=xlWhole comme argument à .Find

[JPDU92]

Merci, et dire que j'avais la réponse en face de moi ! Et oui, des fois, on a pas la bonne défénition de certaines fonction...