Discussion :

[Mr l'Ashanti]

Bonjour à tous...
Alimenter une listbox à l'aide d'un tableau se trouvant sur une feuille Excel n'est pas un souci. Je voudrais pousser la curiosité très loin. J'ai fouiné un peu sur les forums et télécharger des cours mais je n'ai pas trouvé ce dont j'avais besoin.
Voici ma préoccupation : je voudrais alimenter une listbox à l'aide de Textbox en cliquant sur un bouton. Le remplissage sur une colonne, je sais le faire en utilisant additem mais c'est sur plusieurs colonnes qui cause problème.
J'espère être le plus concis possible. Merci.

[Thautheme]

Bonjour Mr l'Ashanti, bonjour le forum,

Je ne comprends pas bien ton problème. Tu veux alimenter ta Listbox avec les données se trouvant sur des TextBoxes ou sur plusieurs colonnes ?
La Listbox contient combien de colonnes ?

Quoi qu'il en soit il te suffit de boucler sur toutes tes textboxes pour alimenter la ListBox à partir des textboxes à l'aide d'un bouton par exemple :

Code :

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

1
2
3
4
5
6
7
Private Sub CommandButton1_Click()
Dim CTRL As Control
 
For Each CTRL In Me.Controls
    If TypeOf CTRL Is msforms.TextBox And CTRL.Value <> "" Then Me.ListBox1.AddItem CTRL.Value
Next CTRL
End Sub

ou avec une première boucle sur les deux colonnes puis une seconde sur les cellules éditées de chaque colonne pour alimenter la ListBox à partir des deux colonnes, à l'initialisation de l'Userform par exemple:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub UserForm_Initialize()
Dim COL As Byte
Dim DL As Integer
Dim I As Integer
 
For COL = 1 To 2
    DL = Cells(Application.Rows.Count, COL).End(xlUp).Row
    For I = 1 To DL
        Me.ListBox1.AddItem Cells(I, COL).Value
    Next I
Next COL
End Sub

[Mr l'Ashanti]

Bonjour Tauthème. Ça fait un bail? Content de vous retrouver. Merci pour la réponse rapide.
Je vais tester votre code mais ce dont vous voulez savoir c'est de remplir une listbox( colonne indéfinie) avec des valeurs se trouvant dans des Textbox ( minimum 2).
Le remplissage se fera pas ligne.
Exemple : sur la première ligne de la listbox on aura : Franck(0,1) France (0,2) chaussures (0,3) Payement entier (0,4)
Sur la deuxième ligne de la listbox pareil...
Claude (1,1) Allemagne (1,2) livres(1,3) Payement partiel(1,4)

Voici un peu ce que je voudrais faire.

[Thumb down]

Bonjour,
Je peux comprendre que tu voudrais que ta liste affiche le contenu de plus colonnes.

Ce qui m'échappe c'est la relation avec les TextBox???

Tu en parles que dans le titre ou laconiquement ! aucune explication !

[Mr l'Ashanti]

Merci bien... En fait j'ai 5 Textbox qui me permettent de faire des enregistrements de clients. D'habitude j'utilise un tableau sur une feuille excel pour récupérer les valeurs et les charger dans une listbox( forme classique des enregistrements). Chaque Textbox correspond à une colonne. J'aimerais savoir s'il était possible de faire le même enregistrement sans passer par la feuille Excel en premier ( et après retranscrire les valeurs de la listbox sur la feuille Excel). Je note que je n'ai pas encore testé le code de Tauthème ( problème de temps). Merci