Re,
J'ai regardé quelques exemples, mais j'ai dû mal exprimer ma demande ou pas compris ce qu'il fallait faire.
Ci-dessous mon formulaire avec la listbox que je souhaite remplir.
II manque la Colonne C et j'aimerais également rajouté les 3 checks box sous "Disponibilité".
Ce n'est qu'une fois la listbox rempli par Enseigne que les informations iront dans la feuille (en cliquant sur sauvegarder).
Egalement ci-dessous, mon code.
Private Sub btnAjouter_Click()
'***********************************************************************
'Procédure d'alimentation de la listbox "listSaveursClient" des produits
'en magasin.
'************************************************************************
'Déclaration des variables
Dim nbControles As Integer 'pour indiquer le nombre de contrôles qu'à le formulaire, txt,etc...
Dim nbItem As Integer 'pas 32000 lignes de commandes d'où "integer"
'Affectation des variables
nbControles = 14 'on compte le nombre de contrôle et on lui indique le nombre de colonne
'On test en premier la "txtSocle" pour qu'elle ne soit pas vide.
'Evite d'enregistrer une ligne vide
If Me.txtSocle.Value = "" Then
MsgBox "Veuillez saisir un nombre de colis svpl.", vbOKOnly + vbInformation, "Validation"
Exit Sub
End If
'Message de validation de l'article à commander
If MsgBox("Confirmez-vous votre Sélection ?", vbYesNo, "Validation") = vbYes Then
End If
Me.listeSaveursClient.AddItem txtGencode 'on lui indique la première colonne "Gencod"
nbItem = Me.listeSaveursClient.ListCount - 1 '-1 car on commence à 0. On compte le nb d'item dans la liste
'On charge les contrôles dans la listbox
Me.listeSaveursClient.List(nbItem, 1) = Me.txtSaveurChoisie 'on charge la désignation
Me.listeSaveursClient.List(nbItem, 2) = Me.txtSocle
Me.listeSaveursClient.List(nbItem, 3) = Me.txtTablette1
Me.listeSaveursClient.List(nbItem, 4) = Me.txtTablette2
Me.listeSaveursClient.List(nbItem, 5) = Me.txtTablette3
Me.listeSaveursClient.List(nbItem, 6) = Me.txtTablette4
Me.listeSaveursClient.List(nbItem, 7) = Me.txtTablette5
Me.listeSaveursClient.List(nbItem, 8) = Me.txtTablette6
Me.listeSaveursClient.List(nbItem, 9) = Me.txtTablette7
Me.listeSaveursClient.List(nbItem, 10) = Me.txtTablette8
MsgBox "Votre choix a été entregistré."
End Sub
La ligne 10 (ou colonne 10) ne s'affiche pas et il y un beug là-dessus. J'ai compris avec Additem pas plus de 10 colonnes;
Merci pour votre retour.
Olivier