XL 2010 erreur excel vba:erreur d'execution 424 objet requis

billal

XLDnaute Nouveau
salut;
j'ai essayé un petit programme mais il y a une ou j'ai pas pu la découvrir
voici le programme:
Private Sub ajouter_Click()
'les variables
Dim description_article As String
Dim Nr_art As String
Dim prix_article As Currency
Dim DL As Integer
DL = Range("B1000").End(xlUp).Row + 1
Dim HTVA As Currency
Dim TVA As Currency
Dim TTC As Currency
Dim NA As Variant



'la recherche

description_article = WorksheetFunction.VLookup(Range("K2"), Sheets("Article").Range("B3:D12"), 2, 0)
Nr_art = WorksheetFunction.VLookup(Range("k2"), Sheets("Article").Range("B3:D12"), 1, 0)
prix_article = WorksheetFunction.VLookup(Range("k2"), Sheets("Article").Range("B3:D12"), 3, 0)

'AJOUTER DANS LA FACTURE
Range("B" & DL) = Nr_art
Range("D" & DL) = prix_article
Range("C" & DL) = description_article
Range("E" & DL) = Range("K3")
Range("F" & DL) = Range("E" & DL) * prix_article
Range("K2:K3").ClearContents
Rows(DL + 1).EntireRow.Insert
NA = Worksheet.Function.CountA(Range("b10:b1000"))

'calcule de TVA


HTVA = WorksheetFunction.Sum(Range("F10:F" & DL))
TVA = HTVA * 0.06
TTC = TVA + HTVA
Range("F13").Offset(NA) = HTVA
Range("F14").Offset(NA) = TVA
Range("F15").Offset(NA) = TTC

End Sub
 

danielco

XLDnaute Impliqué
Oups : WorksheetFunction au lieu de Worksheet.Function

Daniel
 

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas