Médiaforma

VBA Excel – Changer la couleur de certaines cellules en fonction de leur valeur

Partagez cet article sur vos réseaux

Cet article va vous montrer comment changer la couleur de certaines cellules en fonction de leur valeur. Nous allons partir de la feuille suivante :

A titre d’exemple, nous allons parcourir les cellules de la colonne G. Lorsque la valeur d’une de ces cellules sera supérieure ou égale à 10.5, la ligne correspondante sera colorée en orange. Dans le cas contraire, la ligne correspondante sera colorée en vert.

Voici le code utilisé :

Dim i As Integer

For i = 2 To 9

  If Cells(i, 7) >= 10.5 Then

    Range(Cells(i, 1), Cells(i, 7)).Interior.Color = RGB(255, 128, 128)

  Else

    Range(Cells(i, 1), Cells(i, 7)).Interior.Color = RGB(128, 255, 128)

  End If

Next i

Une boucle parcourt les cellules de la plage G2:G9. Si la valeur contenue dans une de ces cellules est supérieure ou égale à 10.5 :

For i = 2 To 9

  If Cells(i, 7) >= 10.5 Then

La plage comprise entre les colonnes A et G de la ligne concernée est colorée en orange :

Range(Cells(i, 1), Cells(i, 7)).Interior.Color = RGB(255, 128, 128)

Dans le cas contraire, cette même plage est colorée en vert :

Else

  Range(Cells(i, 1), Cells(i, 7)).Interior.Color = RGB(128, 255, 128)

Voici le résultat :

 
Commentaires

QUEL EST LA PROCEDURE UTILISER SUB OU FUNCTION

Bonjour Messieurs,

Quel est le Code pour récupérer les valeurs RGB de la Couleur d’une Cellule ?

Merci.

Bonjour,
HELP I NEED SOMEBODY

Et si dans la colonne G il y avait des noms de clients (figurant sous CLIENT_NAME dans un autre onglet, du même fichier,
et que l’on souhaite que :
* si la cellule de la colonne G, contient EXACTEMENT l’un des noms de la liste CLIENT_NAME , alors que la ligne soit verte,
* si la cellule de la colonne G, contient partiellement l’un des noms de la liste CLIENT_NAME , alors que la ligne soit jaune,
* si la cellule de la colonne G, NE contient PAS l’un des noms de la liste CLIENT_NAME , alors que la ligne soit rouge.

Comment s’écrirait le code ?

J’ai nommé la liste de client CLIENT_NAME, dans l’onglet PTF,
mais je ne m’en sort pas, ni avec les formules excel, ni avec la mise en forme conditionnelle. Grrr

Si vous pouvez m’aider je suis preneuse, et par avance, vous en remercie grandement.
Alilu

Laissez un commentaire