Tout est dit dans le titre ;-) Pour l'instant, je me sers de cette ligne de code pour changer les couleurs dans une plage de cellules : couleurAChanger = RGB(255, 0, 0) Question ? Est il possible de remplacer dans cette ligne, la fin : Par la cellule Q1 de l'onglet PLANNIF dans laquelle j'ai déjà indiqué " RGB(255,0,0) ? Cela me permettrai de modifier la couleur sans devoir modifier la macro ! Merci par avance Bien à vous...

Incorporer la valeur d'une cellule à une macro

Bonjour à tous,

Tout est dit dans le titre ;-)

Pour l'instant, je me sers de cette ligne de code pour changer les couleurs dans une plage de cellules :

couleurAChanger = RGB(255, 0, 0)

Question ?

Est il possible de remplacer dans cette ligne, la fin :

RGB(255, 0, 0)

Par la cellule Q1 de l'onglet PLANNIF dans laquelle j'ai déjà indiqué " RGB(255,0,0) ?

Cela me permettrai de modifier la couleur sans devoir modifier la macro !

Merci par avance

Bien à vous

Bonjour,

Ceci:

couleurAChanger = Sheets("PLANNIF").Range("Q1").Interior.Color

Cdlt

Bonjour Arturo83

C'est gentil merci beaucoup, mais ça ne fonctionne pas ;-)

Du coup j'ai sorti ma feuille du classeur pour la mettre en ligne, ce sera plus simple je pense !

Attention, dans votre demande initiale vous avez écrit: "PLANNIF" or dans votre fichier , c'est "PLANIF". l'avez-vous vu?

En fait si ça fonctionne avec un seul "N" à l'onglet PLANIF désolé

couleurAChanger = Sheets("PLANIF").Range("Q1").Interior.Color

Je mets le fichier rectifié si ça peut servir à quelqu'un d'autre ;-)

Mer encore Arturo83

Non, je n'avais pas fait attention, d'où l'erreur, mais c'est grâce à vous que je l'ai trouvée MERCI beaucoup je ne comprenais plus rien :-(

Excellente journée

Bien à vous et à bientôt