Correction macro calcul

Bonjour,

j'ai modifié cette macro mais maintenant le calcul ne fonctionne pas.

Quelqu'un pourrait-il m'indiquer quel paramètre changer (E=F-D) ?

Sub Calcul_délai_de_livraison()
     Dim LastLig As Long, i As Long, Tb()
     With Worksheets(1)
         LastLig = .Cells(.Rows.Count, 4).End(xlUp).Row
         ReDim Tb(1 To LastLig - 8, 1 To 1)
         For i = 1 To LastLig - 8
             Tb(i, 1) = .Cells(i + 8, 6) - .Cells(i + 8, 4)
         Next i
         Application.ScreenUpdating = False
         .Range("E9").Resize(LastLig - 8).Value = Tb
     End With
     Application.ScreenUpdating = True
 End Sub

Bonsoir,

Numéro d'erreur ?

Bonjour MFerrand,

il n'y a pas de n° d'erreur.

Je crois que l'erreur vient de la ligne surlignée en jaune.

Cette macro est censée faire la calcul E=F-D à partir de la cellule E9 jusqu'à la dernière ligne du tableau.

Je l'ai modifié pour l'adapter à mon utilisation mais j'ai du changer quelque chose qu'il ne fallait pas.

Je ne vois pas quoi si tes dates sont bien des dates et non du texte... Il s'agit d'une simple soustraction !

Quel libellé d'erreur si pas de numéro ?

Ah si ! Je vois un problème !

With Worksheets(1)

Tu opères sur la première feuille du classeur, et visiblement celle que tu montres sur ton image n'est pas la première !

Cordialement.

En effet, je n'avais pas fait attention a modifier le numéro de la feuille.

merci