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"
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
1
2 Set Rg_1 = Intersect(Target, Range("M21:M386")) If Not Rg_1 Is Nothing Then ActiveCell.Value = IIf(ActiveCell.Value = "Evt", "", "Evt")
qui ne fonctionne pas !
Code : Sélectionner tout - Visualiser dans une fenêtre à part Set Rg_1 = Intersect(Target, Union(Range("M21:M386"), Range("Y21:Y386")))
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,
Partager