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.
Bonsoir.
Dans le module de l'objet Worksheet représentant la feuille :
VB:
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
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.