Discussion :

[Maxou 10]

Bonjour,

J’ai un textbox recherche dans ma feuille Excel.
Quand je tape enter cela fonctionne mais j’aimerais que si je retape enter cela aille au prochain mot trouver et ainsi de suite.... comme dans Ctrl+f

Voilà mon code VBA:

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
Private Sub TextBox1_KeyDown(ByVal KeyCode As MDForms.ReturnInteger, ByVal Shift As Integer)
            Dim rechercheTrouvee As Boolean 
            rechercheTrouvee = False
 
           If KeyCode = 13 Then
 
                 Application.ScreenUpdating = False
 
                 If TextBox1 = «*» Then
                     Range («*A3:A154*»).Interior.Color = 13434777
 
                    rechercheTrouvee = True
                 Else
                    Range(«*A3:A154*»).Interior.ColorIndex = 0
 
                   For ligne = 3 To 154
                        If Cells(ligne, 1) Like «***» & TextBox1 & «***» Then
                             Cells(ligne, 1).Interior.Color = 13434777
                             If rechercheTrouvee = False Then
                                   ActiveSheet.Cells( ligne, 2).Select
                                   ActiveWindow.ScrollRow = Sélection.Row
                                   Worksheets(«*MÉMENTO*»).TextBox1.Verb
                                   RechercheTrouvee = True
                             End if
                      End if
             End if
End Sub

Merci et bonne journée

[MarcelG]

Bonjour,

Tu as toi-même donné la solution.

Voir l'exemple donné dans l'aide de la fonction Find

A adapter bien-entendu.

Code :

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

1
2
3
4
5
6
7
8
9
10
With Worksheets(1).Range("a1:a500")
    Set c = .Find(2, lookin:=xlValues)
    If Not c Is Nothing Then
        firstAddress = c.Address
        Do
            c.Value = 5
            Set c = .FindNext(c)
        Loop While Not c Is Nothing And c.Address <> firstAddress
    End If
End With

[Maxou 10]

Du coup il faut que je l’integre ou ton code ?

[MarcelG]

Par exemple, l'affecter au code d'un bouton de commande intégré au formulaire.

1 conseil au passage.
Ne pas définir la dernère ligne d'un champ de cellules en "dur".
Considérer plutôt la dernière ligne informée. Je précise: sans utiliser les cellules spéciales.

[Maxou 10]

J’ai essayé et j’ai pas réussi......

[MarcelG]

J’ai essayé et j’ai pas réussi......

Il te faut adapter l'exemple précité au Texte de ton contrôle Textbox.

Quel est ton code?

Quelques autres remarques:
- Toujours baliser un code reporté par les bornes #
- Indenter un code (i.e. mettre en retrait les lignes incluses dans un bloc If, Select Case...) contribue à sa lisibilité.
- Comme Philippe, que je salue au passage, j'ai pour habitude de préfixer le nom des contrôles par des caractères précisant leur nature (Txt_, Cbx_, Fr_...)
- Ce nom doit être explicite (Txt_Nom)