Empecher l'affichage par ordre alphabétique

Bonjour, j'ai une liste déroulante des commerciaux qui s'affiche par ordre alphabétique à l'aide du code vb suivant:

Dim Plage As Range

Dim L As Long

'Liste des commerciaux (par ordre alpha)

With Sheets("Commerciaux")

L = .Cells(.Rows.Count, 1).End(xlUp).Row

Set Plage = .Range(.Cells(2, 1), .Cells(L, 2))

Plage.Sort Key1:=.Range("B2"), Order1:=xlAscending, Header:=xlNo, OrderCustom:=1, MatchCase:=False

cboCommercial.List = .Range(.Cells(2, 2), .Cells(L, 2)).Value

Plage.Sort Key1:=.Range("A2"), Order1:=xlAscending, Header:=xlNo, OrderCustom:=1, MatchCase:=False

End With

End Sub

alors je souhaite ne pas afficher les commerciaux par ordre alphabétique mais par odre de saisie. comment je peux modifier le code vb.

merci pour votre aide

Bonjour

Efface cette macro et la liste ne changera pas...

Bye !

Merci pour la réponse, mais j'efface à quel niveau. parce que quand j'efface tout la liste n'apparait plus dans la liste déroulante

Bonjour,

Tu peux tester le code suivant

Sub ListeCommerciaux()
Dim Plage As Range
Dim L As Long
    With Sheets("Commerciaux")
        L = .Cells(.Rows.Count, 1).End(xlUp).Row
        Set Plage = .Range(.Cells(2, 1), .Cells(L, 2))
        cboCommercial.List = .Range(.Cells(2, 2), .Cells(L, 2)).Value
    End With
End Sub

En espérant que cela t'aide ...

Ca marche, merci infiniment

Ca marche, merci infiniment

Ravi que cela fonctionne comme tu le voulais ...

Merci pour tes remerciements ..

Avec le nouveau Forum ... ..... ... tu as la possibilité d'indiquer que tu as apprécié l'aide en cliquant sur le coeur ...en bas à droite ...

Rechercher des sujets similaires à "empecher affichage ordre alphabetique"