Imcomptabilité de type 13
p
Je ce comprends pas pourquoi j'obtient une erreur
merci
Sub calculer_prix_pb_saguenay()
prix_pb_saguenay = 0
With Sheets("calculateur")
For NoLig = 3 To Range("A" & Rows.Count).End(xlUp).Row
**** ici j'obtient une incomptabilité de type 13 ****
prix_pb_saguenay = Application.VLookup(.Range("G" & NoLig).Value, Sheets("pb_saguenay").Range("a:G"), 4, False)
If Not IsError(prix_pb_saguenay) Then
Range("AE" & NoLig).Value = prix_pb_saguenay
Else
Range("AE" & NoLig).Value = 0
End If
Next
End With
m
Salut plmartel,
le code fonctionne bien, ca doit être un probleme de format dans le fichier.
Bonjour, salut m3ellem1,
Il manque peut-être un point devant le range de cette ligne :
For NoLig = 3 To Range("A" & Rows.Count).End(xlUp).RowCe n'est peut être pas lié à l'erreur 13, mais c'est toujours bon à prendre !