Trier un combobox par ordre alphabétique

**alex.a** · 19/06/2007, 14h11

Bonjour à tous,

Voilà je voudrais trié un combobox par ordre alphabétique pour cela je copie colle ma sélection (FL1) dans une nouvelle feuille (FL2), et je trie la colonne A et C par ordre alphabétique.
Ensuite je remplie mon combobox avec la colonne A triée sans les doublons.
Ma ça ne marche pas comme voulu, j'ai seulement la première donnée de la plage dans mon combobox.

Mon code fonctionne si je ne trie pas ma selection mais avec le code rajouté (en gras) cela ne fonctionne plus.

Avez vous une idée?
merci d'avance

voici mon code

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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
Private Sub UserForm_Initialize()
    Dim hWnd As Long
    Dim Plage As Range
    Dim FL1 As Worksheet
    Dim FL2 As Worksheet
    
   .
   .
   .

    'renseigne la liste des fonction
    NomProjet = FenetrePrincipale.LblProjet.Value
    
    Application.DisplayAlerts = False
    On Error Resume Next
    Set FL1 = Workbooks.Open(RepertoireTravail & "FMES-" & NomProjet & ".xls").Worksheets("FMES Equipement")
    If Err.Number = 1004 Then
    GoTo line1
    End If
    Application.DisplayAlerts = True
line1:
    Set FL1 = Workbooks("FMES-" & NomProjet & ".xls").Worksheets("FMES Equipement")
    
    FL1.Range("A4").Select
    FL1.Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Set FL2 = ActiveWorkbook.Worksheets.Add
    FL2.Name = "FMES filtrée par fonction"
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, Key2:=Range("C1") _
        , Order2:=xlAscending, Header:=xlNo, OrderCustom:=1, MatchCase:= _
        False, Orientation:=xlTopToBottom
    ActiveWindow.SmallScroll Down:=-6
    Range("A1").Select
        
    Set Plage1 = FL2.Range("A1:A" & FL2.UsedRange.Rows.Count)
        
    FenetreFMESUser.CmbListeFonction.Clear
    For Each Cell1 In Plage1
    If Cell1 <> "" Then
    FenetreFMESUser.CmbListeFonction = Cell1.Value
    End If
    If FenetreFMESUser.CmbListeFonction.ListIndex = -1 Then _
        FenetreFMESUser.CmbListeFonction.AddItem Cell1.Value
    Next
  .
  .
  .
  
End Sub

**LeForestier** · 19/06/2007, 20h35

Envoyé par alex.a

Bonjour à tous,

Voilà je voudrais trié un combobox par ordre alphabétique pour cela je copie colle ma sélection (FL1) dans une nouvelle feuille (FL2), et je trie la colonne A et C par ordre alphabétique.
Ensuite je remplie mon combobox avec la colonne A triée sans les doublons.
Ma ça ne marche pas comme voulu, j'ai seulement la première donnée de la plage dans mon combobox.

Mon code fonctionne si je ne trie pas ma selection mais avec le code rajouté (en gras) cela ne fonctionne plus.

Avez vous une idée?
merci d'avance

voici mon code

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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
Private Sub UserForm_Initialize()
    Dim hWnd As Long
    Dim Plage As Range
    Dim FL1 As Worksheet
    Dim FL2 As Worksheet
    
   .
   .
   .

    'renseigne la liste des fonction
    NomProjet = FenetrePrincipale.LblProjet.Value
    
    Application.DisplayAlerts = False
    On Error Resume Next
    Set FL1 = Workbooks.Open(RepertoireTravail & "FMES-" & NomProjet & ".xls").Worksheets("FMES Equipement")
    If Err.Number = 1004 Then
    GoTo line1
    End If
    Application.DisplayAlerts = True
