Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel list box ---->tri

list box ---->tri

6 réponses
Avatar
FB
BJR tout le monde

j'utilise une liste box dans une UF mais le contenu de ma list box n'est pas
classé par ordre alphabétique.
Comment faire mettre le contenu de ma liste box par ordre alphabétique

merci d'avance
FB
Signaler un problème avec ce contenu

6 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Daniel
Bonjour.
Comment remplis-tu le contenu de ta listbox ?
Cordialement.
Daniel
"FB" a écrit dans le message de news:

BJR tout le monde

j'utilise une liste box dans une UF mais le contenu de ma list box n'est
pas
classé par ordre alphabétique.
Comment faire mettre le contenu de ma liste box par ordre alphabétique

merci d'avance
FB


Avatar
FB
ben....
tu veux le code ???
sinon je prends dans un fichier TXT avec cette routine:

Sub renseignercombo()
Const ForAppending = 8
Const ForReading = 1
Const ForWriting = 2
Dim fs As Object, LeFichier As Object
Dim derniereligne As Integer, nombrelignes As Integer
Dim ligne As String
Dim i As Integer, f1
'L'objet "FileSystemObjet" dispose de la propriété line
'qui permet de connaître le nombre de lignes du fichier.
'Ici on crée une liaison tardive avec FSO
Set fs = CreateObject("scripting.FileSystemObject")
'Associer la variable lefichier au FileSystemObject
Set LeFichier = fs.opentextfile("C:essai.txt", _
ForAppending, True)
derniereligne = LeFichier.Line
nombrelignes = derniereligne
LeFichier.Close
ReDim tableau(nombrelignes)
Set LeFichier = fs.opentextfile("C:essai.txt", _
ForReading, True)
'Relire le fichier et regrouper les noms dans un tableau unique
For i = 1 To derniereligne - 1
ligne = LeFichier.readline
Feuil1.Liste.AddItem (ligne)
tableau(i) = ligne
Next
LeFichier.Close
Set fs = Nothing
End Sub

et le fichier txt n'est pas classer par ordre alphabétique (fichier txt
généré a partir d'un logiciel externe peu évoluer et le classement par ordre
alphabétique n'existe pas dans ce logiciel)

Voili voilou
merci de te pancher sur mon prob.


Bonjour.
Comment remplis-tu le contenu de ta listbox ?
Cordialement.
Daniel
"FB" a écrit dans le message de news:

BJR tout le monde

j'utilise une liste box dans une UF mais le contenu de ma list box n'est
pas
classé par ordre alphabétique.
Comment faire mettre le contenu de ma liste box par ordre alphabétique

merci d'avance
FB







Avatar
Daniel
Ne peux-tu pas ouvrir ton fichier texte dans excel et procéder à un tri ?
Sinon, copie tes lignes dans des cellules et procède à un tri puis remplis
ta listbox.
Daniel
"FB" a écrit dans le message de news:


ben....
tu veux le code ???
sinon je prends dans un fichier TXT avec cette routine:

Sub renseignercombo()
Const ForAppending = 8
Const ForReading = 1
Const ForWriting = 2
Dim fs As Object, LeFichier As Object
Dim derniereligne As Integer, nombrelignes As Integer
Dim ligne As String
Dim i As Integer, f1
'L'objet "FileSystemObjet" dispose de la propriété line
'qui permet de connaître le nombre de lignes du fichier.
'Ici on crée une liaison tardive avec FSO
Set fs = CreateObject("scripting.FileSystemObject")
'Associer la variable lefichier au FileSystemObject
Set LeFichier = fs.opentextfile("C:essai.txt", _
ForAppending, True)
derniereligne = LeFichier.Line
nombrelignes = derniereligne
LeFichier.Close
ReDim tableau(nombrelignes)
Set LeFichier = fs.opentextfile("C:essai.txt", _
ForReading, True)
'Relire le fichier et regrouper les noms dans un tableau unique
For i = 1 To derniereligne - 1
ligne = LeFichier.readline
Feuil1.Liste.AddItem (ligne)
tableau(i) = ligne
Next
LeFichier.Close
Set fs = Nothing
End Sub

et le fichier txt n'est pas classer par ordre alphabétique (fichier txt
généré a partir d'un logiciel externe peu évoluer et le classement par
ordre
alphabétique n'existe pas dans ce logiciel)

