[Excel-VBA] Comparaison de dates
Fermé
Utilisateur anonyme
-
8 août 2005 à 11:01
magi123 Messages postés 18 Date d'inscription mardi 20 novembre 2007 Statut Membre Dernière intervention 10 décembre 2007 - 3 déc. 2007 à 14:29
magi123 Messages postés 18 Date d'inscription mardi 20 novembre 2007 Statut Membre Dernière intervention 10 décembre 2007 - 3 déc. 2007 à 14:29
A voir également:
- [Excel-VBA] Comparaison de dates
- Liste déroulante excel - Guide
- Nombre de jours entre deux dates excel - Guide
- Si et excel - Guide
- Word et excel gratuit - Guide
- Déplacer une colonne excel - Guide
17 réponses
Utilisateur anonyme
8 août 2005 à 17:13
8 août 2005 à 17:13
re:
quelque chose comme ça :
Lupin
quelque chose comme ça :
Dim DateDeb, DateFin As Date Dim DateCible As Date I = 1: choix = 1 LaDerniere = Workbooks("Test.xls").Worksheets("Feuil1").Cells(65536, choix).End(xlUp).Row mot_clef = Range("I1").Value Temps = Split(mot_clef, " ") DateDeb = FormatDateTime(Temps(0)) DateFin = FormatDateTime(Temps(1)) For I = 1 To LaDerniere DateCible = FormatDateTime(Workbooks("Test.xls").Worksheets("Feuil1").Cells(I, choix).Value) If ((DateDeb < DateCible) And (DateFin > DateCible)) Then Workbooks("Test.xls").Worksheets("Feuil1").Cells(I, (choix + 2)).Value = ("Date comprise dans l'interval") Else Workbooks("Test.xls").Worksheets("Feuil1").Cells(I, (choix + 2)).Value = ("Date non-comprise dans l'interval") End If Next I
Lupin
magi123
Messages postés
18
Date d'inscription
mardi 20 novembre 2007
Statut
Membre
Dernière intervention
10 décembre 2007
8
3 déc. 2007 à 14:29
3 déc. 2007 à 14:29
bonjour,
je veux savoir comment rechercher des données entre deux dates????????????
c'est urgent
je veux savoir comment rechercher des données entre deux dates????????????
c'est urgent
Utilisateur anonyme
8 août 2005 à 14:42
8 août 2005 à 14:42
Salut,
celles-ci ne sont pas défini ???
LaDerniere
Date1
Date2
Temps
Lupin
celles-ci ne sont pas défini ???
LaDerniere
Date1
Date2
Temps
Lupin
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Utilisateur anonyme
8 août 2005 à 13:28
8 août 2005 à 13:28
Problème non résolu (merci de poster un complément d'information pour faire remonter le fil de discussion)
Utilisateur anonyme
8 août 2005 à 14:16
8 août 2005 à 14:16
Salut KdTca,
Peux-tu spécifier le type de variables !
Dim LaDerniere As ...
Dim choix As ...
Dim date1,date2 As ...
Dim temps() As ...
Lupin
Peux-tu spécifier le type de variables !
Dim LaDerniere As ...
Dim choix As ...
Dim date1,date2 As ...
Dim temps() As ...
Lupin
Utilisateur anonyme
8 août 2005 à 14:26
8 août 2005 à 14:26
Dim chemin, mot_clef As String Dim valid, lancement, fin, k, choix As Integer Dim ok As Boolean Dim fso, Dossier, Flder As Object Dim fichier Dim cellule As Integer Dim Msg1, Msg2, Style, Title, Box Dim nb, derniere_colonne Dim cellul As String Dim par As Variant Dim datedeb, datefin As Date
J'ai un peu changé mon code en fait...j'ai l'impression qu'on ne peut faire que ce style de comparaison avec les dates:
If datefin > Application.Workbooks(fichier(4)).Worksheets("Tableau").Cells(i, choix).Value Then
mais pas çà :
If datefin < Application.Workbooks(fichier(4)).Worksheets("Tableau").Cells(i, choix).Value Then
Utilisateur anonyme
8 août 2005 à 16:26
8 août 2005 à 16:26
re:
chez-moi ça fonctionne nickel, ssi les format de date sont OK
Lupin
chez-moi ça fonctionne nickel, ssi les format de date sont OK
I = 1: choix = 1 LaDerniere = Workbooks("Test.xls").Worksheets("Feuil1").Cells(65536, choix).End(xlUp).Row mot_clef = Range("I1").Value Temps = Split(mot_clef, " ") DateDeb = Temps(0) DateFin = Temps(1) For I = 1 To LaDerniere DateCible = FormatDateTime(Workbooks("Test.xls").Worksheets("Feuil1").Cells(I, choix).Value) If ((DateDeb < DateCible) And (DateFin > DateCible)) Then Workbooks("Test.xls").Worksheets("Feuil1").Cells(I, (choix + 2)).Value = ("Date comprise dans l'interval") Else Workbooks("Test.xls").Worksheets("Feuil1").Cells(I, (choix + 2)).Value = ("Date non-comprise dans l'interval") End If Next I
Lupin
Utilisateur anonyme
8 août 2005 à 14:45
8 août 2005 à 14:45
date1 et date2 sont devenues datedeb et datefin...
laderniere et temps, pas besoin de les déclarer...
laderniere et temps, pas besoin de les déclarer...
Utilisateur anonyme
8 août 2005 à 16:39
8 août 2005 à 16:39
Ah ben non... j'ai essayé avec deux dates d'année différente et çà veut pas marcher! :'(
Utilisateur anonyme
8 août 2005 à 16:46
8 août 2005 à 16:46
re:
c'est un problème de typage.
il te faut formatter toutes les variables en format DATE.
il faut comparrer des oranges avec des oranges, des pommes
avec des pommes, et enfin des dates avec des dates.
en fait comparer des variables n'est pas suffisant, il faut
comparer deux variables de même types.
Lupin
c'est un problème de typage.
il te faut formatter toutes les variables en format DATE.
il faut comparrer des oranges avec des oranges, des pommes
avec des pommes, et enfin des dates avec des dates.
en fait comparer des variables n'est pas suffisant, il faut
comparer deux variables de même types.
Lupin
Utilisateur anonyme
8 août 2005 à 18:28
8 août 2005 à 18:28
oui oui
j'avais juste oublier de mettre datecible en Date
j'ai fait qu'un essai avant de quitter le boulot et çà a marcher donc j'essaierai çà demain matin à nouveau! ;)
j'avais juste oublier de mettre datecible en Date
j'ai fait qu'un essai avant de quitter le boulot et çà a marcher donc j'essaierai çà demain matin à nouveau! ;)