Bonjour Niki
Pour le msgbox remplace ton msg par :
msg = MsgBox('Voulez-vous valider votre saisie:' & vbCrLf & vbCrLf & Chr(9) & _
'Date: ' & TextDate.Value & vbCrLf & Chr(9) & _
'Fiche n°: ' & TextFiche.Value & vbCrLf & Chr(9) & _
'La tranche de poids: ' & ListBox1poids.List(ListBox1poids.ListIndex, 0) & vbCrLf & Chr(9) & _
'Quantité: ' & TextQté.Value & vbCrLf & Chr(9) & _
'Prix unité : ' & TextPrix.Value, vbQuestion + vbOKCancel, T)
pour la listbox, tu as mis : Me.ListBox1poids.ColumnCount = 4, donc 4 colonnes.
J'ai donc caché les 3 dernieres par : Me.ListBox1poids.ColumnWidths = '45;0;0;0'
les 0 indiquent une taille de colonne de 0 pt, donc masqué.
Ainsi à l'ecran n'apparait qu'une colonne, mais les autres existent bien.
Les numéros des colonnes d'une listbox commencent à zéro, donc la deuxième colonne = 1
ListBox1poids.List(ListBox1poids.ListIndex, 1) indique la valeur à l'intersection de la ligne sélectionné et de la colonne 2.
Voilà, en espérant avoir été clair.
salut
PS: je suis de saint-étienne.