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

fouvaut Messages postés 4 Statut Membre -  
 Maurice -
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. Mike-31 Messages postés 18405 Date d'inscription   Statut Contributeur Dernière intervention   5 147
     
    Bonjour,

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

    tu pourrais également écrire
    Selection.Interior.ColorIndex = 35
    0
  2. fouvaut Messages postés 4 Statut Membre
     
    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
  3. Mike-31 Messages postés 18405 Date d'inscription   Statut Contributeur Dernière intervention   5 147
     
    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
  4. fouvaut Messages postés 4 Statut Membre
     
    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
  5. Vous n’avez pas trouvé la réponse que vous recherchez ?

    Posez votre question
  6. Mike-31 Messages postés 18405 Date d'inscription   Statut Contributeur Dernière intervention   5 147
     
    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
  7. fouvaut Messages postés 4 Statut Membre
     
    c'étais ça, j'ai changé de classeur et ça marche.
    Je te remercie

    A+
    Fouvaut
    0
  8. Maurice
     
    Bonjour

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

    A+
    Maurice
    0