line1:
    Set FL1 = Workbooks("FMES-" & NomProjet & ".xls").Worksheets("FMES Equipement")
    
    FL1.Range("A4").Select
    FL1.Range(Selection, Selection.End(xlToRight)).Select 'ERREUR
    Range(Selection, Selection.End(xlDown)).Select 'ERREUR
    Selection.Copy
    Set FL2 = ActiveWorkbook.Worksheets.Add
    FL2.Name = "FMES filtrée par fonction"
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, Key2:=Range("C1") _
        , Order2:=xlAscending, Header:=xlNo, OrderCustom:=1, MatchCase:= _
        False, Orientation:=xlTopToBottom
    ActiveWindow.SmallScroll Down:=-6
    Range("A1").Select
        
    Set Plage1 = FL2.Range("A1:A" & FL2.UsedRange.Rows.Count)
        
    FenetreFMESUser.CmbListeFonction.Clear
    For Each Cell1 In Plage1
    If Cell1 <> "" Then
    FenetreFMESUser.CmbListeFonction = Cell1.Value
    End If
    If FenetreFMESUser.CmbListeFonction.ListIndex = -1 Then _
        FenetreFMESUser.CmbListeFonction.AddItem Cell1.Value
    Next
  .
  .
  .
  
End Sub

Bonjour, beaucoup d'erreur dans ton code.

1°)

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
27
28
29
'Il n'y aurra pas d'alerte
    '----Application.DisplayAlerts = False
'Si classeur déjà ouvert....
    On Error GoTo line1
    Set FL1 = Workbooks.Open(RepertoireTravail & "FMES-" & NomProjet & ".xls").Worksheets("FMES Equipement")
  ' ----- If Err.Number = 1004 Then
   ' -----GoTo line1
  ' ------ End If
  ' ----- Application.DisplayAlerts = True
line1:
 
'OK
    Set FL1 = Workbooks("FMES-" & NomProjet & ".xls").Worksheets("FMES Equipement")
 
'MODIF
    FL1.select
    Range("A4", Range("A65536").End(xlUp).Row).Select
    'Ici je ne vois pas pourquoi 2 sélections ??
    'Je suppose que tu veux trié la colonne A
    'xlDown = existe pas ?? du moins dans mon excel
    '----------------Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
 
    Set FL2 = ActiveWorkbook.Worksheets.Add
    FL2.Name = "FMES filtrée par fonction"
    FL2.select ' pour être sur que c'est la bonne feuille
    ' et mettre la sélection à partir de A1
    Range("A1").select
    ActiveSheet.Paste

'la suite parrait allé, bon amusement

A+

**SilkyRoad** · 19/06/2007, 22h14

bonsoir

Tu peux tester cette adaptation

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
27
28
29
30
31
32
33
Dim FL1 As Worksheet
Dim Plage As Range, Cell As Range
Dim i As Integer, j As Integer
Dim Temp As Variant
 
'
'...
'
 
Set FL1 = Workbooks("FMES-" & NomProjet & ".xls").Worksheets("FMES Equipement")
Set Plage = FL1.Range("A1:A" & FL1.Range("A65536").End(xlUp).Row)
 
'Alimentation sans doublon
For Each Cell In Plage
    If Cell <> "" Then FenetreFMESUser.CmbListeFonction = Cell.Value
 
    If FenetreFMESUser.CmbListeFonction.ListIndex = -1 Then _
            FenetreFMESUser.CmbListeFonction.AddItem Cell.Value
Next
 
 
'Tri par ordre alpha
With FenetreFMESUser.CmbListeFonction
    For i = 0 To .ListCount - 1
        For j = 0 To .ListCount - 1
            If .List(i) < .List(j) Then
                Temp = .List(i)
                .List(i) = .List(j)
                .List(j) = Temp
            End If
        Next j
    Next i
End With

michel

**alex.a** · 20/06/2007, 10h04

Bonjour LeForestier, bonjour michel
merci pour vos réponses.

ca marche

Michel ton code est remarquable je n'ai plus besoin de copier coller ma plage pour la trier.

j'ai suivi les conseils de LeForestier en enlevant les Application.DisplayAlerts
je les avais rajouté parce que par moment j'ai un message me signalant que mon fichier était déjà ouvert, et que si je l'ouvrais a nouveau toute vos modifications seront perdues...

par contre avec le code
On Error GoTo line1

Code :

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

1
2
3
 
    Set FL1 = Workbooks.Open(RepertoireTravail & "FMES-" & NomProjet & ".xls").Worksheets("FMES Equipement")
line1:

j'ai constaté une erreur d'exécution 440. Erreur Automation
donc j'ai laissé le If Err.Number = 1004 Then GoTo line1

Envoyé par LeForestier

'la suite parait allé, bon amusement

Bonne journée a tous
et encore merci

Trier un combobox par ordre alphabétique

Macros et VBA Excel

Discussions similaires

Partager

Partager