Répondre à la discussion
Affichage des résultats 1 à 3 sur 3

vba excell changement de couleur de la valeur d'une cellule

  1. #1
    frankcity

    vba excell changement de couleur de la valeur d'une cellule

    Bonjour,
    Je souhaiterais que vous m'aidiez a ecrire cette macro, je suis debutant sur vba excell
    J'aimerais ecrire une macro qui fais la soustration sur excell entre la cellule A1 et B1 et porte le resultat dans la cellule C1.
    Si le resultat est superieur a 20, ecrire le resultat en rouge, sinon l'ecrire en bleu
    Voici mon code

    Code:
    Sub Macro1()
        ActiveCell.FormulaR1C1 = "=RC[-2]-RC[-1]"
        If (ActiveCell.FormulaR1C1 = "=RC[-2]-RC[-1]" > 20) Then
        ActiveCell.Font.Color = RGB(255, 0, 0)
        Else: ActiveCell.Font.Color = RGB(0, 0, 255)
        End If
    End Sub
    Merci pour l'aide

    -----

    Dernière modification par JPL ; 19/04/2018 à 13h04. Motif: Ajout de la balise Code (#) pour garder l'indentation

  2. #2
    cherbe

    Re : vba excell changement de couleur de la valeur d'une cellule

    Bonsoir
    Dans le If, cela n'a pas de sens de tester la formule entrée précédemment.
    Il faut tester la valeur de la cellule :
    Code:
    If ActiveCell.Value > 20 Then
    Ensuite, je n'ai jamais vu le caractère 2 points derrière Else ?
    Dernière modification par cherbe ; 22/04/2018 à 21h40.
    Pour avoir de l'argent devant soi, il faut en mettre de côté ! (proverbe lorrain)

  3. #3
    frankcity

    Re : vba excell changement de couleur de la valeur d'une cellule

    Bonsoir Cherbe
    Ça marche bien avec votre correction sur la boucle If

    Le caractère deux points a eté généré automatiquement par Visual Basic

    Merci bien

Discussions similaires

  1. VBA - Souci sur valeur de cellule
    Par Yoruk dans le forum Programmation et langages, Algorithmique
    Réponses: 3
    Dernier message: 06/09/2016, 07h30
  2. EXCEL 2007: Deplacer un objet en fonction de la valeur d'une cellule
    Par sidjila dans le forum Logiciel - Software - Open Source
    Réponses: 1
    Dernier message: 13/01/2013, 10h31
  3. EXCEL : mise en couleur cellule automatique
    Par marc.mcd dans le forum Logiciel - Software - Open Source
    Réponses: 2
    Dernier message: 29/09/2011, 19h15
  4. formule excel - couleur cellule
    Par hhazarell dans le forum Logiciel - Software - Open Source
    Réponses: 1
    Dernier message: 07/08/2009, 20h26
  5. Passer de la valeur d'une résistance au code couleur
    Par Electroniktor dans le forum Électronique
    Réponses: 5
    Dernier message: 12/08/2007, 21h33