Mettre une couleur a l'interieur d'une selection de cellules

Bonjour,
Etant novice en VBA, j'essaie d'apprendre, pouvez-vous me dire pourquoi le code suivant ne fonctionne pas:

Selection.Interior.Color = RGB(174, 240, 194)

Merci d'avance

7 réponses

  1. Bonjour,

    ton code est bon
    Selection.Interior.Color = RGB(174, 240, 194)

    tu pourrais également écrire
    Selection.Interior.ColorIndex = 35
    0
    1. Merci, mais lorsque je l'exécute il me signale une erreur :
      Erreur de compilation :
      fonction ou variable attendue

      Je ne comprend pas trop ...
      0
      1. Re,

        ce n'est pas cette ligne de code qui est en erreur, en tête de code tu dois avoir Option Explicit
        désactive le pour tester en mettant une apostrophe devant
        'Option Explicit

        teste le code, si le code fonctionne il faudra réactiver l'Option Explicit et voir la ligne en erreur
        A+
        Mike-31

        Une période d'échec est un moment rêvé pour semer les graines du savoir.
        0
        1. Donc ce code seul, ne peut pas fonctionner :
          Sub couleurs()

          selection.Interior.Color = RGB(174, 240, 194)

          End Sub

          Je l'ai trouvé dans un cours et comme je n'arrive pas à le faire fonctionner j'essaie de comprendre.
          désolé...
          0
          1. Re,

            Ce code placé dans un module fonctionne parfaitement, mais peut être as tu la feuille protégée, mais le code par lui même est parfaitement correct

            Sub couleurs()
            selection.Interior.Color = RGB(174, 240, 194)
            End Sub

            0
            1. c'étais ça, j'ai changé de classeur et ça marche.
              Je te remercie

              A+
              Fouvaut
              0
              1. Bonjour

                il faut sélectionner le Range
                Sub testCouleur()
                Range("B2").Interior.ColorIndex = 35
                End Sub
                

                A+
                Maurice
                0