Discussion :

[sadhya]

Bonjour je suis actuellement en stage et j'ai quelques petites interrogations sur comment comparer deux dates. J'ai essayé plusieurs codes mais cela fonctionne pas je vous ai mis ci dessous mon dernier code. Sur ma feuille excel il y a toutes les interventions qui ont été effectué depuis 4 ans . à la demande de l'utilisateur il doit en ressortir toutes les interventions pour lesquelles la date qui est dans la colonne 5 est comprise entre l'intervalle que l'utilisateur aura saisie. j'attends patiemment vos reponses parce que je suis dans une impasse ....

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
17
18
19
20
21
22
23
24
25
26
Dim i As Integer
Dim stock As Date
Dim DateDebut As Date
Dim DateFin As Date
Dim papi As Integer
 
fin = Range("A1").End(xlDown).Row
 
DateDebut = InputBox("Entrer la date ", " Date de debut d'intervalle ", "01/01/2013 ")
 
MsgBox "Bonjour" & Chr(10) & "La date est " & DateDebut
 
DateFin = InputBox("Entrer la date ", " Date de fin d'intervalle ", "01/01/2013 ")
 
MsgBox "Bonjour" & Chr(10) & "La date est " & DateFin
 
For i = 2 To fin
Cells(i, 5).Select
stock = Cells(i, 5).Value
If (stock <= DateDebut) Or (stock >= DateFin) Then
Rows(i).Select
Selection.Delete Shift:=xlUp
papi = Range("A1").End(xlDown).Row
fin = papi
End If
Next i

[amrod93]

Salut, il faut convertir ta variable stock en Date.

Pour ce faire:

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
17
18
19
20
21
22
23
24
25
26
27
28
Dim i As Integer
Dim stock As Date
Dim DateDebut As Date
Dim DateFin As Date
Dim papi As Integer
 
fin = Range("A1").End(xlDown).Row
 
DateDebut = InputBox("Entrer la date ", " Date de debut d'intervalle ", "01/01/2013 ")
 
MsgBox "Bonjour" & Chr(10) & "La date est " & DateDebut
 
DateFin = InputBox("Entrer la date ", " Date de fin d'intervalle ", "01/01/2013 ")
 
MsgBox "Bonjour" & Chr(10) & "La date est " & DateFin
 
For i = 2 To fin
Cells(i, 5).Select
 
stock = CDate(Cells(1, 5).Value)
 
If (stock <= DateDebut) Or (stock >= DateFin) Then
Rows(i).Select
Selection.Delete Shift:=xlUp
papi = Range("A1").End(xlDown).Row
fin = papi
End If
Next i

[sadhya]

Salut amrod93 je te remercie déjà pour ta réponse .

Alors la ligne 20 de conversion de stock me rencoie ( une erreur d'exécution'13', Incompatibilité de type )

Pour vous donner plus d'informations dans la colonne numéro 5 les dates sont de type dd/mm/yyyy.

Par ailleurs sais-tu si il est possible d'intialiser les format des colonnes en programmant ?

[Invité]

bonjour,
toutes les date sont du texte

Code :

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

1
2
3
stock = CDate("" & Cells(1, 5).Value)
CDate(DateDebut)
CDate(DateFin)

[amrod93]

Très bonne remarque ajoutée par rdurupt

Pour le format d'une colonne, tu peux faire ceci:

Code :

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

1
2
Columns("A:A").Select
Selection.NumberFormat = "dd/mm/yyyy"

Mais utilises quand même le convertisseur CDate() pour pouvoir comparer les dates

[sadhya]

Salut les amis,
j'ai essayé tous que vous m'avez donné et la ligne 20 qui est maintenant :

Code :

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

stock = CDate("" & Cells(1, 5).Value)

Renvoie toujours le meme message d'erreur ( une erreur d'exécution'13', Incompatibilité de type )

Toutefois ave vous compris ma problématique et ce que je dosi sortir comme informations si oui je veux bien que vous me proposez des solutions si mon code est incorrigeable .

Merci d'avance