Discussion :

[tikam75007]

Hello, hello

est-ce que quelqu'un saurait pourquoi ce code provoque un crash d'excel?

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_Change(ByVal Target As Range)
 
Dim laPlage1 As Range
Dim laPlage2 As Range
Dim laSuperplage As Range
 
 
Set laPlage1 = Range(Cells(1, 1), Cells(5, 1))
Set laPlage2 = Range(Cells(1, 3), Cells(5, 3))
Set laSuperplage = Union(laPlage1, laPlage2)
 
If Not Application.Intersect(Target, laSuperplage) Is Nothing Then
'si l'on change une valeur dans une cellule comprise entre (1,1) et (3,1)
 
Target.Value = "dintin"
 
Else
'si l'on change la valeur d'une cellule ailleurs dans la feuille
MsgBox ("t'as changé ailleurs")
Exit Sub
 
End If
 
End Sub

j'ai droit à un message "aucun debugger jit inscrit n'a été spécifié".

A noter que lorsque l'on remplace la ligne

Code :

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

Target.Value = "dintin"

par, par exemple:

Code :

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

MsgBox ("t'as changé un truc")

hé bien tout marche bien.

Étonnant, non?

[mercatog]

Code :

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

1
2
3
Application.EnableEvents = False
Target.Value = "dintin"
Application.EnableEvents = True

sinon, tu change la valeur de Target
qui appelle la procédure
....etc infiniment

[tikam75007]

Merci de ta réponse et de tes explications claires.

c'est très sympa de ta part.


@+