Couleur ligne SANS MFC

**Un Internaute** · 13/03/2019, 11h15

Bonjour le forum
j'ai posté sur 2 forums que 2 réponses et pas concluantes
Dans fichier joint la ligne 18 est en couleur c'est ce que je veux mais demain matin elle sera toujours de même couleur or c'est ce que je ne veux pas.
Je voudrais si c'est possible qu'elle soit avec les couleurs des lignes au-dessus et lorsque je vais taper 3 ou du texte la ligne 19 passera en couleur 17.
Ne pas toucher à la macro DerniereLigne
Ça se passe dans ThisWorkbook je pense.
Cordialement

**Algoplus** · 13/03/2019, 11h47

Bonjour,

il aurait été bien de préciser les réponses déjà reçues ici ou là. Cela éviterait de se creuser le neurone pour vous proposer une solution qui ne convient pas.

A+

**Un Internaute** · 13/03/2019, 11h56

Envoyé par Algoplus

Bonjour,

il aurait été bien de préciser les réponses déjà reçues ici ou là. Cela éviterait de se creuser le neurone pour vous proposer une solution qui ne convient pas.

A+

Bonjour Algoplus
Une réponse c'était de mettre en MFC
L'autre d'ajouter une ligne dans la macro mais ça n'a rien changé
Cordialement

**MarcelG** · 13/03/2019, 12h07

Bonjour,

Si j'ai bien tout compris.
Tu peux utiliser l'évènement Change affecté à la feuille en question.

Code à adapter (éventuellement au niveau des adresses, lignes...)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Option Explicit
 
Private Sub Worksheet_Change(ByVal Target As Range)
 
Const laligne As Byte = 18
 
Dim dercol As Byte
 
With Worksheets("Feuil2")
        dercol = .Cells(1, .Columns.Count).End(xlToLeft).Column
        If Intersect(.Rows(laligne), Target) Is Nothing Then _
                Exit Sub
        With .Range("A18", .Cells(18, dercol))
                .Interior.Color = .Offset(-1, 0).Interior.Color
                If Target.Value = 3 Or Target.Value = 19 Then .Offset(1, 0).Interior.Color = .Offset(-1, 0).Interior.Color
        End With
End With
 
End Sub