Initialisation d'une combo
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:
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.
