Private Sub Worksheet_Change qui boucle

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:

---

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

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:

---

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:

---

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 :plusser: pour chaque message ayant aidé puis sur :resolu: pour clore cette discussion …

merci !

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

Code:

---

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

---

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

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)