bonjour,

j'ai un problème de "dépassement de capacité"

voici mon code :
J'ai mis des variables pour le debug et je constate que les valeurs dans les variables a,b et c sont toutes à fait correctes


Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
 
    Dim val As Double
    Dim val2 As Double
    Dim val3 As Double
 
    If Target.Count > 1 Then Exit Sub
 
        If Sh.Name <> "donnees" And Sh.Name <> "HD ccharge" Then
 
            val = Cells(4, Target.Column).Value
            val2 = Target.Value
 
            'MsgBox "Vous venez de modifier la cellule " & Target.Address & _
            '" (" & Target.Value & ")" & _
            '" dans la feuille nommée " & Sh.Name
 
            Dim a, b, c
            a = Target.Row
            b = Cells(Target.Row, 13)
            c = Cells(Target.Row, 12)
 
            probleme ici -----> val3 = Cells(Target.Row, 12) / Cells(Target.Row, 13)
 
            Cells(4, Target.Column).Value = val3
 
        End If
 
End Sub
Avez vous une idée du pourquoi de ce dépassement sur cette division ?
Je précise qu'il n'ya aucune valeur négative ni de 0 dans ces cases.

merci d'avance