Probleme de format sur recherche par mot clef

[cpeens]

Bonjour à tous

j'ai un petit probleme j'utilise ce bout de code de recherche par mot clef trouver ici même si je me trompe pas l'origine était de Paritec.

mon soucis est si je rentre dans ma textbox Toto il me le trouve si en revanche je rentre toto en minuscule il ne me le trouve pas evidement je me suis rendu compte que c'est le fais que ma base de donnée était formater ainsi mais je voudrais pouvoir modifier ce bout de code pour paut importe le format de ma BD il me le retouve

merci d'avance de votre aide précieuse.

Private Sub C4_Change()

 
      Dim i&, fin&
    C1 = "": C2 = "": C3 = ""
    If C4 = "" Then L1.ListItems.Clear: Label6.Caption = "": Exit Sub
    fin = Feuil1.Range("A65536").End(xlUp).Row
    aa = Feuil1.Range("A2:I" & fin)
    For i = 1 To UBound(aa)
        For a = 1 To UBound(aa, 2)
            If aa(i, a) Like "*" & C4 & "*" Then aa(i, 9) = "oui"
        Next a
    Next i
    Y = 1
    For i = 1 To UBound(aa)
        If aa(i, 9) = "oui" Then Y = Y + 1
    Next
    If Y = 2 Then Label6.Caption = Y - 1 & " Ligne faisant référence à votre recherche a été trouvée "
    If Y > 2 Then Label6.Caption = Y - 1 & " Lignes faisant référence à votre recherche ont été trouvées  "
    If Y < 2 Then L1.ListItems.Clear: Label6.Caption = "": GoTo 1
    ReDim bb(Y - 1, 8)
    Y = 1
    For i = 1 To UBound(aa)
        If aa(i, 9) = "oui" Then
            For a = 1 To 8
                bb(Y, a) = aa(i, a)
            Next a
            Y = Y + 1
        End If
    Next i
    With L1
        .ListItems.Clear
        .View = lvwReport
        .FullRowSelect = True
        .Gridlines = True
        For i = 1 To UBound(bb)
            .ListItems.Add , , bb(i, 1)
            For a = 2 To UBound(bb, 2)
                .ListItems(.ListItems.Count).ListSubItems.Add , , bb(i, a)
            Next a
        Next i
1   End With
End Sub

 

[Pierrot93]

Re : Probleme de format sur recherche par mot clef

Bonjour,

essaye ceci, sur la première ligne de ton module :

Option Compare Text

bonne journée
@+

 

[cpeens]

Re : Probleme de format sur recherche par mot clef

Bonjour pierrot et merci pour ton intervention je teste cela de suite et je te tiens informé

 

[cpeens]

Re : Probleme de format sur recherche par mot clef

re bonjour

sa ne fonctionne pas j'ai un bug instruction incorrecte dans une procedure

j'ai fais comme ceci

Option Compare Text

Label6.Caption = ""
   C4.Text = Format(C4.Text, ">")
      Dim i&, fin&
    C1 = "": C2 = "": C3 = "": C5 = ""
    If C4 = "" Then L1.ListItems.Clear: Label6.Caption = "": Exit Sub
    fin = Feuil1.Range("A65536").End(xlUp).Row
    aa = Feuil1.Range("A2:I" & fin)
    For i = 1 To UBound(aa)
        For A = 1 To UBound(aa, 2)
            If aa(i, A) Like "*" & C4 & "*" Then aa(i, 9) = "oui"
        Next A
    Next i
    Y = 1
    For i = 1 To UBound(aa)
        If aa(i, 9) = "oui" Then Y = Y + 1
    Next
    If Y = 2 Then Label6.Caption = Y - 1 & " Ligne faisant référence à votre recherche a été trouvée "
    If Y > 2 Then Label6.Caption = Y - 1 & " Lignes faisant référence à votre recherche ont été trouvées  "
    If Y < 2 Then L1.ListItems.Clear: Label6.Caption = "": GoTo 1
    ReDim bb(Y - 1, 8)
    Y = 1
    For i = 1 To UBound(aa)
        If aa(i, 9) = "oui" Then
            For A = 1 To 8
                bb(Y, A) = aa(i, A)
            Next A
            Y = Y + 1
        End If
    Next i
    With L1
        .ListItems.Clear
        .View = lvwReport
        .FullRowSelect = True
        .Gridlines = True
        For i = 1 To UBound(bb)
            .ListItems.Add , , bb(i, 1)
            For A = 2 To UBound(bb, 2)
                .ListItems(.ListItems.Count).ListSubItems.Add , , bb(i, A)
            Next A
        Next i
1   End With

End Sub

es ce bien ce qui fallait faire merci

 

[Pierrot93]

Re : Probleme de format sur recherche par mot clef

Bonjour,

j'ai un bug instruction incorrecte dans une procedure

je disais :

essaye ceci, sur la première ligne de ton module :

cette instruction est à placer avant toute déclaration de procédure, avant tes "private sub"....

bon dimanche
@+

 

[cpeens]

Re : Probleme de format sur recherche par mot clef

Re Pierrot93

je t'avais mal compris sur le coup cela fonctionne super bien merci beaucoup à toi à trés bientot.

trés bon dimanche ègalement