Enlever couleur de fond après dernière ligne remplie

salut

J'ai une macro qui colorie en jaune le fond des cellules de la colonne A jusqu'à la dernière ligne remplie (selon colonne A).

voici la macro:

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim KeyCells As Range
    Dim LRowA As String

    Set KeyCells = Range("a5:a100")
         If Not Intersect(KeyCells, Target) Is Nothing Then

LRowA = [A101].End(xlUp).address
Range("A:B").Interior.ColorIndex = xlNone
Range("A5:" & LRowA).Interior.ColorIndex = 19

End If

End Sub

Je cherche une macro qui fasse le contraire:

qui enlève la couleur de fond après la dernière ligne remplie selon colonne A (jusqu'à la ligne 100 inclue)

Qui sait comment faire SVP ?

Bonjour,

Suffit de ne pas ajouter la couleur ...

Private Sub Worksheet_Change(ByVal Target As Range)
Dim KeyCells As Range
Dim LRowA As String
Set KeyCells = Range("a5:a100")
  If Not Intersect(KeyCells, Target) Is Nothing Then
      LRowA = [A101].End(xlUp).Address
      Range("A:B").Interior.ColorIndex = xlNone
      ' Apostrophe permet d'exclure l'instruction du code qui devient un commentaire ....
      'Range("A5:" & LRowA).Interior.ColorIndex = 19
  End If
End Sub

En espèrant que cela t'aide

j'ai essayé mais ça ne fonctionne pas

quand j'efface une cellule, la macro n'enlève pas la couleur..

ericw a écrit :

j'ai essayé mais ça ne fonctionne pas

quand j'efface une cellule, la macro n'enlève pas la couleur..

Bonjour,

Malheureusement ... ' çà ne fonctionne pas ' ne permet pas de poser un diagniostic ...

Cela fait écho à comment ' insérer une lettre ' ... !!!

La macro ne fait rien. Pas de message d'erreur mais egalement aucune action...

voici la macro que j'ai mise:

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim KeyCells As Range
    Dim LRowA As String

    Set KeyCells = Range("a5:a100")
         If Not Intersect(KeyCells, Target) Is Nothing Then

LRowA = [A101].End(xlUp).Address
Range("A:B").Interior.ColorIndex = xlNone
Range("A5:" & LRowA).Interior.ColorIndex = 19

End If

Set KeyCells = Range("a5:a100")
  If Not Intersect(KeyCells, Target) Is Nothing Then
      LRowA = [A101].End(xlUp).Address
      Range("A:B").Interior.ColorIndex = xlNone

  End If

End Sub

Bonjour,

Je peux facilement comprendre que tu veuilles une solution à ton problème ...

J'avoue avoir plus de difficultés à constater que tu ne cherches pas à comprendre ...

ne serait-ce que dans les grandes lignes ... les instructions de tes propres macros évènementielles ...

A mon humble avis, tu devrais te rabattre sur des macros standard ...