Erreur d'execution 6 : dépassement de capacité

[Airone784]

Bonjour,

Je vous joins mon fichier sur lequel j'ai une erreur et pour laquelle je ne trouve pas la solution dans le forum malgré des sujets qui abordent ce type d'erreur.

Dans le fichier en A1, j'ai l'heure.
En A2, j'ai l'heure du dernier changement de cellule. Si la différence entre le dernier changement de cellule et l'heure actuelle est supérieure à 30'', je veux mettre à jour l'heure dans la cellule A2.

Merci d'avance pour votre aide.

 

[Guest]

Re : Erreur d'execution 6 : dépassement de capacité

Bonjour,

Cela vient de la façon dont exel traite les variables et le calcul des doubles. Commence par déclarer toutes tes variables en double et pas simplement la dernière.
Ensuite si tu fais 30 / 86400 ( produit de 24*60*60) cela ne te pourrira plus le calcul (même si tes variables sont des variants)

Je n'ai pas vérifié la cohérence de la macro, simplement contenté de répondre à la question du dépassement de capacité.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim maj As Double, a As Double, b As Double, diff As Double

    Range("A1") = Now()
    If Range("A2") = "" Then Range("A2") = Now
    a = Range("A1")
    b = Range("A2")
    diff = a - b
    maj = 30 / 86400
    If diff > maj Then
        Calculate
        Range("A2") = Format(Now, "hh:mm:ss")
        MsgBox "Temps recalculé!"
    End If
End Sub

A+

 

[Airone784]

Re : Erreur d'execution 6 : dépassement de capacité

En effet Hasco, mon problème est résolu avec cette correction sur la déclaration des variables erronnées.
En revanche, j'ai corrigé suivant tes conseils le produit de 24*60*60 par 86400 mais je ne comprends pas pourquoi ça gêne excel.
Bref, l'essentiel est résolu donc merci beaucoup.
A+