Classement alpha dans une Combo

Version imprimable

Voir 40 message(s) de cette discussion en une page

Bonjour à tous,

Dans un code Initialize d'un formulaire, je remplis une Combo avec des données venant d'une feuille de calcul (du même classeur) nommée "Tiers".
La colonne où se trouve les données est nommée "NomT".

Lorsque je clique sur ma Combo, la liste apparaît bien mais pas dans l'ordre alphabétique. L'erreur doit créver les yeux, mais ce matin je plane complètement, pouvez-vous m'apporter votre éclairage s'il vous plait ?
Je vous en remercie par avance
Voici mon code :
Code:

1 2 3 4 5 6 7 8 9 Private Sub UserForm_Initialize() Dim Vcellule As Object For Each Vcellule In Sheets("Tiers").Range("NomT") If Vcellule.Value <> "" Then UFDepTier.CmbTiers.AddItem Vcellule.Value Next UFDepTier.CmbTiers.ListIndex = -1 End Sub

Hello,

A mon avis c'est sur la feuille que tu dois agir !

Vois ce code pour la colonne A.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub Test()
 
    Dim c As Range
 
    Application.ScreenUpdating = False
 
    For Each c In Range("A1:A" & Range("A65536").End(xlUp).Row)
        c.Sort Key1:=Range("A1"), Order1:=xlAscending
    Next c
 
    Application.ScreenUpdating = True
 
End Sub

Bonne journée.

13/10/2010, 10h58
NEC14

Bonjour Antonium,

Merci pour ta réponse je vois ce que je dois faire. Il me faudra simplement remettre le classement originel lors de la fermeture de l'UserForm.

Je m'explique, dans un Uform j'utilise un numéro de tiers et dans une autre le nom du tiers. Il faut donc que dans les 2 cas il y ait un classement croissant.

Merci pour ton aide
13/10/2010, 11h07
aalex_38

Bonjour,

sinon tu peux passer par un tableau et trier ce tableau

:google2:

Bonjour le forum,

Pour ne rien changer dans ta feuille et en s'inspirant du tri de tableau évoqué par AALEX (voir le tutoriel de Sylkiroad à ce sujet)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Private Sub UserForm_Initialize()
 
Dim l As Byte, i As Byte, j As Byte
 
'alimentation des items de la combobox
For l = 1 To Range("A65536").End(xlUp).Row
    Tacombobox.AddItem Range("A" & l)
Next l
 
'tri
For i = 0 To Tacombobox.ListCount
    For j = i + 1 To Tacombobox.ListCount - 1
        If Tacombobox.List(i) > Tacombobox.List(j) Then
            Cible = Tacombobox.List(j)
            Tacombobox.List(j) = Tacombobox.List(i)
            Tacombobox.List(i) = Cible
        End If
    Next j
Next i
 
End Sub

En espérant que ce code te sera utile.

Cordialement.

Marcel

Voici le code tel que je l'ai adapté mais j'ai un message d'erreur sur "Cible" - Variable non définie

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Private Sub UserForm_Initialize()
Dim L As Byte, I As Byte, J As Byte

'alimentation des items de la Combo
For L = 1 To Range("B65536").End(xlUp).Row
    CmbTiers.AddItem Range("B" & L)
Next L

'tri
For I = 0 To CmbTiers.ListCount
    For J = I + 1 To CmbTiers.ListCount - 1
        If CmbTiers.List(I) > CmbTiers.List(J) Then
            Cible = CmbTiers.List(J)
            CmbTiers.List(J) = CmbTiers.List(I)
            CmbTiers.List(I) = Cible
        End If
    Next J
Next I
End Sub

14/10/2010, 17h29
MarcelG

Variable non définie

Bonsoir Nec

Ton module doit être en déclaration obligatoire, autrement dit

Code:

Option Explicit

Essaie, au niveau de ta déclaration

Code:

Dim L As Byte, I As Byte, J As Byte, Cible As String

Cordialement.

Marcel
15/10/2010, 09h03
NEC14

Bonjour à tous,

