ListBOX 2003

[recovery]

Bonjour,

Une fois de plus j'ai besoin de l'aide des initiées car mes limites sont vites atteintes en ce qui concerne le VBA, ceux qui m'ont déjà apporté leur aide se reconnaîtront, et je les remercie une nouvelle fois.

Voilà, ma base de données fournisseurs fonctionne bien je sélectionne un fournisseur dans ma COMBOBOX et leur articles s'affichent dans la ListBOX, un DBCLICK dans cette dernière et l'article sélectionné s'affiche dans la feuille produit dans la colonne commande, mais à côté de ces derniers se trouvent leur référence impossible à affichée dans la feuille produits à côté de la colonne commande.

Merci pour votre aide

Cordialement.

 

[Bebere]

Re : ListBOX 2003

bonjour Recovery
à essayer

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim L As Long

With Sheets("Produits")
L = .Range("j500").End(xlUp).Row + 1
.Cells(L, "J").Value = Me.ListBox1.List(Me.ListBox1.ListIndex, 0)
.Cells(L, "K").Value = Me.ListBox1.List(Me.ListBox1.ListIndex, 1)
End With

End Sub

à bientôt

 

[recovery]

Re : ListBOX 2003

Merci Bebere ça fonctionne parfaitement
3 jours de galère pour un profane
3 Minutes pour un initié chercher l'erreur

Encore Merci