Lancer une procédure avec "Worksheet_Change" sur une sélection multiple

Bonjour à tous! :D

Voici un problème que j'ai rencontré plusieurs fois et que je ne sais pas résoudre.


DESCRIPTION :

Il s'agit d'une macro évenementielle. Si je supprime la valeur d'une case, j'exécute une procédure.

Imaginons que cette macro s'applique entre les cases A1 et D1. Vous avez bien compris que si je supprime la valeur de B1 uniquement, ou de D1 uniquement par exemple, la procédure s'exécutera.

Pour se faire, j'utilise la méthode :

Code:

---

Private Sub Worksheet_Change(ByVal Tgt As Range)

---

contenue dans la feuille en scannant l'adresse de la cellule qui vient d'être modifiée. Si cette adresse est dans la plage que je souhaite, je fais exécuter la procédure.


PROBLEME :
Maintenant imaginons que l'utilisateur du fichier veuille supprimer en un coup les valeurs contenues dans les cases A1, B1 et D1 par exemple. Il ferra donc une sélection multiple et dans ce cas là, la procédure ne sera pas effectuée puisque la méthode "Worksheet_Change" verra un groupe de cellule et non une cellule en particulier.


QUESTION :
Avez-vous des idées pour ne pas avoir ce problème?


Je vous remercie d'avance! ;-) Bonne journée.

Manu.

Bonjour,

Si bien compris, ici une solution tu trouveras.

Cordialement

Salut man_coef

Code:

---

1 2 3 4 5 6 7 8 9

Private Sub Worksheet_Change(ByVal Target As Range) Dim Cel As Range Dim Plg As Range If Intersect(Target, [A1:D1]) Is Nothing Then Exit Sub Set Plg = Intersect(Target, [A1:D1]) For Each Cel In Plg 'traitement des cellules une à une Next Cel End Sub

---

Permet de traiter toutes cellules de la plage A1 à D1 qui a subit une modification, même en multi-sélection, Copier/Coller, ou effacement
A+