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.