Erreur de dépassement de capacité

[Poussin]

Bonjour à tous, j'obtiens l'erreur dépassement de capacité depuis que j'ai écris ces différentes lignes de code. Sachant que le contenu que je vais chercher peut être " " c'est à dire vide mais pas tout le temps cela a-t-il un lien comment puis-je modifier pour éviter cette erreur.

Voici le code qui pose problème :

    .Range("D11").Value = Worksheets("Feuil4").Range("B109").Offset(7, 0).Value / Worksheets("Feuil4").Range("B109").Offset(9, 0).Value
    .Range("D12").Value = Worksheets("Feuil4").Range("B109").Offset(8, 0).Value / Worksheets("Feuil4").Range("B109").Offset(7, 0).Value
    .Range("D13").Value = Worksheets("Feuil4").Range("B109").Offset(12, 0).Value / Worksheets("Feuil4").Range("B109").Offset(13, 0).Value

Merci pour votre aide.

Cordialement.

 

[Si...]

Re : Erreur de dépassement de capacité

Salut

Si ... je voulais simplifier, je commencerais par les Offset.

Dim F As Worksheet
With Sheets("Feuil4")
  Set F = Sheets("Feuil4")
  If IsNumeric(F.[B118]) And F.[B118] <> 0 Then .Range("D11") = F.[B116] / F.[B118]
  If IsNumeric(F.[B116]) And F.[B116] <> 0 Then .Range("D12") = F.[B117] / F.[B116]
  If IsNumeric(F.[B122]) And F.[B122] <> 0 Then .Range("D13") = F.[B121] / F.[B122]
End With