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