Discussion :

[jauffray.delteil]

bonjour,

je viens de taper le code ci-dessous, mais quand je change la valeur de "G18" la macro boucle et ferme mon classeur Excel.

qu'ais je mal saisi ? sachant que ce code fonctionne très bien en "Private Sub Worksheet_BeforeDoubleClick"

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
Private Sub Worksheet_Change(ByVal Target As Range)
 
If Target = Range("G18") Then
 
Dim chimney As String
 
chimney = 0
 
axeOY:
    chimney = chimney + 1
    ActiveSheet.Range("D25").FormulaR1C1 = chimney
 
    If ActiveSheet.Range("G25").Value < ActiveSheet.Range("G12").Value Then GoTo axeOY
 
chimney = chimney - 1
ActiveSheet.Range("D25").FormulaR1C1 = chimney
 
End If
 
End Sub

d'avance merci

[Marc-L]

Bonjour.

Supprimer la ligne n°5 car c'est une aberration vu la suite du code, sinon changer au moins le type de la variable !
Mieux vaut ne pas déclarer un type de variable qu'en déclarer un mauvais …


Il y a aussi une grave erreur dans le test de la ligne 3 pouvant être complété ainsi :

Code :

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

If Target.Value = Range("G18").Value Then

car un objet Range sans propriété correspond bien en l'occurence à sa valeur et non pas à son adresse !
Donc s'il est bien question de comparer l'adresse de la cellule modifiée, remplacer si dessus chaque .Value par .Address …
Sinon n'importe quelle cellule modifiée ayant la même valeur que G18 passera le test !


Concernant la problématique exposée, c'est juste une classique erreur de débutant :

l'évènement Worksheet_Change est déclenché dès qu'une cellule est modifiée; hors dans le code même de cet évènement
d'autres cellules sont aussi modifiées provoquant donc une NES (1) puis la fermeture d'Excel par saturation de mémoire …

La solution consiste à désactiver les évènements par exemple en ligne n°6 :

Code :

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

Application.EnableEvents = False

sans oublier de les remettre à True avant la sortie du bloc If, par exemple en ligne n°17 …


(1) : Never Ending Story (une histoire sans fin …)
_______________________________________________________________________________

Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion …

[jauffray.delteil]

merci !

j'ai juste eu à changer la ligne 3 comme indiqué

Code :

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

If Target.Address = Range("G18").Address Then

j'en ai profité pour suivre ton conseil en retirant la déclaration de variable.

[Marc-L]

Exact !

Mais désactiver les évènements fait aussi gagner du temps en empêchant les appels récursifs déclenchés
lors des modifications des autres cellules au sein même du code de l'évènement …

Pour preuve, sans désactiver les évènements, mettre un point d'arrêt sur la ligne n°3 puis modifier la cellule G18
puis suivre le code en mode pas à pas via la touche F8, c'est édifiant !

________________________________________________
Quelle époque terrible que celle où des idiots dirigent des aveugles. (Shakespeare)