Discussion :

[Mr l'Ashanti]

Bonjour à vous...
J'ai une listbox que je veux alimenter avec les valeurs de plusieurs textbox.
Chaque Textbox représente une colonne de la listbox en d'autres termes j'ai 9 Textbox donc 9 colonnes dans la listbox.
Lorsque j'utilise additem le remplissage se fait uniquement que dans la première colonne et les valeurs des 9 Textbox se superposent dans celle-ci( première colonne) or ce n'est pas le but de mon exercice. En fait l'alimentation de la listbox par un tableau déjà présent sur une feuille excel, est déjà assimilée. Mon nouveau défi c'est d' alimenter toutes les colonnes d'une listbox avec les valeurs des Textbox.
Cette fois-ci j'espère que j'ai été plus clair dans mes explications.
Merci à tous...

[Niagala]

Bonjour
Vérifies la propriété ColumnCount de votre listebox. Elle doit être égale à 9.

[Mr l'Ashanti]

Merci pour votre réponse. Cette propriété je le sais mais comment transférer le contenu des Textbox dans la listbox en différentes colonne ?

[Philippe Tulliez]

Bonjour,
Il me semble plus simple d'écrire les nouvelles données, modifiées ou crées, provenant des TextBox directement dans la liste (table), correspondante et de recharger le contrôle ListBox après chaque écriture. Cela permet ainsi de gérer les suppressions de lignes.

[Mr l'Ashanti]

Merci M. Philippe
Pour mieux vous cerner, dois-je d'abord mettre les données des Textbox dans un tableau structuré et les recharger dans la listbox ou bien dans une variable tableau?J'espère que c'est ce dont vous parlez ?

[Philippe Tulliez]

Bonjour,
Voici un exemple simple comprenant

• un UserForm nommé usfCRUD
• un contrôle ListBox nommé lstData
• un CommandButton nommé cmdConfirm
• un tableau structuré nommé t_Data

Dans le module du UserForm
En tête de module

Code :

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

1
2
Option Explicit
Public DataRange As Range

dans la procédure événementielle cmdConfirm_Click

Code :

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

1
2
3
4
5
Private Sub cmdConfirm_Click()
  ' Confirmation d'écriture
  ' >>> ici appel de la procédure de mise à jour des données après avoir validé l'encodage
  Me.lstData.List = DataRange.Value ' Chargement de la liste
End Sub

Dans un module standard
La procédure nommée Main

• assigne à la variable publique DataRange du UserForm la plage de données
• charge la liste des données du tableau structuré dans le contrôle ListBox
• affiche le UserForm

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
Sub Main()
  Const ListName As String = "t_Data"
  Dim rng As Range
  Set rng = Range(ListName)
  With usfCRUD
    Set .DataRange = rng
    With .lstData
    .List = rng.Value
    .ColumnCount = rng.Columns.Count
    End With
    .Show ' Affiche le UserForm
    Set .DataRange = Nothing
  End With
  Set rng = Nothing
End Sub

[Mr l'Ashanti]

Merci bien pour votre apport. Cette étape que vous venez de me donner, je la maîtrise et je sais le faire.
Je voudrais savoir s'il était possible de renvoyer les valeurs des Textbox dans une listbox dans différentes colonnes sans passer par un tableau sur la feuille excel.
Listbox1.Additem ajoute seulement que les valeurs dans une seule colonne de la listbox or mon exercice ici, c'est de remplir toutes les colonnes.
Exemple : j'ai 5 clients qui ont fait des achats.
Si j'utilise Additem toutes les données du premier client seront dans la première colonne de la listbox or je voudrais que cela se fasse en ligne.
Comme ça on pourrait ajouter les autres à la suite des autres.
J'ai utilisé une boucle mais je n'arrive pas à la faire évoluer en ligne.
Merci si tu comprends mon inquiétude...😞😞😞

[Philippe Tulliez]

Bonjour,
Comme je l'ai écris dans ma première réponse, il est plus simple et pour moi plus logique d'écrire dans la ligne concernée de la liste de données et recharger la liste juste après l'écriture comme je l'ai montré dans mon intervention précédente

Listbox1.Additem ajoute seulement que les valeurs dans une seule colonne de la listbox or mon exercice ici, c'est de remplir toutes les colonnes.

Faire comme vous le souhaitez c'est se fatiguer pour rien mais vous êtes libre de faire ce que vous voulez. Je ne perd plus mon temps à donner des exemples qui me semble inutile.

[EDIT]
Pour ajouter des éléments dans les colonnes, vous devez utiliser la propriété List
Exemple avec les éléments d'une table. A adapter avec les TextBox

Code :

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

1
2
3
4
5
6
7
8
9
10
  Dim Table()
  Dim ELem As Integer
  Table = Array("R01", "Mon Libellé", "10", "30")
  With Me.lstData
  .AddItem ELem
  .ColumnCount = UBound(Table) + 1
   For ELem = LBound(Table) To UBound(Table)
    .List(.ListCount - 1, ELem) = Table(ELem)
   Next
  End With

[Mr l'Ashanti]

Merci... Je vais essayer de l'adapter. Je te ferai un retour. Merci infiniment

[Mr l'Ashanti]

Salut M. Philippe
Voici le code que j'ai produit lors mon exercice
Vous pouvez m'en dire plus sur mes erreurs car rien ne s'affiche dans la listbox.

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
21
22
23
24
Private Sub CommandButton1_Click()
Dim Tabl()
Dim Ctrl As Control
Dim i As Byte
Dim Lst As Integer, Elmt As Integer
 
    i = 4 ' definit la taille du tableau
    ReDim Tabl(i) 'redimensionne le tableau
    For Lst = 0 To UBound(Tabl) 'alimente les éléments du tableau
        For Each Ctrl In Controls
            If TypeName(Ctrl) = "Textbox" Then
            Tabl(Lst) = Ctrl
            End If
        Next Ctrl
    Next Lst
 
    With ListBox1
    .AddItem
    .ColumnCount = UBound(Tabl) + 1
    For Elmt = LBound(Tabl) To UBound(Tabl)
    .List(.ListCount - 1, Elmt) = Tabl(Elmt)
    Next
    End With
End Sub

Merci

[Mr l'Ashanti]

Je Viens de trouver l'erreur. Vu que je n'ai pas mis option compare text donc le nom TextBox ne peut pas fonctionné.
Maintenant le souci est que le remplissage de la listbox se fait uniquement qu'avec les valeurs de la dernière Textbox( j'ai 4 TextBox sur l'userform). Je ne comprends pas.
Merci

[Philippe Tulliez]

Bonjour,
Sauf si un impératif vous empêche de choisir l'option que je vous préconise depuis le début, pourquoi continuer à choisir une autre voie. Vous êtes parti pour des heures de programmation et test alors que je vous propose une solution simple à mettre en place

[Mr l'Ashanti]

Loin de vous vexer car vous me proposez un chemin formidable. Je suis en plein exercice pour maîtriser le VBA dans sa totalité. Mon exercice concerne le thème de mon poste. Sinon si vous remarquez, j'ai adapté votre code et ajouter une nouvelle donnée.

[Philippe Tulliez]

Bonjour,
On ne me vexe pas parce-que l'on suit pas ce que je préconise

Je suis en plein exercice pour maîtriser le VBA dans sa totalité

Cela fait 20 ans que je le pratique et je doute de pouvoir en maîtriser un jour la totalité.
On peut apprendre une matière en utilisant les chemins les plus courts. C'est cela la maîtrise

[Mr l'Ashanti]

Ok... C'est noté. Svp, pouvez vous revoir le code que j'ai posté et m'en dire plus ? Merci pour votre disponibilité.
" Je m'autodidacte, ce pour quoi je badine un peu''.
Merci infiniment

[Philippe Tulliez]

Bonjour,
Votre code contient plusieurs erreurs.
Boucles mal gérées mais il n'y a évidemment plus de raison d'utiliser une table mais simplement parcourir la collection des contrôles, donc une seule boucle et il faut faire attention à la casse, c'est "TextBox" et pas "Textbox". Pour éviter les problèmes de casse, on peut utiliser la fonction StrComp mais avec TypeName, je ne le fais jamais car je suis sensé connaître cette casse.

Le code corrigé

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
  Dim Ctrl As Control
  Dim Elem As Integer, Column As Integer
  With Me.lstData
  .ColumnCount = 4
  .AddItem Elem + 1
   For Each Ctrl In Controls
     If TypeName(Ctrl) = "TextBox" Then
      .List(Elem, Column) = Ctrl.Value: Column = Column + 1
     End If
   Next Ctrl
  End With
  Set Ctrl = Nothing

[Mr l'Ashanti]

Ok... j'ai pris note.
Apprendre seul le VBA n'est pas chose aisée mais je crois que je vais remplir l'essentiel de mon apprentissage car le sommeil aussi est un important.
Merci infiniment... 🤩🤩

[Philippe Tulliez]

Bonjour,

Apprendre seul le VBA n'est pas chose aisée

Apprendre le VBA n'est pas plus difficile que l'apprentissage de la musique, la menuiserie, la mécanique, etc.
Persévérer ensuite est une question de curiosité, de patience, d'expérience mais avant tout de passion.

Si je devais me mettre à 'apprentissage du piano et que sur un forum dédié à cette matière, une personne ayant de l'expérience en la matière m'indiquait un autre chemin que celui que je comptais prendre, j'aurais tout de même suivi son conseil.
Si d'un utilisateur d'excel qui savait à peine faire une somme en 1998, j'en suis arrivé aujourd'hui où j'en suis, c'est parce-que j'ai suivi les conseils de ceux qui en savaient plus que moi et même aujourd'hui, je change dès fois mon fusil d'épaule parce-que j'ai trouvé une meilleure façon d'aborder un problème qui a été proposée par un autre contributeur.

D'après votre signature, vous êtes instituteur, je suppose que vous voyez ce que je veux dire

[Mr l'Ashanti]

J'ai déjà coché résolu.
En travaillant avec le code modifié, la première ligne de la listbox s'ajoute très bien avec les valeurs des Textbox mais le reste des lignes c'est le chiffre 1 dans la première colonne au fur et à mesure qu'on actionne bouton.
Lorsque j'ai enlevé +1 devant Additem Elem , au lieu de 1 C'est 0. J'ai compris que l'erreur vient de là.
Voici ici un peu le problème. Merci

[Philippe Tulliez]

Bonjour,
Au temps pour moi (en rouge la modification) et on pourrait se passer de la variable Elem pour utiliser directement la propriété ListCount

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
  Dim Ctrl As Control
  Dim Elem As Integer, Column As Integer
  With Me.lstData
  .ColumnCount = 4
   Elem = .ListCount
  .AddItem Elem
   For Each Ctrl In Controls
     If TypeName(Ctrl) = "TextBox" Then
      .List(Elem, Column) = Ctrl.Value: Column = Column + 1
     End If
   Next Ctrl
  End With
  Set Ctrl = Nothing