Discussion :

[Fdc_53]

Bonjour,


je ne comprends pas pourquoi ma recherche reste bloqué à la ligne 50?

Est ce que vous pouvez m'éclairer?

Merci

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
Private Sub txt_SST_Change()
 
'déclaration des variables
 
  Dim j As Integer
  Dim NbMax As String
  Dim mission_cherche As String
 
  'on reinitialise la listbox, efface les saisies
  Me.liste_SST.Clear
  'on enleve les couleurs
  'Feuil1.Range("A7:KFD500").Interior.ColorIndex = 0
 
    'on cherche la fin de la liste à parcourir
  'recherche a partir de la cellule 1000 la fin du tableau
  NbMax = Feuil1.Range("A500").End(xlUp)
 
  'on récupère la donnée saisie dans la textBox
  mission_cherche = Me.txt_SST.Value
 
  'on teste que la textbox n'est pas vide avant de faire la recherche
  If Me.txt_SST <> "" Then
 
    'on parcourt toute la liste afin de trouver les valeurs
    For j = 7 To NbMax
      'on teste le contenu de la cellule en prenant en compte toutes les valeurs saisies
      'grace au caractère de remplacement *
      If Feuil1.Cells(j, 4) Like "*" & UCase(Me.txt_SST) & "*" Then
        'colorier la ligne correspondante
        'colorier la cellule
        'Cells(j, 4).Interior.Color = RGB(100, 100, 100)
                 'on complete la listbox des valeurs trouvées
         Me.liste_SST.AddItem Feuil1.Cells(j, 4)
 
      End If
 
    Next j
 
  End If

[Menhir]

Regarde le contenu de la variable NbMax.
Tu constateras sans doute qu'elle contient la valeur de la dernière cellule complétée de la colonne A et non pas le n° de ligne comme tu le souhaites sans doute.

Ca te conduira à t'interroger sur la validité du code NbMax = Feuil1.Range("A500").End(xlUp).
Tu n'as pas l'impression qu'il manque quelque chose ?

[Fdc_53]

effectivement,

Code :

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

1
2
3
4
 
Dim NbMax As Long
.....
  NbMax = Feuil1.Range("A500").End(xlUp).Row

Merci pour l'aide.