Coloriage lignes en fonction d'une condition

Bonjour,

Dans le tableau en PJ je souhaiterais que les lignes où la colonne Z contient un enregistrement (valeur numérique) devienne verte. Point particulier le tableau est extensible en ligne et en colonne.

Est-ce que c'est possible de créer un code VBA pour exécuter l'action demandée ? Merci.

Cordialement.

Bonsoir.

C'est possible avec la mise en forme conditionnelle. Ci joint un exemple avec des recommandations pour l’extension en colonnes et en lignes.

Cordialement.

Merci c'est effectivement plus simple que je pensais.

Cordialement.

Salut Philippe, Moncef,

pour le plaisir, en VBA,

Private Sub Workbook_Open()
'
Cells(1, Columns.Count) = Cells(1, Columns.Count - 1).End(xlToLeft).Column
'
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
'
iRow = UsedRange.Rows.Count
'
Application.EnableEvents = False
Application.ScreenUpdating = False
'
If Not Application.Intersect(Target, Range("Z3:Z" & iRow)) Is Nothing Then
    iCol = Cells(1, Columns.Count - 1).End(xlToLeft).Column
    sCol = Split(Columns(iCol).Address(ColumnAbsolute:=False), ":")(1)
    Range("A" & Target.Row & ":" & sCol & Target.Row).Interior.Color = IIf(IsNumeric(Cells(26, Target.Row)) = True, RGB(220, 230, 190), xlNone)
End If
'
If Target.Row = 1 Then
    iCol1 = Cells(1, Columns.Count - 1).End(xlToLeft).Column
    If iCol1 <> Cells(1, Columns.Count) Then
        sCol1 = Split(Columns(iCol1).Address(ColumnAbsolute:=False), ":")(1)
        iCol = Cells(1, Columns.Count)
        sCol = Split(Columns(iCol).Address(ColumnAbsolute:=False), ":")(1)
        For x = 3 To iRow
            If Range("A" & x).Interior.Color = RGB(220, 230, 190) Then
                Range("A" & x & ":" & sCol & x).Interior.Color = xlNone
                Range("A" & x & ":" & sCol1 & x).Interior.Color = RGB(220, 230, 190)
            End If
        Next
        Cells(1, Columns.Count) = iCol1
    End If
End If
'
Application.EnableEvents = True
Application.ScreenUpdating = True
'
End Sub

A+

Super comme ça j'aurai le choix et en plus ça le permettra d'étudier un peu le style VBA

Merci.

Salut curulis57

J'ai essayé ton code mais ça ne marche pas. Où je dois le mettre ?

Cordialement.

Bonsoir Philippe,

Bonsoir le forum,

voici, installé aux bons endroits!

A+

Salut curulis57,

Merci d'avoir intégré le code au bon endroit. La ligne devient bien verte si un chiffre est inscrit dans la colonne Z mais ce qui serait bien c'est qu'elle redevienne blanche si on supprime le chiffre. Est-ce que c'est possible ?

Cordialement.

Bonjour Philippe,

petite erreur...

A+

Salut curulis57,

Ta correction ne corrige pas la ligne de vert à blanc si j'enlève la valeur de la colonne Z. Dans l'autre sens là pas de problème.

Cordialement.

Ah? Ici, no problemo!

Ta colonne est-elle bien au format 'Nombre' ?

A+

Oups tu as raison. J'ai dû reprendre ta version non corriger.

Merci.