VBA - modifier la couleur de police de certaines cellules

Bonjour,

Je désire mettre en place un bouton qui me permet de modifier la couleur d'écriture de certaines cellules.

Sur le bout de code ci dessous, j'obtiens une "erreur 400". Lorsque je diminue de le nombre de cellule à modifier le bouton fonctionne. Y a t il un problème de taille ? et il ne me semble pas manquer de , ...

Merci d'avance pour vos réponses.

Sub couleurs()
'Couleur du texte pour imprimer
Range("A7,A15,A23,A31,A39,A47,A55,A63,A90,A98,A106,A114,A122,A130,A138,A146,A173,A181,A189,A197,A205,A213,A221,A229,A256,A264,A272,A280,A288,A296,A304,A312,A339,A347,A355,A363,A371,A379,A387,A395,A422,A430,A438,A446,A454,A462,A470,A478,A505,A513,A521,A529,A537,A545,A553,A561,A588,A596,A604,A612,A620,A628,A636,A644,A671,A679,A687,A695,A703,A711,A719,A727,A754,A762,A770,A778,A786,A794,A802,A810,A837,A845,A853,A861,A869,A877,A885,A893,A920,A928,A936,A944,A952,A960,A968,A976").Font.Color = RGB(215, 230, 253)
    Range("A11,A19,A27,A35,A43,A51,A59,A67,A94,A102,A110,A118,A126,A134,A142,A150,A177,A185,A193,A201,A209,A217,A225,A233,A260,A268,A276,A284,A292,A300,A308,A316,A343,A351,A359,A367,A375,A383,A391,A399,A426,A434,A442,A450,A458,A466,A474,A482,A509,A517,A525,A533,A541,A549,A557,A565,A592,A600,A608,A616,A624,A632,A640,A648,A675,A683,A691,A699,A707,A715,A723,A731,A758,A766,A774,A782,A790,A798,A806,A814,A841,A849,A857,A865,A873,A881,A889,A897,A924,A932,A940,A948,A956,A964,A972,A980,").Font.Color = RGB(255, 255, 255)
End Sub

Bonjour

Il semblerait que ce soit limité, en effet, essaie cela :

Sub couleurs()
    'Couleur du texte pour imprimer
    Range("A7,A15,A23,A31,A39,A47,A55,A63,A90,A98,A106,A114,A122,A130,A138,A146,A173,A181,A189,A197,A205,A213,A221,A229,A256,A264,A272,A280,A288,A296,A304,A312,A339,A347,A355,A363,A371,A379,A387,A395,A422,A430,A438,A446,A454,A462,A470,A478,A505,A513,A521,A529,A537").Font.Color = RGB(215, 230, 253)
    Range("A545,A553,A561,A588,A596,A604,A612,A620,A628,A636,A644,A671,A679,A687,A695,A703,A711,A719,A727,A754,A762,A770,A778,A786,A794,A802,A810,A837,A845,A853,A861,A869,A877,A885,A893,A920,A928,A936,A944,A952,A960,A968,A976").Font.Color = RGB(215, 230, 253)
    Range("A11,A19,A27,A35,A43,A51,A59,A67,A94,A102,A110,A118,A126,A134,A142,A150,A177,A185,A193,A201,A209,A217,A225,A233,A260,A268,A276,A284,A292,A300,A308,A316,A343,A351,A359,A367,A375,A383,A391,A399,A426,A434,A442,A450,A458,A466,A474,A482,A509,A517,A525,A533,A541").Font.Color = RGB(255, 255, 255)
    Range("A549,A557,A565,A592,A600,A608,A616,A624,A632,A640,A648,A675,A683,A691,A699,A707,A715,A723,A731,A758,A766,A774,A782,A790,A798,A806,A814,A841,A849,A857,A865,A873,A881,A889,A897,A924,A932,A940,A948,A956,A964,A972,A980").Font.Color = RGB(255, 255, 255)
End Sub

Bon courage

( tu avais en plus une virgule en trop sur ta 2ème ligne à la fin)

Bye

Merci Patty !

Bien cordialement,

DCso

Bonjour DTso, Patty,

un peu de logique et une bouclette...

'
Application.ScreenUpdating = False
'
For x = 0 To 11
    For y = 0 To 7
        Cells((7 + (x * 83)) + (y * 8), 1).Font.Color = RGB(215, 230, 253)
        Cells(11 + (x * 83) + (y * 8), 1).Font.Color = RGB(255, 255, 255)
    Next
Next
'
Application.ScreenUpdating = True
'

A+

Merci curulis57 .

Je ne suis pas un pro macro...

C'est parfait.