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