Discussion :

[nicolav]

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

[Minick]

Salut,

Que retour b et c (les valeurs)?

++
Minick

[mercatog]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Cells(4, Target.Column).Value = val3

Ceci déclenche l'événement

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Workbook_SheetChange

et tu ne t'arrêteras jamais

[nicolav]

@ Minick

Les valeurs renvoit le contenu des cases de mon tableau, c'est à dire des chiffres entiers du style 2, 5 ,4...

Par contre, si je fais un b/c c'est le même problème...

si je fais b/2 --> pas d'erreur
si je fais c/2 --> pas d'erreur

@ mercatog

Comment je peux faire alors ? je dois interdire les événements ?

[Minick]

Re,

Bien vu mercatog, j'ai pas vu qu'on etait dans un evenement.

Oui eventuellement pour les evenement
avec un

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Application.EnableEvents = False

et surtout n'oublis pas de le remettre tout de suite apres

++
Minick

[mercatog]

Essaie cela pour intercepter la changement issu de la procédure
Déclaration en haut du module de Flag
ensuite dans ta procédure

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
Public Flag As Byte
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 Or Sh.Name = "donnees" And Sh.Name = "HD ccharge" Then Exit Sub
 
             Flag=Flag+1
 
            '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
 
            If Flag (Mod 2=1) then
                 Flag=1
                 'val3 = Cells(Target.Row, 12) / Cells(Target.Row, 13)
                 Cells(4, Target.Column).Value = Cells(Target.Row, 12) / Cells(Target.Row, 13)  'val3
            End If
 
End Sub

Ici on fait le test supplémentaire pour éviter l'erreur "dépassement de capacité" au cas où Cells(Target.Row, 13)=0 ou Null

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
Public Flag As Byte
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
 
    Dim val As Double
    Dim val2 As Double
 
    If Target.Count > 1 Or Sh.Name = "donnees" Or Sh.Name = "HD ccharge" Then Exit Sub
 
             Flag=Flag+1
 
            '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
 
            If (Flag Mod 2)=1 then
                 Flag=1
                 If Not IsNull(Cells(Target.Row, 13)) And Cells(Target.Row, 13)<>0 Then
                   Cells(4, Target.Column).Value = Cells(Target.Row, 12) / Cells(Target.Row, 13)
                End If
            End If
 
End Sub

Que veux-tu faire avec ce code?