Discussion :

[man_coef]

Bonjour à tous!

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 :

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

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.

[spitnolan]

Bonjour,

Si bien compris, ici une solution tu trouveras.

Cordialement

[Gorfael]

Salut man_coef

Code :

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

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+