Coloriser une cellule en fonction d'une autre cellule

Fermé

hanadiii - 19 févr. 2014 à 23:06
hanadiii - 20 févr. 2014 à 11:59

Bonjour,
J'ai dans la colonne D et E des nombres et je veux coloriser les cellules de la colonne B en vert quand D > 3 ET E >3.

J'ai essayé avec le code suivant mais ça ne marche pas :(

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Dim Cell As Range
Dim Cell2 As Range

For Each Cell In Range("D5:D500")
For Each Cell2 In Range("E5:E500")
If Cell.Value > 3 Then
If Cell2.Value > 3 Then
Cell.Offset(0, -2).Interior.ColorIndex = 43
Else
Cell.Offset(0, -2).Interior.ColorIndex = xlNone
End If
End If

Next Cell2
End Sub

A voir également:

Coloriser une cellule en fonction d'une autre cellule
Aller à la ligne dans une cellule excel - Guide
Excel cellule couleur si condition texte - Guide
Fonction si et - Guide
Verrouiller cellule excel - Guide
Diviser une cellule excel en deux horizontalement ✓ - Forum Excel

1 réponse

Réponse 1 / 1

Gyrus Messages postés 3334 Date d'inscription samedi 20 juillet 2013 Statut Membre Dernière intervention 9 décembre 2016 524
Modifié par Gyrus le 20/02/2014 à 00:15

Bonsoir,

Tu peux utiliser une mise en forme conditionnelle avec la formule
=ET($D1>3;$E1>3)
applicable sur $B5:$B500

A+

Gyrus Messages postés 3334 Date d'inscription samedi 20 juillet 2013 Statut Membre Dernière intervention 9 décembre 2016 524
20 févr. 2014 à 00:15

sinon, avec VBA

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Cell As Range
    For Each Cell In Range("D5:D500")
        If Cell.Value > 3 And Cell.Offset(0, 1).Value > 3 Then
            Cell.Offset(0, -2).Interior.ColorIndex = 43
        Else
            Cell.Offset(0, -2).Interior.ColorIndex = xlNone
        End If
    Next Cell
End Sub

A+

hanadiii
Modifié par hanadiii le 20/02/2014 à 12:04

Merciiii beaucoup Gyrus :)

je veux faire la meme chose sous google docs est ce que tu peux me traduire ce code en script google docs et merci encore une fois

Discussions similaires

Remplir une cellule (texte) en fonction d'une autre (texte).

Excel : colorer une cellule sous condition d'une autre ?

Excel:récupérer le contenu d'une cellule en fonction d'une autre

[Excel 2010] Remplir cellule d'après contenu d'une autre

Quel fonction faire en b1 par rapport à a1