Trie alpha pour combobox

[apdf1]

Bonjour,

J'ai un USF, comprenant TextBox et ComBobox je suis à la recherche d'un code pour trie dans la ComBobox

Un très grand merci à tout ceux qui pourront m'aider...

Ci joint le fichier exemple sera plus parlant
Cordialement
Max

 

[apdf1]

Re : Trie alpha pour combobox

Bon jour jean-Marcel

Je te remercie beaucoup mais j'ai un message d'erreur a la ligne suivant:

Variable nom valide

ReDim Preserve Tablo(1 To

@+

Max

 

[Papou-net]

Re : Trie alpha pour combobox

Bonjour à Tous,

@ Jean Marcel : ton tri ne s'effectue que sur la colonne A, de ce fait les données des autres colonnes sont erronées.

Je joins une solution, moins technique, mais qui trie toutes les données que je recopie dans les colonnes AA à AI.Ces colonnes sont effacées à la fermeture du formulaire. Il serait bien sûr plus judicieux de trier directement les colonnes A à I, ce qui autoriserait la sélection directe dans la liste déroulante.

Je pense que la solution de Jean Marcel est aisément modifiable, je lui en laisse le soin.

Espérant avoir contribué.

 

[Papou-net]

Re : Trie alpha pour combobox

RE :

JM a oublié de déclarer sa variable Tablo :

Private Sub UserForm_Initialize()
    Dim Tablo()
    With Sheets("Repertoire")
                    For i = 1 To .Range("A65536").End(xlUp).Row - 2
                        ReDim Preserve Tablo(1 To i)
                        Tablo(i) = .Cells(i + 2, 1)
                    Next
                End With
                For i = 1 To UBound(Tablo)
                    For j = 1 To UBound(Tablo)
                        If Tablo(i) < Tablo(j) Then
                            temp = Tablo(i)
                            Tablo(i) = Tablo(j)
                            Tablo(j) = temp
                        End If
                    Next j
                Next i
                    For Itm = 1 To UBound(Tablo)
                        Me.ComboBox1.AddItem Tablo(Itm)
                    Next
     
End Sub

Cordialement.

 

[apdf1]

Re : Trie alpha pour combobox

Bonjour Papou-Net

je te remercie sa marche Nickel

@+
Max

 

[Papou-net]

Re : Trie alpha pour combobox

...si tu reprends mon premier fichier le tablo était bien déclaré dans l'initialyse

RE Jean Marcel,

C'est exact, mais sa portée reste locale à la procédure Initialize. Il faut donc la déclarer également dans la procédure Combobox1_Click(), ou alors la déclarer en Public dans un module standard.

Bonne fin de journée à toi.

Cordialement.

 

[apdf1]

Re : Trie alpha pour combobox

Re,

Je te remercie mais j'ai toujours un problème si je prends un nom au hasard sur les autre textBox sa ne coïncide pas j'ai deux ou 3 ligne de decallage

@+

Max

 

[apdf1]

Re : Trie alpha pour combobox

Re,

Oui je préfères utiliser le tri ?
@+
Max

 

[Papou-net]

Re : Trie alpha pour combobox

Re,

Je te remercie mais j'ai toujours un problème si je prends un nom au hasard sur les autre textBox sa ne coïncide pas j'ai deux ou 3 ligne de decallage

@+

Max

A qui t'adresse-tu ?

Pour ma part, je ne constate aucun décalage.

Peux-tu préciser ?

Cordialement.

 

[Habitude]

Re : Trie alpha pour combobox

Bonjour

En utilisant les fonctions native
Pas très performant

 Tablo = Range("A:A").SpecialCells(xlCellTypeConstants)
    With Range("IV1").Resize(UBound(Tablo), 1): .Value = Tablo: .Sort key1:=Range("IV1"): Me.ComboBox1.List = Application.Transpose(.Value): .Clear: End With

Sinon, avec tri bouclé

Tablo = Application.Transpose(Range("A:A").SpecialCells(xlCellTypeConstants))
    For i = 1 To UBound(Tablo)
        For j = 1 To UBound(Tablo)
            If Tablo(i) < Tablo(j) Then
                temp = Tablo(i): Tablo(i) = Tablo(j): Tablo(j) = temp
            End If
        Next j
    Next i
    Me.ComboBox1.List = Tablo

nb. je vois que je suis en retard

 

[Papou-net]

Re : Trie alpha pour combobox

Allez c'est ma journée de bonté

Bravo, là ça me parle davantage. C'est en effet "plus technique" que ma solution de tableau intermédiaire. En prime, tu m'apprends l'utilisation de Match que je n'ai encore jamais employé et je t'en remercie.

Cordialement.

NB : bonjour à toi Habitude.

 

[apdf1]

Re : Trie alpha pour combobox

Re

papou sur ton code il n'y a aucun décalage et sa marche mais peut tu m'expliquer pourquoi tu as codé sur les colonne AA à AI alors que moi je travail dans les colonne "A à J"

      Dim Cell As Range, derlg As Long
Application.ScreenUpdating = False
    With Sheets("Repertoire")
      derlg = .Range("A65536").End(xlUp).Row
      .Range("AA3:AI" & derlg).Value = .Range("A3:I" & derlg).Value
      .Range("AA3:AI" & derlg).Sort Key1:=Range("AA3"), Order1:=xlAscending, Key2:=Range("AB3" _
        ), Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _
        False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, DataOption2 _
        :=xlSortNormal
        For Each Cell In .Range("AA3:AA" & derlg)
            Me.ComboBox1.AddItem (Cell)
        Next
    End With
Application.ScreenUpdating = True

Mais sa marche ?

@+

 

[Papou-net]

Re : Trie alpha pour combobox

Re

papou sur ton code il n'y a aucun décalage et sa marche mais peut tu m'expliquer pourquoi tu as codé sur les colonne AA à AI alors que moi je travail dans les colonne "A à J"

@+

J'ai trié sur ce tableau intermédiaire pour ne pas modifier ton tableau original. Mais comme je le disais dans ma première réponse, il serait en effet préférable de trier le tableau principal et alors, plus besoin des colonnes intermédiaires. Sinon, la dernière version (4) de Jean Marcel fonctionne parfaitement bien.

Cordialement.

 

[david84]

Re : Trie alpha pour combobox

Bonsoir tout le monde,
sur la base du code de Jean-Marcel, on peut raccourcir et gagner en rapidité :

Private Sub UserForm_Initialize()
Tablo = Sheets("Repertoire").Range("A3:A" & Range("A" & Rows.Count).End(xlUp).Row).Value
For i = 1 To UBound(Tablo)
    For j = 1 To UBound(Tablo)
        If Tablo(i, 1) < Tablo(j, 1) Then
            temp = Tablo(i, 1)
            Tablo(i, 1) = Tablo(j, 1)
            Tablo(j, 1) = temp
        End If
    Next j
Next i
Me.ComboBox1.List = Tablo
End Sub

A+

 

[BOISGONTIER]

Re : Trie alpha pour combobox

Bonsoir,

Pour la rapidité, utiliser un tri Quick-Sort plutôt que Bubble
0,06 sec au lieu de 15 sec pour 10.000 éléments


JB