Classement alpha dans une Combo

**NEC14** · 13/10/2010, 09h42

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

**Antoniom** · 13/10/2010, 11h14

Hello,

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

Vois ce code pour la colonne A.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

**NEC14** · 13/10/2010, 11h58

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

**aalex_38** · 13/10/2010, 12h07

Bonjour,

sinon tu peux passer par un tableau et trier ce tableau

**MarcelG** · 13/10/2010, 18h11

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

**NEC14** · 14/10/2010, 16h59

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

**MarcelG** · 14/10/2010, 18h29

Bonsoir Nec

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Option Explicit

Essaie, au niveau de ta déclaration

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Cordialement.

Marcel

**NEC14** · 15/10/2010, 10h03

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

**MarcelG** · 15/10/2010, 11h23

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

Option Explicit

- modifier

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

CmbTiers.AddItem Range("B" & L)

par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Cordialement.

Marcel

**aalex_38** · 15/10/2010, 16h02

Bonjour,

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

Edit

Chez moi je passe par un talbeau :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

**NEC14** · 18/10/2010, 12h02

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

**MarcelG** · 18/10/2010, 12h48

Bonjour Nec,

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

Essaie au niveau de l'alimentation.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

**NEC14** · 18/10/2010, 13h00

Erreur sur cette ligne - variable non définie

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
    Set monitem = Sheets("Tiers").Range("B" & L)

Merci pour ton aide

**MarcelG** · 18/10/2010, 14h07

Voir plus haut.

Ici

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Dim monitem As Range

Marcel

**NEC14** · 18/10/2010, 14h25

msgbox me donne 5. Normalement dans la colonne B de la feuille Tiers il y a plus de 2000 noms.

**MarcelG** · 18/10/2010, 15h02

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

**NEC14** · 18/10/2010, 15h29

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

**MarcelG** · 18/10/2010, 15h56

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

**NEC14** · 18/10/2010, 16h37

Voici le fichier allégé.

**MarcelG** · 18/10/2010, 17h10

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Classement alpha dans une Combo [XL-2003]

Macros et VBA Excel

Discussions similaires

Partager

Partager