Voili voilou
merci de te pancher sur mon prob.


Bonjour.
Comment remplis-tu le contenu de ta listbox ?
Cordialement.
Daniel
"FB" a écrit dans le message de news:

BJR tout le monde

j'utilise une liste box dans une UF mais le contenu de ma list box
n'est
pas
classé par ordre alphabétique.
Comment faire mettre le contenu de ma liste box par ordre alphabétique

merci d'avance
FB









Avatar
FB
ben......
en fait....... je ne veux pas passer par un tri dans mon fichier excel
ce serai de faire un tri de mon listbox vba en vba ..... tu peux m'aider???

Merci


Ne peux-tu pas ouvrir ton fichier texte dans excel et procéder à un tri ?
Sinon, copie tes lignes dans des cellules et procède à un tri puis remplis
ta listbox.
Daniel
"FB" a écrit dans le message de news:


ben....
tu veux le code ???
sinon je prends dans un fichier TXT avec cette routine:

Sub renseignercombo()
Const ForAppending = 8
Const ForReading = 1
Const ForWriting = 2
Dim fs As Object, LeFichier As Object
Dim derniereligne As Integer, nombrelignes As Integer
Dim ligne As String
Dim i As Integer, f1
'L'objet "FileSystemObjet" dispose de la propriété line
'qui permet de connaître le nombre de lignes du fichier.
'Ici on crée une liaison tardive avec FSO
Set fs = CreateObject("scripting.FileSystemObject")
'Associer la variable lefichier au FileSystemObject
Set LeFichier = fs.opentextfile("C:essai.txt", _
ForAppending, True)
derniereligne = LeFichier.Line
nombrelignes = derniereligne
LeFichier.Close
ReDim tableau(nombrelignes)
Set LeFichier = fs.opentextfile("C:essai.txt", _
ForReading, True)
'Relire le fichier et regrouper les noms dans un tableau unique
For i = 1 To derniereligne - 1
ligne = LeFichier.readline
Feuil1.Liste.AddItem (ligne)
tableau(i) = ligne
Next
LeFichier.Close
Set fs = Nothing
End Sub

et le fichier txt n'est pas classer par ordre alphabétique (fichier txt
généré a partir d'un logiciel externe peu évoluer et le classement par
ordre
alphabétique n'existe pas dans ce logiciel)

Voili voilou
merci de te pancher sur mon prob.


Bonjour.
Comment remplis-tu le contenu de ta listbox ?
Cordialement.
Daniel
"FB" a écrit dans le message de news:

BJR tout le monde

j'utilise une liste box dans une UF mais le contenu de ma list box
n'est
pas
classé par ordre alphabétique.
Comment faire mettre le contenu de ma liste box par ordre alphabétique

merci d'avance
FB














Avatar
Daniel
Trouvé cette macro sur le net. Pas testée, toutefois. Tu peux l'appliquer à
ton tableau avant de faire tes additems :

Sub Sort()

Dim Temp
Dim i As Long
Dim j As Long
Dim arr()

For j = 2 To UBound(arr)
Temp = arr(j)
For i = j - 1 To 1 Step -1
If (arr(i) <= Temp) Then GoTo 10
arr(i + 1) = arr(i)
Next i
i = 0
10 arr(i + 1) = Temp
Next j

End Sub

"FB" a écrit dans le message de news:

ben......
en fait....... je ne veux pas passer par un tri dans mon fichier excel
ce serai de faire un tri de mon listbox vba en vba ..... tu peux
m'aider???

Merci


Ne peux-tu pas ouvrir ton fichier texte dans excel et procéder à un tri ?
Sinon, copie tes lignes dans des cellules et procède à un tri puis
remplis
ta listbox.
Daniel
"FB" a écrit dans le message de news:


ben....
tu veux le code ???
sinon je prends dans un fichier TXT avec cette routine:

