Discussion :

[NicolasMO]

Autre question:
Un menu déroulant (combobox) se présente à l'utilisateur dans une userform. Les items de ce menu déroulant proviennent d'une liste inscrite dans une feuille cachée. Cette liste peut être modifiée par l'utilisateur par l'intermédiaire d'une textbox dans une autre userform. Le problème est le suivant: La textbox est en multiligne et la touche entrée permet d'aller à la ligne. Le texte de la textbox est ensuite inscrit dans une case de la feuille cachée. L'orsque la userform construit sa combobox avec le menu déroulant, elle doit aller chercher le texte inscrit dans la case de la feuille cachée. Du coup, elle écrit tous les items sur une seule ligne alors que je voudrais les avoir sur des lignes séparées. Comment résoudre ce problème?
Merci.
Nicolas.

[zazaraignée]

Normal. Ton textbox contient une chaîne et une seule. Ca fait donc un item et un seul. Fais un Split sur le caractère 13 pour obtenir un tableau des différents items.

[NicolasMO]

C'est quoi un split sur le caractère 13?

[zazaraignée]

Once again! C'est un retour de charriot. Un caractère numéro 10, c'est un saut de ligne. C'est dans l'aide avec les fonctions Chr et Asc.

[NicolasMO]

J'ai essayé la fonction split mais la syntaxe ne doit pas être bonne:
Split(TextBox1.Text, Chr(10),-1)
Il attend "=expression".
Il faut mettre quoi derrière?

[zazaraignée]

Tu dois déclarer une variable tableau sans dimension (tableau dynamique) et lui affecter le résultat de la fonction Split.

Code :

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

1
2
3
4
5
Dim TabResultat() As String, i As Integer
TabResultat = Split(TextBox1.Text, Chr(10),-1)
For i = 0 to UBound(TabResultat)
    monCombo.Additem TabResultat(i)
Next