Colorier les 10 dernières cellules non vides d'une colonne

bonjour

j'ai des données dans une colonne A

Je voudrais, à l'aide d'un bouton, colorier - en rouge par exemple - les données des dix dernières cellules de cette colonne A

Pouvez-vous m'aider à créer cette macro ?

d'avance merci

FICHIER JOINT

Bonsoir,

Oui, à condition de nous donner de la matière. C'est à dire un fichier anonymisé avec quelques données dans la colonne A (au moins une vingtaine de lignes)

Bonsoir

Attention la colonne doit contenir au moins 10 lignes

Sub test()
Range("A" & Rows.Count).End(xlUp).Offset(-9, 0).Resize(10, 1).Interior.ColorIndex = 3
End Sub

merci beaucoup

... et desole de n'avoir pas joint le fichier de suite

Encore une petite question à ce sujet

j'ai donc crée un bouton pour colorier mes dix dernières cellules avec :

Sub test()

Range("A" & Rows.Count).End(xlUp).Offset(-9, 0).Resize(10, 1).Interior.ColorIndex = 3

End Sub

mais si j'ajoute des données, par exemple 10 autres lignes et que j'active mon bouton, ça n'efface pas mon précédent coloriage et j'ai donc 20 cellules coloriées

... j'imagine qu'il faut une boucle ?

mais je ne sais pas les faire

.. encore un peu d'aide ?? merci d'avance

Bonsoir,

Rajoute ce code en première ligne :

Range("A:A").Interior.ColorIndex = 0

merci beaucoup Raja

C'est parfait

très bonne soirée

Bonsoir

Et sans bouton

Code Feuil1

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("A:A")) Is Nothing Then
Call test
End If
End Sub

Code Module

Sub test()
Range("A3", [A3].End(xlDown)).Select
Selection.Font.ColorIndex = 0
Range("A" & Rows.Count).End(xlUp).Offset(-9, 0).Resize(10, 1).Font.ColorIndex = 3
Range("A" & Rows.Count).End(xlUp).Select
End Sub

Cordialement

merci beaucoup