comparaison de date avec VB6

K

kllmoon

XLDnaute Occasionnel

• 10 Avril 2009

• #2

Re : comparaison de date avec VB6

Code:

Sub suppression()
For n = Sheets("Feuil1").Range("D65536").End(xlUp).Row To 4 Step -1
  If Date - Sheets("Feuil1").Range("D" & n) > 180 Then Sheets("Feuil1").Range("D" & n).Delete Shift:=xlUp
Next n
End Sub

Bonjour fred, Jean-Pierre m'avait fournit cette macro losque j'avais essentiellement la même question que toi. Si tu cherches uniquement pour une cellule utilise le code suivant en remplaçant A1 pae ce que tu veux.

Code:

If Date - Sheets("Feuil1").Range("A1") > 180 Then 
msgbox("plus de 6 mois")
else
exit sub

Sinon, tu peux utiliser la formule matricielle en y changeant les informations pertinentes et l'action de supprimer la ligne pour ce que tu veux.

 

Vote positif 0 Vote négatif

F

fred43

XLDnaute Nouveau

• 10 Avril 2009

• #3

Re : comparaison de date avec VB6

j'essaye ca, merci

 

Vote positif 0 Vote négatif

F

fred43

XLDnaute Nouveau

• 10 Avril 2009

• #4

Re : comparaison de date avec VB6

ca marche pas, j'ai une date de qui est du 05/04/09, et il m'indique qu'elle a plus de 6 mois

Code:

        If Date - Cells(ligne, 15) > 180 Then
            MsgBox ("plus de 6 mois")
        Else

 

Vote positif 0 Vote négatif

K

kllmoon

XLDnaute Occasionnel

• 10 Avril 2009

• #5

Re : comparaison de date avec VB6

Change ton format date pour afficher en français 2009-04-15 et non en anglais. Sinon, met ton fichier en pièce jointe et je regarde.

 

Vote positif 0 Vote négatif

F

fred43

XLDnaute Nouveau

• 10 Avril 2009

• #6

Re : comparaison de date avec VB6

Tu fais commen pour le passé en francais?

 

Vote positif 0 Vote négatif

K

kllmoon

XLDnaute Occasionnel

• 10 Avril 2009

• #7

Re : comparaison de date avec VB6

Format > cells puis sélectionne le format approprié

 

Vote positif 0 Vote négatif

jeanpierre

Nous a quitté

Repose en paix

• 10 Avril 2009

• #8

Re : comparaison de date avec VB6

Bonjour fred43 kilmoon,

En français, je dirais plutôt :

Si ta date <aujourd'hui-180 =

A traduire en Vba. pas difficile.

Bonne fin de soirée.

Jean-Pierre

 

Vote positif 0 Vote négatif

F

fred43

XLDnaute Nouveau

• 10 Avril 2009

• #9

Re : comparaison de date avec VB6

C'est se que je cherche a faire sous, ton aide n'est pas d'une grande utilité, merci quand même

 

Vote positif 0 Vote négatif

jeanpierre

Nous a quitté

Repose en paix

• 10 Avril 2009

• #10

Re : comparaison de date avec VB6

Re,

Je n'ai fais que répondre à : "Tu fais commen pour le passé en francais?"

Sinon, soluce de Kllmoon : "Sinon, met ton fichier en pièce jointe et je regarde."

En attente donc.

 

Vote positif 0 Vote négatif