Adapter longueur champ selection listbox
Résolu
thyphonfalcon
Messages postés
41
Date d'inscription
vendredi 27 octobre 2006
Statut
Membre
Dernière intervention
12 mai 2007
-
9 déc. 2006 à 11:47
thyphonfalcon Messages postés 41 Date d'inscription vendredi 27 octobre 2006 Statut Membre Dernière intervention 12 mai 2007 - 9 déc. 2006 à 12:40
thyphonfalcon Messages postés 41 Date d'inscription vendredi 27 octobre 2006 Statut Membre Dernière intervention 12 mai 2007 - 9 déc. 2006 à 12:40
A voir également:
- Adapter longueur champ selection listbox
- Vba longueur chaine ✓ - Forum Visual Basic
- Listbox ✓ - Forum VB.NET
- Longueur tableau php ✓ - Forum PHP
- Vba listbox additem ✓ - Forum Visual Basic 6
- Php longueur chaine - Forum PHP
2 réponses
thyphonfalcon
Messages postés
41
Date d'inscription
vendredi 27 octobre 2006
Statut
Membre
Dernière intervention
12 mai 2007
9 déc. 2006 à 12:40
9 déc. 2006 à 12:40
Ok le problème est résolu, je restreinds l'iportation du texte à une longueur définie
Dim cCol As New Collection
Dim i As Integer
Dim sSplitListe() As String, sTempString As String
If List1.ListCount <> 0 Then Exit Sub
sSplitListe = Split(txtEdition.Text, vbCrLf)
On Error Resume Next
For i = 0 To UBound(sSplitListe)
sTempString = "0" & Right(sSplitListe(i), 12) - Right(sSplitListe(i), 5) (j'ajoute un 0 devant ma mligne et je sélectionne les 12 derniers chiffres de ma ligne)
cCol.Add sTempString, sTempString
If Err.Number = 457 Then
Err.Clear
If Not Err.Number = 457 Then List1.AddItem Left(sTempString, 7): Err.Clear (j'importe uniquement 7 chiffres)
End If
Next i
et voilà
Dim cCol As New Collection
Dim i As Integer
Dim sSplitListe() As String, sTempString As String
If List1.ListCount <> 0 Then Exit Sub
sSplitListe = Split(txtEdition.Text, vbCrLf)
On Error Resume Next
For i = 0 To UBound(sSplitListe)
sTempString = "0" & Right(sSplitListe(i), 12) - Right(sSplitListe(i), 5) (j'ajoute un 0 devant ma mligne et je sélectionne les 12 derniers chiffres de ma ligne)
cCol.Add sTempString, sTempString
If Err.Number = 457 Then
Err.Clear
If Not Err.Number = 457 Then List1.AddItem Left(sTempString, 7): Err.Clear (j'importe uniquement 7 chiffres)
End If
Next i
et voilà
thyphonfalcon
Messages postés
41
Date d'inscription
vendredi 27 octobre 2006
Statut
Membre
Dernière intervention
12 mai 2007
9 déc. 2006 à 11:54
9 déc. 2006 à 11:54
on peut voir le problème autrement,
Comment obliger une listbox à n'ajouter qu'une partie d'un texte...çà peut ce voir comme çà aussi !
Comment obliger une listbox à n'ajouter qu'une partie d'un texte...çà peut ce voir comme çà aussi !
