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 :

ajout de couleur à des cellules


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre confirmé
    Femme Profil pro
    Étudiant
    Inscrit en
    Août 2011
    Messages
    63
    Détails du profil
    Informations personnelles :
    Sexe : Femme
    Localisation : France

    Informations professionnelles :
    Activité : Étudiant
    Secteur : Industrie

    Informations forums :
    Inscription : Août 2011
    Messages : 63
    Par défaut ajout de couleur à des cellules
    Bonjour à vous,

    Voilà j'ai crée un code qui me permet de faire trois calcul qui vont s'afficher dans trois cellules. Jusque là pas de problème. Pour avoir un aspect un peu plus sympa je voudrais bien pouvoir afficher ces cellules en couleur selon les valeurs obtenus. Mettre en rouge quand la valeur est < à 80 en jaune quand 80<valeur<100 et en vert pour >100.

    j'ai fais quelquechose qui m'affichent bien des couleurs mais çà ne fonctionne pas pour le vert. Il m'affiche toujours du jaune même quand il est > à 100 alors que pour le rouge çà marche bien. Auriez vous une idée d'ou cela peut venir?

    Je met le bout de code sur le remplissage en couleur

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    For j = 4 To 6
     
        If Cells(2, j).Value < 80 Then
        Cells(2, j).Interior.ColorIndex = 3
     
        ElseIf 80 < Cells(2, j).Value < 100 Then
        Cells(2, j).Interior.ColorIndex = 6
     
        ElseIf 100 < Cells(2, j).Value Then
        Cells(2, j).Interior.ColorIndex = 4
     
        End If
     
      Next

  2. #2
    Expert confirmé Avatar de jfontaine
    Homme Profil pro
    Contrôleur de Gestion
    Inscrit en
    Juin 2006
    Messages
    4 756
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 51
    Localisation : France, Sarthe (Pays de la Loire)

    Informations professionnelles :
    Activité : Contrôleur de Gestion

    Informations forums :
    Inscription : Juin 2006
    Messages : 4 756
    Par défaut
    Bonjour,

    Une astuce pour éviter le mal de crane des if imbriqués, utilise Select Case.


    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
    For j = 4 To 6
     
        Select Case Cells(2, j).Value
            case < 80 
                   Cells(2, j).Interior.ColorIndex = 3
     
            case 80 to 100
                   Cells(2, j).Interior.ColorIndex = 6
     
            case > 100
                   Cells(2, j).Interior.ColorIndex = 4
     
        End Select
     
      Next
    A noter que cette ligne devait poser problème
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    ElseIf 80 < Cells(2, j).Value < 100 Then
    a écrire plutôt comme cela
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    ElseIf 80 < Cells(2, j).Value  and Cells(2, j).Value< 100 Then

Discussions similaires

  1. [JTable] Couleur des cellules
    Par eighty_three dans le forum Composants
    Réponses: 2
    Dernier message: 20/05/2008, 17h55
  2. Filtre automatique selon couleurs des cellules
    Par stryker973 dans le forum Macros et VBA Excel
    Réponses: 15
    Dernier message: 21/03/2008, 12h29
  3. Tableau et couleur des cellules
    Par DaisyVIP dans le forum ASP.NET
    Réponses: 7
    Dernier message: 08/02/2008, 12h30
  4. couleur des cellules de JTable
    Par adil1251985 dans le forum Composants
    Réponses: 5
    Dernier message: 05/06/2007, 12h31
  5. [D7] Couleur des cellules d'un StringGrid
    Par raoulmania dans le forum Composants VCL
    Réponses: 5
    Dernier message: 15/12/2005, 15h39

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