IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Macros et VBA Excel Discussion :

Utilisation des couleurs dans une macro excel


Sujet :

Macros et VBA Excel

  1. #1
    Membre averti
    Homme Profil pro
    Retraité
    Inscrit en
    Février 2015
    Messages
    41
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 73
    Localisation : France, Essonne (Île de France)

    Informations professionnelles :
    Activité : Retraité

    Informations forums :
    Inscription : Février 2015
    Messages : 41
    Par défaut Utilisation des couleurs dans une macro excel
    Bonjour
    j'ai essayé de coloriser par une macro excel les cellules de mon tableau or il y a une différence de couleur suivant que j'utilise la fonction rgb(r,g,b) ou directement le code hexa.
    exemple: Selection.Interior.Color = &Hfff2b0 est différent de Selection.Interior.Color = RGB(255,242,176) alors que la décomposition de fff2b0 donne bien en décimal 255,242,176.
    Il semblerait que Selection.Interior.Color = &Hfff2b0 inverse les valeurs de Rouge et Bleu.
    Si quelqu'un a une explication, merci d'avance
    JD

  2. #2
    Expert confirmé
    Homme Profil pro
    Inscrit en
    Août 2010
    Messages
    3 453
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations forums :
    Inscription : Août 2010
    Messages : 3 453
    Par défaut
    Bonjour,

    Tu n'aurais pas inversé le rouge et le bleu ?
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
     
    Sub Test()
     
        Dim Tbl() As Long
        Dim Couleur As Long
        Dim Rouge As Integer
        Dim Vert As Integer
        Dim Bleu As Integer
     
        Couleur = &HFFF2B0
     
        Rouge = Int(Couleur Mod 256)
        Vert = Int((Couleur Mod 65536) / 256)
        Bleu = Int(Couleur / 65536)
     
        Debug.Print "Rouge : " & Rouge
        Debug.Print "Vert : " & Vert
        Debug.Print "Bleu : " & Bleu
     
        Range("C10").Interior.Color = Couleur
        Range("C11").Interior.Color = RGB(Rouge, Vert, Bleu)
     
    End Sub

  3. #3
    Membre averti
    Homme Profil pro
    Retraité
    Inscrit en
    Février 2015
    Messages
    41
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 73
    Localisation : France, Essonne (Île de France)

    Informations professionnelles :
    Activité : Retraité

    Informations forums :
    Inscription : Février 2015
    Messages : 41
    Par défaut
    Bonjour merci de cette réponse. je lis &HFFF2B0 de gauche à droite donc pour moi bleu=Int(Couleur Mod 256),...Ce doit être çà l'erreur, mais je ne l'explique toujours pas.

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. [XL-2003] Comment utiliser les fonctions ESSBASE dans une macro excel ?
    Par kharon_rp dans le forum Macros et VBA Excel
    Réponses: 1
    Dernier message: 08/04/2010, 14h17
  2. Problème de lecture des cellules dans une feuille Excel
    Par wangjun dans le forum Macros et VBA Excel
    Réponses: 3
    Dernier message: 08/10/2006, 09h35
  3. [JSP] Utilisation des Generics dans une scriptlet
    Par trochv dans le forum Servlets/JSP
    Réponses: 3
    Dernier message: 13/06/2006, 14h23
  4. utilisation des panel dans une fenetre Win32
    Par ksoft dans le forum MFC
    Réponses: 1
    Dernier message: 02/05/2006, 21h45
  5. pb dans une macro excel VB
    Par syl221 dans le forum Macros et VBA Excel
    Réponses: 6
    Dernier message: 20/10/2005, 17h29

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo