Discussion :

[cezanne16]

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 :

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
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.

[Invité]

Bonjour,

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

[cezanne16]

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 :

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
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

[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.

[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.

[Invité]

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...