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.
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.
Code:
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