Bouton, date et cellule en subrbrillance

Bonjour à tous :)

J'aimerais insérer dans mon fichier excel un bouton qui à chaque clique me met en surbrillance les cellules avec des dates antérieures ou égales à la date du jour.

L'idée et de savoir chaque jour en cliquant sur le bouton les factures que j'ai à payer ainsi que celles où je suis en retard de paiement.

Ci-dessous mon fichier d'exemple :

D'avance merci à vous.

Cordialement,

Bonjour Tcheva, bonjour le forum,

En pièce jointe ton fichier modifié avec le code ci-dessous :

Private Sub CommandButton1_Click()
Dim TV As Variant 'déclare la variable TV (Tableau des Valeurs)
Dim I As Integer 'déclare la variable I (Incréments)
Dim DEF As Date 'déclare la variable DEF (Date Echéance de la Facture))

TV = Me.Range("A1").CurrentRegion ' définit le tableau des valeurs TV
Me.Rows(3 & ":" & Application.Rows.Count).Interior.ColorIndex = xlNone 'supprime la couleur verte de toutes les lignes
For I = 3 To UBound(TV, 1) 'boucle sur toutes lignes I du tableau des vqleurs TV (en partant de la 3ème)
    DEF = DateSerial(Year(TV(I, 5)), Month(TV(I, 5)), Day(TV(I, 5))) 'définit la date DEF
    If DEF <= Date Then Me.Cells(I, 1).Resize(1, 6).Interior.ColorIndex = 4 'si la date DEF est inférieure ou égale à la date du jour, colore la ligne en vert
Next I ' prochaine ligne de l boucle
End Sub

Le fichier :

Merci beaucoup :)

Par contre chez moi impossible de cliquer sur le bouton

PS : j'ai office pour macbook

Bien cordialement,

Bonjour toutes et tous

merci et coucou à ThauThème ^^

@Tcheva à tester

c'est à cause des ActiveX, Excel pour Mac ne prend pas les ActiveX

ci-joint le même code de Thauthème mais, le bouton simple

Note: pensez à modifier votre profil, pour ajouter MAC 2019 -;)

crdlt,

André

Excellent merci bcp :)

Yes je vais le mettre à jour.

Cordialement,

Mathieu