Discussion :

[saninx]

j'ai observé une macro de recherche sur le net que j'ai essayé d'appliquer à mon cas, ce qui donne le programme suivant :

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
    Private Sub TextBox1_Change()
 
    Dim nbligne As Long
    Dim cellul As Long
 
    Application.ScreenUpdating = False
    Range("B2:B27").Interior.ColorIndex = 2
 
    nbligne = 1
    cellul = 2
    While Cells(cellul, 2) <> ""
        cellul = cellul + 1
        nbligne = nbligne + 1
    Wend
 
    If TextBox1 <> "" Then
    For ligne = 2 To nbligne
        If Cells(ligne, 2) Like "*" & TextBox1 & "*" Then
           Cells(ligne, 2).Interior.ColorIndex = 43
        End If
    Next
    End If
        'TextBox1 = ""
        'MsgBox ("Aucun enregistrement ne correspond à cette recherche")
End Sub

Cependant j'aimerais que lorsqu'il ne reste qu'une seule cellule en vert, la fenêtre descende sur la ligne correspondante dans le cas ou celle-ci n'est pas visible avec l'option "ActiveWindow.SmallScroll" et si pour finir aucune recherche n'est trouvée, le signaler à l'utilisateur.

ci-joint vous trouverai l'image de ma recherche.