Discussion :

[erlerwade]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Philippe Tulliez]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[erlerwade]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 !

[Philippe Tulliez]

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.

[erlerwade]

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 .

[Philippe Tulliez]

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

[erlerwade]

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 .

[carden752]

Bonjour,

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.

[erlerwade]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

("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 .