Compteur dans une fonction Worksheet_Calculate()

Version imprimable

Bonjour tout le monde ,

Je suis nouvelle sur le forum et j'aimerais voir de l'aide concernant le code suivant qui n'arrête pas de faire planter mon excel à chaque fois que je modifie le contenu de mon fichier excel:
Voici mon code , je pense que c'est la boucle while qui fait ça mais je ne comprends pas ce qui cloche .
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 Private Sub Worksheet_Calculate() v1 = Range("P19").Value v2 = Range("P29").Value v3 = Range("B31").Value Dim counter As Integer Do While counter < 1 If (v1 > 40 Or v2 > 40) Then If v3 = 0 Then counter = counter + 1 MsgBox "Souhaitez-vous ajouter votre temps supplémentaire dans la banque de temps? Si oui, veuillez cocher l'énoncé ci-dessous en jaune." End If End If Loop End Sub
Merci d'avance pour votre aide.

12/09/2013, 19h01
Invité

Bonjour,

La variable 'counter' n'est pas initialisée.

Merci pour ta réponse , c'est vrai que la variable devait être initialisé mais quand je rajoute ça , c'est toujours le même souci :

Code:

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
Private Sub Worksheet_Calculate()
 
v1 = Range("P19").Value
v2 = Range("P29").Value
v3 = Range("B31").Value
 
Dim counter As Integer
counter = 0
 
Do While counter < 1
 
    If (v1 > 40 Or v2 > 40) Then
 
        If v3 = 0 Then
            counter = counter + 1
 
            MsgBox "Souhaitez-vous ajouter votre temps supplémentaire dans la banque de temps? Si oui, veuillez cocher l'énoncé ci-dessous en jaune."
 
        End If
 
    End If
 
Loop
 
End Sub

12/09/2013, 20h09
Marc-L

Bonjour,

c'est normal que cela ne change rien car en fait dès le code de départ,
la variable est bien initialisée car typée Integer donc de facto égale à zéro ‼

L'évènement Worksheet_Calculate est-il vraiment judicieux ?

Commencer à coder dans une procédure normale avant de l'implémenter dans un tel évènement …

Ensuite ce n'est qu'un problème de logique, si V3 n'est pas égale à zéro alors c'est une boucle infinie ‼

Merci aussi d'utiliser l'icône # dédiée au code, c'est plus lisible et donnera l'envie aux habitués du forum de t'aider
tout comme l'indentation aidant aussi à une meilleure lecture du code …

Le plus simple serait d'expliquer littéralement les tenants et les aboutissants.
12/09/2013, 20h15
gFZT82

Bonjour,

Tant que les conditions requises pour que le compteur soit incrémenté ne sont pas vérifiées, le compteur reste à zéro et le programme se mord la queue.

Cordialement.
12/09/2013, 21h15
Invité

Citation:

c'est normal que cela ne change rien car en fait dès le code de départ,
la variable est bien initialisée car typée Integer donc de facto égale à zéro ‼

Oups...