Bonjour,

J'ai une colonne qui va de la ligne 21 à 386, qui correspond à une année.

L'utilisateur double-clique dans la colonne M pour afficher/masquer "Evt"

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
Set Rg_1 = Intersect(Target, Range("M21:M386"))
If Not Rg_1 Is Nothing Then ActiveCell.Value = IIf(ActiveCell.Value = "Evt", "", "Evt")
Si je fractionne ladite colonne en 12 afin d'afficher chaque mois, ce code ne fonctionne plus et j'ai pensé faire ça :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
Set Rg_1 = Intersect(Target, Union(Range("M21:M386"), Range("Y21:Y386")))
qui ne fonctionne pas !

Si le recours à Union est la solution (ce dont je ne suis pas sûr), l'ajout de 12 Range va rendre le code peu lisible.
y a-t-il un moyen (ou plutôt, quel est le moyen) d'optimiser ce code qui pour l'instant est par ailleurs erroné ?

Nota : mon tableau initial comporte plusieurs colonnes à dupliquer, en plus de la colonne M

En vous remerciant d'avance pour vos lumières,