Discussion :

[justin74]

Bonjour,

Je pense que mon problème est simple pour certains mais je n'arrive pas à m'en sortir.
J'ai sur feuille une base de données avec des noms de ville et également une textbox. Je souhaite faire une recherche de la ville rentrée dans la textbox et aller à la ligne correspondante si la ville est trouvée. Seul problème, mon code ne renvoit pas au nom exacte de la ville et ma recherche est donc faussée. Comment faire ? Merci.
Voici le code:

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
21
22
23
24
25
26
27
28
 
Private Sub TextBox2_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
'Validation par la touche entrée de la Textbox2
    If KeyCode = 13 Then
 
            'Recherche de la ville
            Dim Cell As Range
            Set Cell = Range("A13:A38962").Find(Me.TextBox2, LookIn:=xlFormulas, Lookat:=xlWhole)
            If Me.TextBox2 = "" Then Exit Sub
 
            If Not Cell Is Nothing Then
 
                MsgBox ("Ville Trouvée à la Ligne " & Cell.Row & ".")
                'Positionnement du curseur sur la cellule
                Cell.Offset(0, 0).Select
                TextBox2.Text = ""
 
            Else
 
                'Si ville non trouvée
                MsgBox ("Ville Non Trouvée.")
                TextBox2.Text = ""
 
            End If
 
    End If
 
End Sub

[Philippe Tulliez]

Bonjour,
A part le fait que ma préférence irait pour la procédure événementielle TextBox2_AfterUpdate() à la place de Keydown et aussi déplacement de la ligne If Me.TextBox2 = "" Then Exit Sub avant le Set Cell
Pour le reste, je ne vois pas où est le problème, cela fonctionne pour moi.