Discussion :

[zidane22]

Bonjour
J'éssaie d'afficher des combobox.items à partir d'une bd access.
Les items sont affichés dans le champ de cette manniére: 4|7|3
Je veux les afficher dans la combobox d'une façon verticale.
Je me sert de ce code:

Code :

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

1
2
3
4
5
6
7
Dim SeparValeur() As String
        Dim T As Integer
        With ComboBox1
            SeparValeur = Split("verse", "|")
            For T = 0 To 5
                .Items.Add(SeparValeur(T))
            Next T

Je reçois ce message:
L'index se trouve en dehors des limites du tableau
Merci