Sub renseignercombo()
Const ForAppending = 8
Const ForReading = 1
Const ForWriting = 2
Dim fs As Object, LeFichier As Object
Dim derniereligne As Integer, nombrelignes As Integer
Dim ligne As String
Dim i As Integer, f1
'L'objet "FileSystemObjet" dispose de la propriété line
'qui permet de connaître le nombre de lignes du fichier.
'Ici on crée une liaison tardive avec FSO
Set fs = CreateObject("scripting.FileSystemObject")
'Associer la variable lefichier au FileSystemObject
Set LeFichier = fs.opentextfile("C:essai.txt", _
ForAppending, True)
derniereligne = LeFichier.Line
nombrelignes = derniereligne
LeFichier.Close
ReDim tableau(nombrelignes)
Set LeFichier = fs.opentextfile("C:essai.txt", _
ForReading, True)
'Relire le fichier et regrouper les noms dans un tableau unique
For i = 1 To derniereligne - 1
ligne = LeFichier.readline
Feuil1.Liste.AddItem (ligne)
tableau(i) = ligne
Next
LeFichier.Close
Set fs = Nothing
End Sub

et le fichier txt n'est pas classer par ordre alphabétique (fichier txt
généré a partir d'un logiciel externe peu évoluer et le classement par
ordre
alphabétique n'existe pas dans ce logiciel)

Voili voilou
merci de te pancher sur mon prob.


Bonjour.
Comment remplis-tu le contenu de ta listbox ?
Cordialement.
Daniel
"FB" a écrit dans le message de news:

BJR tout le monde

j'utilise une liste box dans une UF mais le contenu de ma list box
n'est
pas
classé par ordre alphabétique.
Comment faire mettre le contenu de ma liste box par ordre
alphabétique

merci d'avance
FB
















Avatar
FB
oki je test
'rci t'es sympa


Trouvé cette macro sur le net. Pas testée, toutefois. Tu peux l'appliquer à
ton tableau avant de faire tes additems :

Sub Sort()

Dim Temp
Dim i As Long
Dim j As Long
Dim arr()

For j = 2 To UBound(arr)
Temp = arr(j)
For i = j - 1 To 1 Step -1
If (arr(i) <= Temp) Then GoTo 10
arr(i + 1) = arr(i)
Next i
i = 0
10 arr(i + 1) = Temp
Next j

End Sub

"FB" a écrit dans le message de news:

ben......
en fait....... je ne veux pas passer par un tri dans mon fichier excel
ce serai de faire un tri de mon listbox vba en vba ..... tu peux
m'aider???

Merci


Ne peux-tu pas ouvrir ton fichier texte dans excel et procéder à un tri ?
Sinon, copie tes lignes dans des cellules et procède à un tri puis
remplis
ta listbox.
Daniel
"FB" a écrit dans le message de news:


ben....
tu veux le code ???
sinon je prends dans un fichier TXT avec cette routine:

Sub renseignercombo()
Const ForAppending = 8
Const ForReading = 1
Const ForWriting = 2
Dim fs As Object, LeFichier As Object
Dim derniereligne As Integer, nombrelignes As Integer
Dim ligne As String
Dim i As Integer, f1
'L'objet "FileSystemObjet" dispose de la propriété line
'qui permet de connaître le nombre de lignes du fichier.
'Ici on crée une liaison tardive avec FSO
Set fs = CreateObject("scripting.FileSystemObject")
'Associer la variable lefichier au FileSystemObject
Set LeFichier = fs.opentextfile("C:essai.txt", _
ForAppending, True)
derniereligne = LeFichier.Line
nombrelignes = derniereligne
LeFichier.Close
ReDim tableau(nombrelignes)
Set LeFichier = fs.opentextfile("C:essai.txt", _
ForReading, True)
'Relire le fichier et regrouper les noms dans un tableau unique
For i = 1 To derniereligne - 1
ligne = LeFichier.readline
Feuil1.Liste.AddItem (ligne)
tableau(i) = ligne
Next
LeFichier.Close
Set fs = Nothing
End Sub

et le fichier txt n'est pas classer par ordre alphabétique (fichier txt
généré a partir d'un logiciel externe peu évoluer et le classement par
ordre
alphabétique n'existe pas dans ce logiciel)

Voili voilou
merci de te pancher sur mon prob.


Bonjour.
Comment remplis-tu le contenu de ta listbox ?
Cordialement.
Daniel
"FB" a écrit dans le message de news:

BJR tout le monde

j'utilise une liste box dans une UF mais le contenu de ma list box
n'est
pas
classé par ordre alphabétique.
Comment faire mettre le contenu de ma liste box par ordre
alphabétique

merci d'avance
FB