Je réitère ma demande car je n'ai toujours pas réussi. Voici mon problème:
Dans la colonne F, j'ai une date. Dans la colonne G (sur la même ligne),
j'ai cette date avec 5 ans de plus qui se calcule "automatiquement".
Je voudrais connaitre la formule qui me permettrait à chaque ouverture du
fichier, que si la date dans la colonne G est dépassée de plus de 3 mois, il
me supprime automatiquement le contenu de la cellule F de la même ligne.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Elliac
Bonjour,
Private Sub Workbook_Open() For Each c In Range(Range("G2"), Range("G2").End(xlDown)) If c < DateSerial(Year(Now), Month(Now) - 3, Day(Now)) Then c.Offset(, -1).ClearContents End If Next End Sub
Camille
Bonjour,
Je réitère ma demande car je n'ai toujours pas réussi. Voici mon problème: Dans la colonne F, j'ai une date. Dans la colonne G (sur la même ligne), j'ai cette date avec 5 ans de plus qui se calcule "automatiquement". Je voudrais connaitre la formule qui me permettrait à chaque ouverture du fichier, que si la date dans la colonne G est dépassée de plus de 3 mois, il me supprime automatiquement le contenu de la cellule F de la même ligne.
En vous remerciant par avance. Gwena
Bonjour,
Private Sub Workbook_Open()
For Each c In Range(Range("G2"), Range("G2").End(xlDown))
If c < DateSerial(Year(Now), Month(Now) - 3, Day(Now)) Then
c.Offset(, -1).ClearContents
End If
Next
End Sub
Camille
Bonjour,
Je réitère ma demande car je n'ai toujours pas réussi. Voici mon problème:
Dans la colonne F, j'ai une date. Dans la colonne G (sur la même ligne),
j'ai cette date avec 5 ans de plus qui se calcule "automatiquement".
Je voudrais connaitre la formule qui me permettrait à chaque ouverture du
fichier, que si la date dans la colonne G est dépassée de plus de 3 mois, il
me supprime automatiquement le contenu de la cellule F de la même ligne.
Private Sub Workbook_Open() For Each c In Range(Range("G2"), Range("G2").End(xlDown)) If c < DateSerial(Year(Now), Month(Now) - 3, Day(Now)) Then c.Offset(, -1).ClearContents End If Next End Sub
Camille
Bonjour,
Je réitère ma demande car je n'ai toujours pas réussi. Voici mon problème: Dans la colonne F, j'ai une date. Dans la colonne G (sur la même ligne), j'ai cette date avec 5 ans de plus qui se calcule "automatiquement". Je voudrais connaitre la formule qui me permettrait à chaque ouverture du fichier, que si la date dans la colonne G est dépassée de plus de 3 mois, il me supprime automatiquement le contenu de la cellule F de la même ligne.
