XL 2016 fonctions vba dates

TooFatBoy

XLDnaute Barbatruc

• 13 Avril 2023

• #2

Bonjour,

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

 

Vote positif 0 Vote négatif

Y

YOUYOU25

XLDnaute Junior

• 13 Avril 2023

• #3

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

 

Vote positif 0 Vote négatif

TooFatBoy

XLDnaute Barbatruc

• 13 Avril 2023

• #4

OK. Je comprends. 👍

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 13 Avril 2023

• #5

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

 

Vote positif 1 Vote négatif

Y

YOUYOU25

XLDnaute Junior

• 14 Avril 2023

• #6

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

 

Dernière édition: 14 Avril 2023

Vote positif 0 Vote négatif