Listbox à 4 colonnes dans un userform !! aide !!
Mokia34
Messages postés
25
Statut
Membre
-
Mokia34 Messages postés 25 Statut Membre -
Mokia34 Messages postés 25 Statut Membre -
Bonjour,
En fait dans mon userform intitulé UserFormNouveau, je voudrais dans le cadre de droite intitulé "coût par voyageur par responsable et par année" mettre les données du tableau de longlet "tcd" dans une listbox.
En gros avoir une listbox avec en :
- colonne 1 : N° voyageur
- colonne 2 : N° responsable
- colonne 3 : année
- colonne 4 : montant
Les données sont dans un autre onglet que celui du tableau principal, le lien entre les deux est le n° d'organisme.
Est ce que quelqu'un peut m'aider à démarrer svp ?
fichier excel : http://www.terafiles.net/v-195806.html
Merci
En fait dans mon userform intitulé UserFormNouveau, je voudrais dans le cadre de droite intitulé "coût par voyageur par responsable et par année" mettre les données du tableau de longlet "tcd" dans une listbox.
En gros avoir une listbox avec en :
- colonne 1 : N° voyageur
- colonne 2 : N° responsable
- colonne 3 : année
- colonne 4 : montant
Les données sont dans un autre onglet que celui du tableau principal, le lien entre les deux est le n° d'organisme.
Est ce que quelqu'un peut m'aider à démarrer svp ?
fichier excel : http://www.terafiles.net/v-195806.html
Merci
4 réponses
-
Il faudrait que tu soit beaucoup plus rigoureux dans ton code, des listbox que tu appel ListBox1 à certain endroits et ListBox_1 à d'autre tout ça en parlant de la même listbox et ce n'est qu'un exemple.
Pour la remplir' ouverture de l'userform de traitement
Mais tu a encore d'autre erreurs, à toi de les repérer.
Private Sub UserForm_Initialize()
Dim i As Byte, d As Byte 'début listbox
LabelLigne.Visible = False
ListBox1.Clear
ListBox1.ColumnCount = 4
With Sheets("tcd")
For i = 0 To 29
ListBox1.AddItem .Range("B" & i + 1)
For d = 1 To 3
ListBox1.List(i, d) = .Cells(i + 1, d)
Next d
Next i
End With
End Sub
Difficile de trouver les erreurs à l'initialisation d'un UserForm, pour y arriver
Mettre le curseur dans le code et taper F8.. F8... etc jusqu'à ce que l'userform revienne au début. Mémorise la ligne de l'erreur.
A+
