Finalisation de ma textbox recherche

Version imprimable

Bonjour

Je me retourne vers vous car que n’arrive pas à finaliser ma textbox recherche

Quand je tape entrer, j’aimerais que si il y a écrit «*bonjours*» dans 2 cases, cela soit la première des 2 qui soit sélectionné et pas la dernière.

De plus j’aimerais que quand il n’y a rien d’écrit dans ma textbox les cases repasse toutes verte

Et pour finir que mon msgbox s’affiche que si il ne trouve rien dans ma colonne.

Merci de votre aide

Voilà mon code vba:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 Option Compare Text Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) If KeyCode = 13 Then Application.ScreenUpdating = False Range("B3:B40").Interior.ColorIndex = 2 For ligne = 3 To 40 If Cells(ligne, 2) Like "*" & TextBox1 & "*" Then Cells(ligne, 2).Interior.ColorIndex = 43 ActiveSheet.Cells(ligne, 2).Select ActiveWindow.ScrollRow = Selection.Row / 2 End If Next MsgBox ("Aucun résultat ne correspond à votre recherche !"), vbOKOnly + vbCritical, "RECHERCHE INTROUVABLE" End If End Sub

Ce code devrait correspondre à ton besoin

Code:

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
 
Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Dim bTrouve As Boolean
 
If KeyCode = 13 Then
 
    Application.ScreenUpdating = False
    bTrouve = False
 
    Range("B3:B40").Interior.ColorIndex = 2
 
 
    For ligne = 40 To 3 Step -1
        If Cells(ligne, 2) Like "*" & TextBox1 & "*" Then
            Cells(ligne, 2).Interior.ColorIndex = 43
            ActiveSheet.Cells(ligne, 2).Select
            ActiveWindow.ScrollRow = Selection.Row / 2
            bTrouve = True
        End If
    Next
    If Not bTrouve Then
        MsgBox ("Aucun résultat ne correspond à votre recherche !"), vbOKOnly + vbCritical, "RECHERCHE INTROUVABLE"
    End If
End If
 
End Sub

27/08/2018, 16h36
Maxou 10

Nickel, vous êtes super

Dernière question, quand il y a rien dans la case il faut que je tape entrer pour que tout repasse vert....
Est-il possible que ça soit automatique ?

Du genre si rien dans la case = couleur verte

Ajouter cela au début

Code:

1
2
3
4
5
6
7
8
9
10
Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Dim bTrouve As Boolean

if TextBox1 ="" then
Range("B3:B40").Interior.ColorIndex = 43
end if

 
If KeyCode = 13 Then

27/08/2018, 17h04
Maxou 10

Une fois de plus au top la réponse, j’avais juste pas mit au bon endroit....

Je vais être penible mais j’aimerais que cela fonctionne nickel

En plus du vert quand il y a rien dans la case, est il possible de revenir à la ligne 3

Et quand je tape une deuxième fois entrer, est il possible que ce soit la 2eme case avec écrit «*bonjour*» qui ce sélectionne et ainsi de suite ?

Encore merci

Alors essaie ce code

Code:

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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
 
Dim strValue As String
Dim nbEnter As Long
 
Private Sub TextBox1_Change()
 
If TextBox1 = "" Then
    Range("B3:B40").Interior.ColorIndex = 43
    Range("B3").Select
    nbEnter = 0
    strValue = ""
End If
 
End Sub
 
Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Dim bTrouve As Boolean
Dim nbValeurTrouvee() As Long
 
If KeyCode = 13 Then
 
    If strValue = TextBox1.Value Then
        nbEnter = nbEnter + 1
    Else
        nbEnter = 1
        strValue = TextBox1.Value
    End If
 
    Application.ScreenUpdating = False
    bTrouve = False
 
    Range("B3:B40").Interior.ColorIndex = 2
 
    ReDim nbValeurTrouvee(0)
    For ligne = 3 To 40
        If Cells(ligne, 2) Like "*" & TextBox1 & "*" Then
            Cells(ligne, 2).Interior.ColorIndex = 43
            ReDim Preserve nbValeurTrouvee(UBound(nbValeurTrouvee) + 1)
            nbValeurTrouvee(UBound(nbValeurTrouvee)) = ligne
            ActiveWindow.ScrollRow = Selection.Row / 2
            bTrouve = True
        End If
    Next
 
    If Not bTrouve Then
        MsgBox ("Aucun résultat ne correspond à votre recherche !"), vbOKOnly + vbCritical, "RECHERCHE INTROUVABLE"
        Range("B3").Select
    Else
        ActiveSheet.Cells(nbValeurTrouvee(Application.Min(nbEnter, UBound(nbValeurTrouvee))), 2).Select
    End If
End If
 
End Sub