Discussion :

[Maxou 10]

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 :

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
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

[Bob78280]

Ce code devrait correspondre à ton besoin

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
 
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

[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

[Bob78280]

Ajouter cela au début

Code :

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

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

[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

[Bob78280]

Alors essaie ce 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
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