XL 2016 fonctions vba dates

[YOUYOU25]

Bonjour à tous,

Je suis à la recherche d'une programmation vba si date dans une cellule de la colonne m plus 365 jours est supérieure ou égal à aujourd'hui écrire à recycler dans la cellule de la colonne O et surtout que le fonctionnement soit automatique si je change la date en colonne m.

Merci beaucoup

 

[TooFatBoy]

Bonjour,

Pourquoi utiliser VBA ? Une formule ne peut-elle faire l'affaire ?

 

[YOUYOU25]

Bonsoir toofatboy,

Oui bien sur cela fonctionne trés bien mais je m'intéresse aux fonctions VBA que j'aimerais découvrir et appliquer !

Merci à vous

 

[TooFatBoy]

OK. Je comprends.

 

[Dranreb]

Bonsoir.
Dans le module de l'objet Worksheet représentant la feuille :

Private Sub Worksheet_Change(ByVal Target As Range)
   If Target.CountLarge > 1 Or Target.Column <> 13 Then Exit Sub
   If Target.Value + 365 >= Date Then Target.Offset(, 2).Value = "À recycler"
   End Sub

 

[YOUYOU25]

bonjour dranreb super merci beaucoup cela fonctionne très bien en tapant une date mais sur un fichier ou les dates sont déjà remplies y a t il possibilité de modifier le code pour que toutes les cellules de la colonne 13 soit prises en compte et ainsi remplir a recycler dans la colonne 15 automatiquement.

Merci et bonne journée