Robinho8991
XLDnaute Nouveau
Bonjour à tous,
Je suis en train de paramétrer une mise en forme pour des rectangles qui correspondent à la date du jour dans mon fichier principal.
Comme il y a beaucoup de rectangles, je les ai nommé de la manière suivante : "rectangle1", rectangle2" etc.
Le but est que dans ma procédure identifie la date d'aujourd'hui et la stock dans une variable i.
J'utilise ensuite cette formule pour colorer le rectangle correspondant : ActiveWorkbook.Sheets("Feuil1").Shapes("Rectangle" & i).Fill.ForeColor.RGB = RGB(255, 153, 0)
Le problème est que le rectangle n'est pas reconnu et donc rien ne marche
je joins un fichier simplifié pour illustrer le problème
Merci d'avance pour vos réponses
Je suis en train de paramétrer une mise en forme pour des rectangles qui correspondent à la date du jour dans mon fichier principal.
Comme il y a beaucoup de rectangles, je les ai nommé de la manière suivante : "rectangle1", rectangle2" etc.
Le but est que dans ma procédure identifie la date d'aujourd'hui et la stock dans une variable i.
J'utilise ensuite cette formule pour colorer le rectangle correspondant : ActiveWorkbook.Sheets("Feuil1").Shapes("Rectangle" & i).Fill.ForeColor.RGB = RGB(255, 153, 0)
Le problème est que le rectangle n'est pas reconnu et donc rien ne marche
je joins un fichier simplifié pour illustrer le problème
Merci d'avance pour vos réponses