Remplir une listbox par ordre alphabétique Résolu

Question

Bonjour,   

J'essaie tant bien que mal de réaliser un outil sur excel, et je me retrouve face à un problème dont je ne trouve pas la solution et je sollicite votre aide afin de franchir cette étape...  

Je vous explique j'ai crée une listbox et j'y est associer ce code afin de la remplir  
   
Private Sub UserForm_Initialize()  
          
        With Sheets("CDD").Range("A1")  
        Me.ListBox1.RowSource = "CDD!A1:J" & Sheets("CDD").Cells(1, 1).End(xlDown).Row  
        NbLigne = WorksheetFunction.CountA(Columns("C:C"))  
        ListBox1.RowSource = Sheets("CDD").Range(Cells(2, 1), Cells(NbLigne, 10)).Address  
    End With   


Puis j'ai voulu ordonner par ordre alphabétique cette listbox et j'ai réussi à trouver ce code qui marche très bien (malgré le fait qu'il différencie majuscule et minuscule)  


Dim Tablo As Variant, Tempo As Variant, i As Long, j As Long  
    Worksheets("CDD").Activate 'à défaut d'instancier la feuille  
    Tablo = Range("a2:a" & Range("a" & Rows.Count).End(xlUp).Row).Value  
'triAlpha  
    For i = 1 To UBound(Tablo)  
        For j = 1 To UBound(Tablo)  
            If Tablo(i, 1) < Tablo(j, 1) Then  
                Tempo = Tablo(i, 1)  
                Tablo(i, 1) = Tablo(j, 1)  
                Tablo(j, 1) = Tempo  
            End If  
        Next j  
    Next i  
End sub  


Malheureusement je n'arrive pas à associer les deux. J'espère que vous pourrez m'aider avec le plus d'explication possible parce que ca fait du bien d'avoir compris ;)  

Configuration: Windows XP / Firefox 3.5.5

f894009 · Answer

Bonjour,
Il serait plus simple de faire votre tri sur vos cellules par programme

exemple ci-dessous fait avec l'enregistreur de macro

Sub Macro4()
    Range("A1:C7").Select
    ActiveWorkbook.Worksheets("Feuil1").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Feuil1").Sort.SortFields.Add Key:=Range("A1:A7"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Feuil1").Sort
        .SetRange Range("A1:C7")
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub

Bonne suite

ccm81 · Answer

bonjour à tous  
1. transfert de la plage dans tablo  
2. tri (selection) de tablo  
3. tranfert de tablo dans la listtbox1  

tablo = Range("A1:A9").Value  
n = UBound(tablo, 1)  
For i = 1 To n - 1  
  mini = tablo(i, 1)  
  For j = i + 1 To n - 1  
    If tablo(j, 1) < mini Then  
      rangmini = j  
      mini = tablo(rangmini, 1)  
    End If  
  Next j  
  tempo = tablo(i, 1)  
  tablo(i, 1) = mini  
  tablo(rangmini, 1) = tempo  
Next i  
For i = 1 To n  
  ListBox1.List() = tablo  
Next i
RQ. on peut s'affranchir de la casse avec la fonction Ucase à appliquer dans la partie tri de tablo 

bonne suite

ccm81 · Answer

