Discussion :

[lucazzo]

Bonjour,

Est-il possible de détecter un changement sur une plage de cellule ??
Exemple :
J'ai renomé mes cellules B36 à I40 --> Plage1
J'aimerais qu'il m'affiche un MsgBox à chaque fois qu'il y a une modification dans cette plage ou tout simplement dès qu'il y a un changement dans ces cellules là.
Merci pour votre aide.

[casefayere]

Bonjour,
un truc tout bète qui marche mais on doit pouvoir faire mieux

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Worksheet_Change(ByVal Target As Range)
Dim y As Integer, x As Integer
For y = 2 To 9
For x = 36 To 40
If Target.Address = Cells(x, y).Address Then
 
    MsgBox "la plage a changé"
 
End If
Next x
Next y
 
End Sub

[fring]

Bonjour,

Il y a plus simple que de passer par 2 boucles imbriquées

Code :

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

1
2
3
4
5
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("B36:I40")) Is Nothing Then
    MsgBox "coucou"
End If
End Sub

[casefayere]

Bonjour fring,
encore une propo que je vais me garder, à tout hazard

Bonne journée

[lucazzo]

La... vous avez cartonné !!!
Vous m'avez bien aidé !!!

Merci beaucoup et bonne journée.. et désolé pour la question basique !!