Discussion :

[redcedar]

Bonjour,
j'ai hérité d'une fichier Excel avec un formulaire. Une combo est alimenté par n° d'index croissant. Or je souhaite l'alimenter par ordre alphabétique basé sur une autre colonne de la bdd Excel.

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 InitRowSource()
 With Me.combo
 .RowSource = rng.Address(external:=True)
 .ListIndex = 0 ' Force la sélection du premier enregistrement
  End With
End Sub
End Sub
Private Sub InitComboBox()
 With Me.combo
 .ColumnHeads = True: .ColumnCount = 5: .ColumnWidths = "30;45;30;4;200"
 End With
 InitRowSource '
End Sub
Private Sub InitData()
 ' Redimensionnement de l'objet rng et RowSource
 Set rng = shtFeuil1.Range("A1").CurrentRegion
 With rng
  Set rng = .Offset(1).Resize(.Rows.Count - 1)
 End With
End Sub

J'ai essayé sans succès de changer le range.
Merci de votre aide.
Cdlt.

[eric4459]

Bonjour Redcedar,
Je suppose que tu as essayé de changer cette ligne :

Code :

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

Set rng = shtFeuil1.Range("A1").CurrentRegion

Que se passe-t-il si tu mets ("B1") ou autre par exemple?
Eric

[redcedar]

Bonjour,

et merci pour votre réponse. Su je remplace A1 par B1, ma combo n'affiche plus les infos présentes en ligne A de la feuille concernée car la colonne A contient les Id.

J'aimerais qu'elle soit triée non pas par colonne A croissante mais par colonne D croissante?

merci d'avance pour votre aide.

cdlt