Condition couleur dans Worksheet_Change

Bonjour,

Dans ma Macro VBA.

Je dois mettre des données en colonne "D" à partir de la ligne 5 jusqu'à la 12.

Une fois une cellule en "D" rempli il faut vérifier sur la même ligne les cellules des colonnes "A", "B", "C" si elles sont vide il faut mettre en fond rouge

Par contre si l'une des cellules n'est pas vide supprimer le fond couleur (rouge)

Si je rempli colonne A,B et pas C, la cellule en C passe en rouge A et B n'ont plus de fond rouge

Cela parait peut être simple pour vous mais pas moyen de trouver , et pour corser je voudrais utiliser via Worksheet_Change

Merci pour votre aide, 3 jours que je cherche et rien trouvé

Bonjour Jefekoi

Et pourquoi ne pas utiliser une simple MFC à part vouloir se faire des nœuds au cerveau

Vous sélectionnez A5:C12 et appliquez la formule

=ET($D5<>"";A5="")

Avec une couleur rouge

A+

J'aurais bien aimé, mais les lignes peuvent changer "à partir de la ligne 5 jusqu'à la 12."

Re,

Et alors

Regardez la MFC que j'ai ajouté à mon précédent post

Bonjour,

Si tu tiens absolument à passer par une macro, en voici une :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim i, i0
For i = 5 To 12 ' Lignes 5 à 12
    If Cells(i, 4) <> "" Then ' D non vide ?
        For i0 = 1 To 3
            ' Examine A B C
            With Cells(i, i0)
                If .Value = "" Then
                    .Interior.Color = 255 ' Vide, fond rouge
                Else
                    .Interior.Pattern = xlNone ' Non vide, remet en Normal
                End If
            End With
        Next i0
    Else
        ' D vide, remet en normal
        Range("A" & i & ":C" & i).Interior.Pattern = xlNone
    End If
Next i

End Sub

A voir si cela te convient. (La demande n'est pas très claire).

Bonne soirée.

Purée c'est énervant en 5 minutes il me donne la solution

Merci beaucoup Eric

Et merci à toi aussi Jexcel

Re

Pas de quoi. La MFC reste cependant la solution la plus simple.

A toi de voir.

Bonne soirée