au vu de ton code, je ne comprend pas bien ce que tu veux faire  
celui que je t'ai proposé remplit une listbox1 (à 1 seule colonne) avec le contenu de la plage "A1:A9" ) 
la seule chose que tu as à faire c'est   
- un copier/coller du code  
- mettre un  Me. devant mes ListBox1 (s'il s'agit bien de la ListMox1 de ta UserForm  
- changer la plage qui va servir à remplir cette ListBox1 via tablo  
tablo = sheets("CDD").Range(.....).Value   

RQ1. tu ne dois pas utiliser RowSource qui lierait ta listbox à une plage, la source de ta Listbox1, c'est tablo!   

RQ2. il y a une boucle inappropriée à la fin de mon code  
 remplacer  
For i = 1 To n    
  ListBox1.List() = tablo    
Next ipar    
ListBox1.List() = tablo  

bonne suite

ccm81 · Answer

ça devrait ressembler à ça

https://www.cjoint.com/?0Cwosea6qEO 

bonne suite

ccm81 · Answer

voila le code  

Const nbcol = 10  

Public Sub UserForm_Initialize()  
Dim plage As String  
Dim lifin As Long  
Dim Tablo As Variant, mini As Variant, tempo As Variant  
Dim n As Long, i As Long, j As Long, c As Long, rangmini As Long  
lifin = Sheets("CDD").Range("A1").End(xlDown).Row  
plage = "A1:J" & lifin  
Tablo = Sheets("CDD").Range(plage).Value  
n = UBound(Tablo, 1)  
For i = 1 To n - 1  
  mini = Tablo(i, 1)  
  For j = i + 1 To n  
    If Tablo(j, 1) < mini Then  
       rangmini = j  
       mini = Tablo(rangmini, 1)  
    End If  
  Next j  
  For c = 1 To nbcol  
    tempo = Tablo(i, c)  
    Tablo(i, c) = Tablo(rangmini, c)  
    Tablo(rangmini, c) = tempo  
  Next c  
Next i  
UserForm1.ListBox1.List() = Tablo  
UserForm1.Show  
End Sub
RQ. on peut s'affranchir de la casse avec la fonction UCase

bonne suite

f894009 · Answer

Bonjour ccm81
Merci pour le code de tri. Probleme, il n'aura pas les entetes de colonne.
Pour avoir les entetes il faut passer par .RowSource= address de plage 

Ici:
Feuille1:
Entete: A1 a C1 a modifier pour 10 colonnes
Plage: de donnees A2 a Cx

Feuille2
Entete ideme Feuille1: A1 a C1
Plage trie pour RowSource: A2 a Cx pour pouvoir donner les address de plage afin d'avoir les entetes.

Code a copier dans l'UserForm

'Nombre de colonnes a adapter--->passer  a 10
Const nbcol = 3

'Nombre de colonnes a adapter
Const nbcol = 3

Private Sub UserForm_Initialize()
'Nombre de colonnes
ListBox.ColumnCount = nbcol
'largeur Colonnes a adapter
ListBox.ColumnWidths = "50 pt;50 pt;50 pt"
'Entete colonne
ListBox.ColumnHeads = True
  Call tri
End Sub


'Code ccm81 adapte pour les besoins de Co_nexion
Public Sub tri()
Dim plage As String
Dim lifin As Long
Dim Tablo As Variant, mini As Variant, tempo As Variant
Dim n As Long, i As Long, j As Long, c As Long, rangmini As Long
lifin = Sheets(1).Range("A2").End(xlDown).Row
plage = "A2:C" & lifin
Tablo = Sheets(1).Range(plage).Value
n = UBound(Tablo, 1)
For i = 1 To n - 1
  mini = Tablo(i, 1)
  For j = i + 1 To n
    If Tablo(j, 1) < mini Then
       rangmini = j
       mini = Tablo(rangmini, 1)
    End If
  Next j
  For c = 1 To nbcol
    tempo = Tablo(i, c)
    Tablo(i, c) = Tablo(rangmini, c)
    Tablo(rangmini, c) = tempo
  Next c
Next i

Worksheets("Feuil2").Activate
Worksheets("Feuil2").Range(Cells(2, 1), Cells(11, "c")).Value = Tablo
Me.ListBox.RowSource = Sheets("Feuil2").Range(Cells(2, 1), Cells(lifin, "c")).Address 
End Sub


Bonne suite

ccm81 · Answer

bonjour

comme les entêtes de colonnes nous obligent à lier la listbox à une plage d'une feuille, il n'y a plus tellement besoin de programmer !!! 
il te faut faire comme préconise f894009
1. copier ta plage de données dans une feuille
2. trier cette plage selon la colonne 1
3. nommer cette plage plageLB1 par exemple
3. dans les propriétés de la listbox1, lier directement cette plage à la rowsource 

bonne journée

f894009 · Answer

Re,

https://www.cjoint.com/?BDeqbonfhYt

Modif faciles a trouver. A essayer

Remplir une listbox par ordre alphabétique

8 réponses

Discussions similaires

Newsletters