gerer les dates

Bonjour,
je veux faire une macro qui comprare les dates sur ma colonne F ajoutées de 3ans avec la date dans ma cellule A3. si la date dans la cellute A3 est superieur à une date dans ma colonne F alors je supprime la ligne correspondante . Le seul probleme je c'est pas géré les date en VBA
Voici mon code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Sub testdate()   ThisWorkbook.Worksheets("feuil2").Activate Dim i As Integer Dim j As Integer For i = 1 To 45 If Range("F" & i + 4).Value > Range("A3").Value + 365.25 * 3 Then Rows(i + 4).Delete End If Next i           End Sub

---

Bonjour,
Pour bien comprendre la gestion des dates dans Excel et en VBA
Utiliser les fonctions Date et Heure sous Excel 2007
Comprendre et gérer les dates sous Excel et en VBA
Les Fonctions Date/Heure
La FAQ Excel sur les dates
Quelques exemples :

Code:

---

1 2 3 4 5 6 7 8

Sub t() Range("K2") = Range("B2") + 7 ' Additionner 7 jours Range("K2") = DateSerial(Year(Range("B2")) + 30, Month(Range("B2")), Day(Range("B2"))) ' Additionner 30 ans ' Comparer Si date en B2 est inférieure à la date du jour If Range("B2") < Date Then Range("L5") = DateSerial(Year(Range("B2")) + 30, Month(Range("B2")), Day(Range("B2"))) End If End Sub

---

voila le code que j'ai essayé mais sa marche pas :
Sub affich()

Code:

---

1 2 3 4 5 6 7 8 9 10

ThisWorkbook.Worksheets("Feuil1").Activate Dim i As Integer For i = 1 To 20 Range("F" & i + 4).Value = DateSerial(Year(Range("F" & i + 4)) + 30, Month(Range("F" & i + 4)), Day(Range("F" & i + 4))) If Range("F" & i + 4).Value < DateSerial(Year(Range("C26")), Month(Range("C26")), Day(Range("C26"))) Then Rows(i).Delete End If Next i   End Sub

---

En vous remerciant d'avance !

Bonjour,
Alors qu'est-ce qui ne marche pas ?
Un bug, si oui quel message d'erreur et à quelle ligne ?
Un résultat non souhaité ?
etc ...
C'est toujours bien d'en dire un peu plus.
J'ai énormément d'intuition mais de la précision c'est mieux surtout en informatique.

Bonjour Corona,
Oui precisément y'a pas de bug mais la macro fait poas ce que j'attends c'est à dire :
je veux faire une macro qui comprare les dates sur ma colonne F ajoutées de 3ans avec la date dans ma cellule A3. si la date dans la cellute A3 est superieur à une date dans ma colonne F alors je supprime la ligne correspondante .

Bonjour,

Alors
premièrement le code que tu as écrit n'ajoute pas 3 ans mais 30 ans.
deuxièmement tu parles de cellule A3 et moi je vois dans ton code cellule C26
Chercher l'erreur

Bonjour ,
Oui je sais sur cette macro j'ajoute 30 au lieu de 3 et C3 joue le role de A3 .
Donc c'est pas une erreur par contre lorsque j'execute la macro rien ne se passe .

Bonjour,

Citation:

---

Oui je sais sur cette macro j'ajoute 30 au lieu de 3 et C3 joue le role de A3 .

---

Or dans ton code c'est C26
Autre chose dans ta boucle tu compares la i+4ème ligne et supprime la ième.

Citation:

---

Envoyé par carden752

Bonjour,


Or dans ton code c'est C26
Autre chose dans ta boucle tu compares la i+4ème ligne et supprime la ième.

---

Oui c'es juste parceque j'ai changer de fichier et les cellules ont changé de places du cou le code que j'ai posté est adapté à ces cellules et tu as bien raison c'est C26 qui joue le role de A3 et oui effectivement lorsque j'ajoute 30 ans à la date

Code:

---

("F" & i + 4).Value

---

et je le compare à la date dans la cellule C26 et qu'elle est plus petite je supprime la ligne .
Mais je comprends pas pourquoi la macro marche pas .