Ordre Alphabétique Combobox

Bonjour,

J'ai crée une Combobox afin de dérouler une liste de noms qui sont en fait des fichiers Word à ouvrir afin d'éviter de parcourir tout le bureau à chaque fois.

Tout fonctionne bien sauf qu'en clickant sur la combobox, les noms des items apparaissent dans l'ordre où je les crées et non pas par ordre alphabétique.

J'ai essayé plusieurs codes qui ne fonctionne pas et il n'y a pas de propriété Sort sur la combobox que je pourrais changer en True.

Quelqu'un a-t-il un code pour effectuer ce tri alphabétique automatiquement?

Je copie en dessous le début des codes de la combobox.

Merci par avance pour votre aide.

SylMel

Private Sub ComboBox1_Change()

Select Case Me.ComboBox1.Text

Case "Conf Restaurant"

ThisWorkbook.FollowHyperlink _

Address:="\\I:\communs\Modele\INTERNET ACC + DOC\francais\Modèles 2015\Confirmation restaurant 2015.dot", _

NewWindow:=True, AddHistory:=True

End Select

Select Case Me.ComboBox1.Text

Case "Conf Individuels"

ThisWorkbook.FollowHyperlink _

Address:="\\I:\communs\Modele\INTERNET ACC + DOC\francais\Modèles 2015\Confirmation individuels 2015 2.doc", _

NewWindow:=True, AddHistory:=True

End Select

Select Case Me.ComboBox1.Text

Case "Conf Toi et Moi"

ThisWorkbook.FollowHyperlink _

Address:="\\I:\communs\Modele\INTERNET ACC + DOC\francais\Modèles 2015\Confirmation coffret Toi et Moi2015.dot", _

NewWindow:=True, AddHistory:=True

End Select

Select Case Me.ComboBox1.Text

Case "Conf Massages"

ThisWorkbook.FollowHyperlink _

Address:="\\I:\communs\Modele\INTERNET ACC + DOC\francais\Modèles 2015\Confirmation massages 2015.dot", _

NewWindow:=True, AddHistory:=True

End Select

End Sub

Private Sub ComboBox1_GotFocus()

With ComboBox1

ComboBox1.Clear

.AddItem "Conf Individuels"

.AddItem "Conf Restaurant"

.AddItem "Conf Toi et Moi"

.AddItem "Conf Massages"

End With

End Sub

Bonjour et bienvenu(e)

Heu tu as 4 données, tu peux faire un tri manuel

Ou alors je n'ai rien compris

Tu peux modifier tes macros (surtout un seul Select Case .... End Select)

Private Sub ComboBox1_Change()
  Select Case Me.ComboBox1.Text
    Case "Conf Restaurant"
      ThisWorkbook.FollowHyperlink _
          Address:="\\I:\communs\Modele\INTERNET ACC + DOC\francais\Modèles 2015\Confirmation restaurant 2015.dot", _
          NewWindow:=True, AddHistory:=True
    Case "Conf Individuels"
      ThisWorkbook.FollowHyperlink _
          Address:="\\I:\communs\Modele\INTERNET ACC + DOC\francais\Modèles 2015\Confirmation individuels 2015 2.doc", _
          NewWindow:=True, AddHistory:=True
    Case "Conf Toi et Moi"
      ThisWorkbook.FollowHyperlink _
          Address:="\\I:\communs\Modele\INTERNET ACC + DOC\francais\Modèles 2015\Confirmation coffret Toi et Moi2015.dot", _
          NewWindow:=True, AddHistory:=True
    Case "Conf Massages"
      ThisWorkbook.FollowHyperlink _
          Address:="\\I:\communs\Modele\INTERNET ACC + DOC\francais\Modèles 2015\Confirmation massages 2015.dot", _
          NewWindow:=True, AddHistory:=True
  End Select

End Sub

Private Sub ComboBox1_GotFocus()
  With ComboBox1
    .Clear
    .AddItem "Conf Individuels"
    .AddItem "Conf Massages"
    .AddItem "Conf Restaurant"
    .AddItem "Conf Toi et Moi"
  End With
End Sub

Bonjour Banzai64,

Merci pour la petite astuce sur le select case.

Il n'y a effectivement que 4 données car je suis au début de la création de ce document, il y en aura une centaine facile à la fin, d'où l'intérêt de ne pas faire un tri manuel en entrant les données

As tu une astuce pour cela?

Merci et bonne soirée.

SylMel

Bonjour

Juste une idée comme ça

Tu dis que tu vas avoir une centaine de données

Écris ces données dans une page, tri ces données et ensuite fait une boucle pour les ajouter à la ComboBox

Private Sub ComboBox1_GotFocus()
Dim J As Long

  With ComboBox1
    .Clear
    For J = 1 To Sheets("Feuil2").Range("A" & Rows.Count).End(xlUp).Row
      .AddItem Sheets("Feuil2").Range("A" & J)
    Next J
  End With
End Sub

Super merci pour tout et bonne soirée.

PS: où peux t'on trouver des info sur le langage vba en détail comme par exemple ce que tu viens de me montrer?

A une prochaine.

SylMel

Bonsoir

De rien

SylMel a écrit :

PS: où peux t'on trouver des info sur le langage vba

Je dirais partout, commence dans ce site (dans le bandeau tu verras plusieurs titres qui peuvent t-intéresser)

Fouille partout, regarde les codes, essaie de les comprendre et pratique, pratique, et surtout pratique

Rechercher des sujets similaires à "ordre alphabetique combobox"