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.

 

[Pierrot93]

Re : Erreur de dépassement de capacité

Re,

oui, les divsions par rien ou par 0, pas top... il y a sans doute lieu de tester les valeurs des cellules au préalable...

bon après midi
@+

 

[Poussin]

Re : Erreur de dépassement de capacité

Merci pour ta réponse comment faut-il que j'écrive ceci :

If Worksheets("Feuil4").Range("H109").Value = " " & Worksheets("Feuil4").Range("H109").Offset(2, 0).Value = " "
  Then go to suite:
  Else .Range("J34").Value = Worksheets("Feuil4").Range("H109").Offset(2, 0).Value / Worksheets("Feuil4").Range("H109").Value

Serait-il possible de simplifier ce code afin que j'évite d'écrire ceci pour chaque calcul. Encore merci pour votre aide j'apprécie énormément.

 

[Pierrot93]

Re : Erreur de dépassement de capacité

Re,

ton bloc "with" représente quelle feuille ?? la feuille active, la feuil4 ou une autre ??

 

[Robert]

Re : Erreur de dépassement de capacité

Bonjour Poussin, Pierrot, bonjour le forum

Peut-être comme ça :

Dim o As Worksheet
Set o = Worksheet("Feuil4")
With Sheets("Feuil1") 'à adapter à ton code
    .Range("D11").Value = IIf(o.Range("B118").Value <> "", o.Range("B116").Value / o.Range("B118").Value, "")
    .Range("D12").Value = IIf(o.Range("B116").Value <> "", o.Range("B117").Value / o.Range("B116").Value, "")
    .Range("D13").Value = IIf(o.Range("B122").Value <> "", o.Range("B121").Value / o.Range("B122").Value, "")
End With

 

[Poussin]

Re : Erreur de dépassement de capacité

Merci Robert pour ta réponse mais il me met encore dépassement de capacité pourtant c'est exactement ce qu'il me faudrait ...

Encore merci pour votre aide

 

[laetitia90]

Re : Erreur de dépassement de capacité

rebonjour tous
peut etre en debut de code mettre si division par zero

On Error Resume Next

en depannage... mais il vaut mieux gerer les erreurs avec un gestionnaire goto ect..

 

[Pierrot93]

Re : Erreur de dépassement de capacité

Re, bonjour Robert🙂 , Laetitia🙂

Aarf, j'en étais là... mais bon, pas top...

Dim c As Range
Set c = Worksheets("Feuil4").Range("B109")
.Range("D11").Value = IIf(c.Offset(7, 0).Value = " ", 0, c.Offset(7, 0).Value) _
    / IIf(c.Offset(9, 0).Value = " ", 1, c.Offset(9, 0).Value)

 

[Poussin]

Re : Erreur de dépassement de capacité

Merci encore Pierrot93 mais malheureusement toujours la même erreur ....

 

[Pierrot93]

Re : Erreur de dépassement de capacité

Re,

remarque j'avais mis " " au lieu de "", mais bon... peut être préférable d'agir à la source, ou utilise la solution de Laetitia🙂...

 

[Poussin]

Re : Erreur de dépassement de capacité

Alors la solution de Laetitia ne fonctionne pas par contre celle de Pierrot93 me permet effectivement de m'afficher un 0 en D11 mais je voudrais savoir s'il serait possible d'obtenir une case vide. Cela peut sembler tordu mais ça serait la seule façon pour moi d'obtenir le bon résultat. Merci pour votre aide j'espère que cela est possible.

 

[job75]

Re : Erreur de dépassement de capacité

Bonjour à tous,

La division par zéro ne crée pas une erreur de type "dépassement de capacité".

Mais une erreur "Incompatibilité de type".

Sauf erreur de ma part...

A+

 

[Pierrot93]

Re : Erreur de dépassement de capacité

Re,

essaye ainsi, après les opérations, plage à adapter :

.Range("D11:D18").Replace 0, "", xlWhole

 

[Pierrot93]

Re : Erreur de dépassement de capacité

Re,
bonjour Job🙂

chez moi sous 2003 :

MsgBox 0 / 0 'depassement de capacité
MsgBox 9 / 0 'erreur 11 division par 0
MsgBox 0 / 9 'ok

 

[job75]

Re : Erreur de dépassement de capacité

Re,

Merci Pierrot, comme quoi faut pas se fier à sa mémoire 🙁

A+