Microsoft 365 VBA division : dépassement de capacité

[VBA_dev_Anne_Marie]

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 !

 

[Dranreb]

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]

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

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]

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]

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]

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]

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]

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]

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]

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]

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]

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

 

[Dranreb]

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 :

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]

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]

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.