Dans mon code "Option Explicit" est bien mentionné.
Par contre lorsque j'essaie de mettre Cible As Byte ou autre chose (String, Integer, etc...), un message d'erreur apparaît :

"Accès interdit - Erreur 70"

Pouvez-vous m'apporter votre aide s'il vous plait ?

Merci
15/10/2010, 10h23
MarcelG

Erreur 70

Bonjour Nec,

J'avais testé le code sur mon poste de travail et n'ai rencontré aucun probème.

2 pistes (adapte l'une ou l'autre ou les 2) :
- enlever

Code:

Option Explicit

- modifier

Code:

CmbTiers.AddItem Range("B" & L)

par

Code:

CmbTiers.AddItem Sheets("Feuil1").Range("B" & L)

Cordialement.

Marcel

Bonjour,

Pourquoi définir les variables compteurs en Byte, j'aurai plutôt pensé à Long ?

Edit

Chez moi je passe par un talbeau :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 
Dim Ltab() As String
.
.
.
 
Dim valeur As Integer
  Dim cible As String
      Do 'tri Croissant
          valeur = 0
 
          For i = 0 To UBound(Ltab) - 1
                 ' Tri sans respecter la casse.
              If UCase(Ltab(i)) > UCase(Ltab(i + 1)) Then
 
                  cible = Ltab(i)
                  Ltab(i) = Ltab(i + 1)
                  Ltab(i + 1) = cible
 
                  valeur = 1
 
              End If
          Next i
      Loop While valeur = 1

Et ensuite je charge mon combobox :

Code:

1
2
3
4
  With .Cx1
        .Enabled = True
        .List() = Ltab
   end with

Tu pourrai faire ça, tu rempli d'abord un tableau, tu le tri et ensuite du charge directement ta combobox.

Citation:
Code:

1 2 3 4 5 6 Dim Ltab() As String . . . Dim valeur As Integer
Bonjour,

Que mets-tu à la place des points dans ton code ? Je t'avoue ne pas comprendre.
Cordialement

Bonjour à tous,

Voici mon code tel qu'il est dans mon UF. La Combo est bien alimentée à ceci prés que seul 5 des éléments de la liste apparaissent.
Je n'ai pas tous les tiers de la colonne B.
La propriété ListRow est bien à zéro.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 Private Sub UserForm_Initialize() Dim L As Byte, I As Byte, J As Byte, CIBLE As String 'alimentation des items de la combobox For L = 1 To Range("B65356").End(xlUp).Row CmbTiers.AddItem Sheets("Tiers").Range("B" & L) Next L 'tri For I = 0 To CmbTiers.ListCount For J = I + 1 To CmbTiers.ListCount - 1 If CmbTiers.List(I) > CmbTiers.List(J) Then CIBLE = CmbTiers.List(J) CmbTiers.List(J) = CmbTiers.List(I) CmbTiers.List(I) = CIBLE End If Next J Next I End Sub
Merci pour votre aide

Combobox incomplète

Bonjour Nec,

Ta combobox doit être incomplète du fait de ta feuille.

Essaie au niveau de l'alimentation.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Private Sub UserForm_Initialize()
 
Dim L As Byte, I As Byte, J As Byte, CIBLE As String
 
'alimentation des items de la combobox
For L = 1 To Range("B65356").End(xlUp).Row
    Set monitem = Sheets("Tiers").Range("B" & L)
    If Not IsEmpty(monitem) Then CmbTiers.AddItem monitem
Next L
Set monitem = Nothing
 
MsgBox CmbTiers.ListCount
 
'tri
For I = 0 To CmbTiers.ListCount
    For J = I + 1 To CmbTiers.ListCount - 1
        If CmbTiers.List(I) > CmbTiers.List(J) Then
            CIBLE = CmbTiers.List(J)
            CmbTiers.List(J) = CmbTiers.List(I)
            CmbTiers.List(I) = CIBLE
        End If
    Next J
Next I
 
 
End Sub

Puis donne-nous le résultat de ta msgbox

