Bonjour,
Je suis entrain de faire un fichier excel pour gestion de stock. J'ai trouvé un petit tuto sur internet, dont, j'ai besoin de modifier pour que cela convienne davantage à mon cahier des charges.
Lors d'un formulaire popup, pour faire un bon de commande, j'essaye de réccupérer les informations (référence, et prix unitaire) de mon tableau d'articles produit qui se trouve sur la page 2, en s'appuyant sur un box déroulante (désignation de produit). J'ai une erreur 1004 qui s'affiche. le débutcode est le suivant:
Option Explicit
Public memoire As Integer
Private Sub CommandButton1_Click()
Dim part_reference As Byte
Dim part_prix As Currency
part_reference = WorksheetFunction.VLookup(Me.Cbx_designation, Sheets(2).Range("b:j"), 1, False)
part_prix = WorksheetFunction.VLookup(Me.Cbx_designation, Sheets(2).Range("b:j"), 5, False)
With Me.List_order
.AddItem
.List(memoire, 0) = part_reference 'référence produtà importer de la page 2
.List(memoire, 1) = Me.Cbx_designation 'la désignation produit à commander
.List(memoire, 2) = CCur(part_prix) 'le prix à importer de la page 2
.List(memoire, 3) = Me.Text_nombre 'le nombre du produit x à commander
End With
memoire = memoire + 1
End Sub
L'erreur 1004 est pour la fonction worksheetfunction part_reference et part prix. ces lignes s'affiche en jaune. Mon tableau cible comporte bien les informations.
Je coince, si quelqu'un a une idée pour m'aider, ce serait bien gentil, car je suis vraiment novice.
Merci par avance
Cordialement.
Florian.
Je suis entrain de faire un fichier excel pour gestion de stock. J'ai trouvé un petit tuto sur internet, dont, j'ai besoin de modifier pour que cela convienne davantage à mon cahier des charges.
Lors d'un formulaire popup, pour faire un bon de commande, j'essaye de réccupérer les informations (référence, et prix unitaire) de mon tableau d'articles produit qui se trouve sur la page 2, en s'appuyant sur un box déroulante (désignation de produit). J'ai une erreur 1004 qui s'affiche. le débutcode est le suivant:
Option Explicit
Public memoire As Integer
Private Sub CommandButton1_Click()
Dim part_reference As Byte
Dim part_prix As Currency
part_reference = WorksheetFunction.VLookup(Me.Cbx_designation, Sheets(2).Range("b:j"), 1, False)
part_prix = WorksheetFunction.VLookup(Me.Cbx_designation, Sheets(2).Range("b:j"), 5, False)
With Me.List_order
.AddItem
.List(memoire, 0) = part_reference 'référence produtà importer de la page 2
.List(memoire, 1) = Me.Cbx_designation 'la désignation produit à commander
.List(memoire, 2) = CCur(part_prix) 'le prix à importer de la page 2
.List(memoire, 3) = Me.Text_nombre 'le nombre du produit x à commander
End With
memoire = memoire + 1
End Sub
L'erreur 1004 est pour la fonction worksheetfunction part_reference et part prix. ces lignes s'affiche en jaune. Mon tableau cible comporte bien les informations.
Je coince, si quelqu'un a une idée pour m'aider, ce serait bien gentil, car je suis vraiment novice.
Merci par avance
Cordialement.
Florian.
Dernière édition: