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