Cordialement.

Marcel

18/10/2010, 12h00
NEC14
Erreur sur cette ligne - variable non définie
Code:

1 2 Set monitem = Sheets("Tiers").Range("B" & L)
Merci pour ton aide
18/10/2010, 13h07
MarcelG

Variable non définie

Voir plus haut.

Ici

Code:

Dim monitem As Range

Marcel
18/10/2010, 13h25
NEC14

msgbox me donne 5. Normalement dans la colonne B de la feuille Tiers il y a plus de 2000 noms.
18/10/2010, 14h02
MarcelG

Combobox incomplète

Re-bonjour,

C'est normal que la taille soit limitée, vu la déclaration en "Byte".
(Voir le tuto de Silkyroad sur les varaiables)

Par contre 5 me semble anormal.

Dans ta déclaration, et comme le suggère AALEX, tu peux essayer de déclarer tes variables en Long , au lieu de Byte.

Cordialement.

Marcel

Voici mon code. J'ai toujours 5 dans MsgBox.
De plus, les noms ne sont pas classés par ordre alphabétique.
Je cherche de mon côté également mais je ne trouve pas la solution alors qu'elle doit crever les yeux.
Merci par avance pour votre aide

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
 
Private Sub UserForm_Initialize()
  Dim L As Long, I As Long, J As Long, Cible As String
    Dim MonItem As Range
'alimentation des items de la combobox
For L = 1 To Range("B65356").End(xlUp).Row
    Set MonItem = Sheets("Tiers").Range("B1" & L)
    If Not IsEmpty(MonItem) Then CmbTiers.AddItem MonItem
Next L
Set MonItem = Nothing
 
MsgBox CmbTiers.ListCount
 
'tri
For I = 0 To CmbTiers.ListCount
    For J = I + 1 To CmbTiers.ListCount - 1
        If CmbTiers.List(I) > CmbTiers.List(J) Then
            Cible = CmbTiers.List(J)
            CmbTiers.List(J) = CmbTiers.List(I)
            CmbTiers.List(I) = Cible
        End If
    Next J
Next I
 
End Sub

18/10/2010, 14h56
MarcelG

Combobox

J'ai essayé à nouveau. Je n'ai rencontré aucun problème.
En dernier recours, et en considérant les recommandations de Pierre en en-tête de ce forum, joins un fichier simplifié.
Cordialement.
Marcel
18/10/2010, 15h37
NEC14

Voici le fichier allégé.

Combobox

Tout Bête.

Tu n'avais pas signalé, ou je n'avais pas remarqué, que le bouton qui active ton userform se situait sur une autre feuille que tes items.
De ce fait, ton code

Code:

For L = 2 To Range("B65356").End(xlUp).Row

boucle sur ta feuille active !

Il faut donc préciser la feuille sur laquelle tu boucles tes items.

D'autre part, tu déclares une variable I au début de ton module, ce qui signiifie qu'elle s'applique à tout ton module. Danger. Il vaut mieux prendre une autre variable.

Et donc
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 Private Sub UserForm_Initialize() Dim L As Long, K As Long, J As Long, Cible As String Dim MonItem As Range 'alimentation des items de la combobox For L = 2 To Sheets("Tiers").Range("B65356").End(xlUp).Row Set MonItem = Sheets("Tiers").Range("B" & L) If Not IsEmpty(MonItem) Then CmbTiers.AddItem MonItem Next L Set MonItem = Nothing MsgBox CmbTiers.ListCount 'tri For K = 0 To CmbTiers.ListCount For J = K + 1 To CmbTiers.ListCount - 1 If CmbTiers.List(K) > CmbTiers.List(J) Then Cible = CmbTiers.List(K) CmbTiers.List(J) = CmbTiers.List(K) CmbTiers.List(K) = Cible End If Next J Next K End Sub
Il vaut mieux dès l'ouverture de la discussion :
- quantifier ses données
- préciser le mode d'ouverture de l'userform.

Avec plaisir.

Marcel

Voir 40 message(s) de cette discussion en une page