E
ELIOT690
Guest
bonjour à tous
j'ai un souci avec ma list box
j'aimerais qu'elle affiche quand je fais une recherche la totalité du texte recherché mais cela n'est pas le cas
on dirait qu'elle n'affiche le texte recherché que sur une ligne du coup le texte affiché est tronqué !
voici le programme en vba :
Option Explicit
Dim Chaine As String * 700
Dim Longueur As Long
Sub CODE(cle As String)
Chaine = ""
Dim Repert As String
Dim Section As String
Dim defaut As String
Repert = Workbooks("jurisprudence.xls").Path & "\resultat.txt" 'Fichier texte
Section = "juris-resultat" 'la Section est représentée entre crochet dans le fichier texte
Longueur = GetPrivateProfileString(Section, cle, defaut, Chaine, Len(Chaine), Repert)
Listeresultat (Chaine) 'Appel de la fonction Listeresultat qui sépare chaque chaîne de caractères séparée par ";"
End Sub
Sub Listeresultat(resultat As String)
Dim i As Integer, j As Integer
Dim debut As Integer
jurisp.ListBox1.Clear
debut = 1
For i = 1 To Len(resultat)
If Mid(resultat, i, 1) = ";" Then
jurisp.ListBox1.AddItem Mid(resultat, debut, i - debut)
debut = i + 1
j = j + 1
End If
Next i
End Sub
merci pour votre aide
j'ai un souci avec ma list box
j'aimerais qu'elle affiche quand je fais une recherche la totalité du texte recherché mais cela n'est pas le cas
on dirait qu'elle n'affiche le texte recherché que sur une ligne du coup le texte affiché est tronqué !
voici le programme en vba :
Option Explicit
Dim Chaine As String * 700
Dim Longueur As Long
Sub CODE(cle As String)
Chaine = ""
Dim Repert As String
Dim Section As String
Dim defaut As String
Repert = Workbooks("jurisprudence.xls").Path & "\resultat.txt" 'Fichier texte
Section = "juris-resultat" 'la Section est représentée entre crochet dans le fichier texte
Longueur = GetPrivateProfileString(Section, cle, defaut, Chaine, Len(Chaine), Repert)
Listeresultat (Chaine) 'Appel de la fonction Listeresultat qui sépare chaque chaîne de caractères séparée par ";"
End Sub
Sub Listeresultat(resultat As String)
Dim i As Integer, j As Integer
Dim debut As Integer
jurisp.ListBox1.Clear
debut = 1
For i = 1 To Len(resultat)
If Mid(resultat, i, 1) = ";" Then
jurisp.ListBox1.AddItem Mid(resultat, debut, i - debut)
debut = i + 1
j = j + 1
End If
Next i
End Sub
merci pour votre aide