Microsoft 365 VBA division : dépassement de capacité

VBA_dev_Anne_Marie · 13 Décembre 2022

Bonjour,

Je ne comprends pas pourquoi je reçois une erreur de dépassement de capacité, alors que je voudrais juste diviser deux colonnes :

Les données sont bien numérique.
Merci pour votre aide !

dysorthographie · 13 Décembre 2022

Code:

Cells(i,19)=Cells(i,18)/iif(val("" & cells(i,23))=0,1,Cells(i,23).value)

Dranreb · 13 Décembre 2022

Bonsoir.
Il est vraisemblable que vous ayez déclaré DernLigne ou i As Integer, c'est à dire comme entier signé sur 2 octets, qui ne peut supporter de valeur supérieure à 32767.
Si tel est le cas changez pour As Long.
Sinon joignez le classeur, qu'on puisse chercher une autre cause.

VBA_dev_Anne_Marie · 13 Décembre 2022

Dranreb à dit:
Bonsoir.
Il est vraisemblable que vous ayez déclaré DernLigne ou i As Integer, c'est à dire comme entier signé sur 2 octets, qui ne peut supporter de valeur supérieure à 32767.
Si tel est le cas changez pour As Long.
Sinon joignez le classeur, qu'on puisse chercher une autre c

Dranreb à dit:
Bonsoir.
Il est vraisemblable que vous ayez déclaré DernLigne ou i As Integer, c'est à dire comme entier signé sur 2 octets, qui ne peut supporter de valeur supérieure à 32767.
Si tel est le cas changez pour As Long.
Sinon joignez le classeur, qu'on puisse chercher une autre cause.

Bonjour,

Merci pour votre message, j'ai vérifié mais ça ne marche pas, j'ai joint le classeur à ma question.

JM27 · 13 Décembre 2022

bonjour
As tu déja essayé de diviser zéro par une autre valeur ?
Diviser zéro par une valeur ou l'inverse : ca ne le fait pas

de plus il manque le point devant cells
.Cells(i, 3) = .Cells(i, 2) / .Cells(i, 4)

Dranreb · 13 Décembre 2022

Bonjour.
Effectivement la feuille active est la "CALCUL" et Cells(2, 2).value et Cells(2, 4).Value y sont vides.

VBA_dev_Anne_Marie · 13 Décembre 2022

Dranreb à dit:
Bonjour.
Effectivement la feuille active est la "CALCUL" et Cells(2, 2).value et Cells(2, 4).Value y sont vides.

Bonjour,
Les colonnes 2 et 4 ne sont pas vides :

Dranreb · 13 Décembre 2022

J'ai dit dans la feuille "CALCUL", active lors du lancement, et donc assumée si non précisé devant les Cells par un point pour appliquer l'expression du With Worksheets("RESULTATS").
Là vous montrez ce qu'il y a dans "RESULTAT".

VBA_dev_Anne_Marie · 13 Décembre 2022

Dranreb à dit:
J'ai dit dans la feuille "CALCUL", active lors du lancement, et donc assumée si non précisé devant les Cells par un point pour appliquer l'expression du With Worksheets("RESULTATS").
Là vous montrez ce qu'il y a dans "RESULTAT".

Mais j’ai dit bien dans le code With Worksheets(“RESULTATS”)
…
End With

Dranreb · 13 Décembre 2022

Remarque: en ajoutant les points à .Cells(i, 3) = .Cells(i, 2) / .Cells(i, 4) pour que l'expression du With soit assumée au lieu de ActiveSheet, on tombe sur l'erreur pour i = 8275 où à cette ligne effectivement D = 0

JM27 · 13 Décembre 2022

bonjour
Comme je l'ai dit précédemment
0 divisé par zéro : impossible
Ligne 8275
Mais comme j'ai l'air d'être transparent

VBA_dev_Anne_Marie · 13 Décembre 2022

Dranreb à dit:
Remarque: en ajoutant les points à .Cells(i, 3) = .Cells(i, 2) / .Cells(i, 4) pour que l'expression du With soit assumée au lieu de ActiveSheet, on tombe sur l'erreur pour i = 8275 où à cette ligne effectivement D = 0

Merci
Comment je peux remplacer les 0, s’il vous plaît ?

Dranreb · 13 Décembre 2022

Vous pouvez en tout cas éviter de tenter la division en testant la valeur de .Cells(i, 4).Value

Dranreb · 13 Décembre 2022

Je l'aurais écrit assez différemment, car je ne travaille jamais directement avec les cellules individuelles, c'est trop lent, toujours via des tableaux dynamiques :

VB:

Option Explicit
Sub Test()
   Dim Wsh As Worksheet, TD(), LMax As Long, TR(), L As Long
   On Error Resume Next
   Set Wsh = Worksheets("Résultats")
   If Err Then Err.Clear: Set Wsh = Worksheets("RESULTATS")
   If Err Then MsgBox "L'onglet ""RESULTAT"" n'existe pas dans le classeur actif.", _
      vbCritical, "Test": Exit Sub
   If Wsh.[C1].Value = "Coût" Then Wsh.Columns("C").Delete
   TD = Wsh.[B2].Resize(Wsh.[A1000000].End(xlUp).Row - 1, 2).Value
   LMax = UBound(TD, 1)
   ReDim TR(1 To LMax, 1 To 1)
   For L = 1 To LMax
      If TD(L, 2) <> 0 Then TR(L, 1) = TD(L, 1) / TD(L, 2)
      If Err Then
         Application.Goto Wsh.[B1:C1].Offset(L)
         MsgBox "Err " & Err & " sur :" & vbLf & TD(L, 1) & " / " & TD(L, 2) _
            & vbLf & Err.Description, vbCritical, "Test"
         Exit Sub: End If
      Next L
   Wsh.Columns("C").Insert
   With Wsh.[C1]: .Value = "Coût": .Interior.Color = RGB(0, 128, 0): End With
   Wsh.[C2].Resize(LMax).Value = TR
   End Sub

dysorthographie · 13 Décembre 2022

Bonjour,
En cas de division par zéro le résultat est infinie,ce que explique le dépassement de capacité !

Que veux tu comme résultat en cas de division par zéro ?

VBA_dev_Anne_Marie · 13 Décembre 2022

dysorthographie à dit:
Bonjour,
En cas de division par zéro le résultat est infinie,ce que explique le dépassement de capacité !

Que veux tu comme résultat en cas de division par zéro ?

Bonjour,
En cas de 0 je voudrais diviser par 1 ou bien afficher une erreur dans la cellule.

Microsoft 365 VBA division : dépassement de capacité

VBA_dev_Anne_Marie

XLDnaute Occasionnel

Pièces jointes

dysorthographie

Dranreb

XLDnaute Barbatruc

VBA_dev_Anne_Marie

XLDnaute Occasionnel

JM27

XLDnaute Barbatruc

Dranreb

XLDnaute Barbatruc

VBA_dev_Anne_Marie

XLDnaute Occasionnel

Dranreb

XLDnaute Barbatruc

VBA_dev_Anne_Marie

XLDnaute Occasionnel

Dranreb

XLDnaute Barbatruc

JM27

XLDnaute Barbatruc

VBA_dev_Anne_Marie

XLDnaute Occasionnel

Dranreb

XLDnaute Barbatruc

Dranreb

XLDnaute Barbatruc

dysorthographie

XLDnaute Accro

VBA_dev_Anne_Marie

XLDnaute Occasionnel

Discussions similaires