Trie de date

Le
IMER09
Bonjour a tous
Dans un UF 5 CBX pour faire un choix de criteres. Les CBX 4 et 5 servent aux
indications de date
Mais je n'est pas le resultat desire!!
Surement un mauvais format de ces satannés date
Precision : La liste des CBX est faite a partir de mon tableau a
l'initialisation de mon UF
le Format de la ligne A (date) est jj/mm/aaaa hh:mm

une partie de mon code est:

Sheets("SYNTHESE").Select

Dim Ligne As Long, c As Range
Dim Rg As Range, A As Integer

On Error GoTo FIN
With Sheets(ShDepart)
Ligne = .Range("A65536").End(xlUp).Row + 1

Set Rg = Range("C2", Range("C65536").End(xlUp))

For Each c In Rg
If (c = ComboBox1 Or ComboBox1 = "") And (c.Offset(, 2) = ComboBox2
Or ComboBox2 = "") _
And (c.Offset(, 1) = ComboBox3 Or ComboBox3 = "") And
(c.Offset(, -2) >= ComboBox4 Or ComboBox4 = "") _
And (c.Offset(, -2) <= ComboBox5 Or ComboBox5 = "") Then
For A = 1 To 11
.Cells(Ligne, A) = Cells(c.Row, A)
Next
Ligne = Ligne + 1
End If
Next
End With

Rémi
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Daniel.C
Le #18968251
Bonjour.
Un combobox renvoie une valeur texte. Si tu veux la comparer avec une
date, utilise CDate(valeur du combobox).
Cordialement.
Daniel

Bonjour a tous
Dans un UF 5 CBX pour faire un choix de criteres. Les CBX 4 et 5 servent aux
indications de date
Mais je n'est pas le resultat desire!!
Surement un mauvais format de ces satannés date
Precision : La liste des CBX est faite a partir de mon tableau a
l'initialisation de mon UF
le Format de la ligne A (date) est jj/mm/aaaa hh:mm

une partie de mon code est:

Sheets("SYNTHESE").Select

Dim Ligne As Long, c As Range
Dim Rg As Range, A As Integer

On Error GoTo FIN
With Sheets(ShDepart)
Ligne = .Range("A65536").End(xlUp).Row + 1

Set Rg = Range("C2", Range("C65536").End(xlUp))

For Each c In Rg
If (c = ComboBox1 Or ComboBox1 = "") And (c.Offset(, 2) = ComboBox2
Or ComboBox2 = "") _
And (c.Offset(, 1) = ComboBox3 Or ComboBox3 = "") And (c.Offset(, -2)
= ComboBox4 Or ComboBox4 = "") _


And (c.Offset(, -2) <= ComboBox5 Or ComboBox5 = "") Then
For A = 1 To 11
.Cells(Ligne, A) = Cells(c.Row, A)
Next
Ligne = Ligne + 1
End If
Next
End With

Rémi


IMER09
Le #18968501
Bonjour Daniel.C
Concrètement je met ca ou ?
Sous quel forme
Merci
Rémi
"Daniel.C" %23$W$
Bonjour.
Un combobox renvoie une valeur texte. Si tu veux la comparer avec une
date, utilise CDate(valeur du combobox).
Cordialement.
Daniel

Bonjour a tous
Dans un UF 5 CBX pour faire un choix de criteres. Les CBX 4 et 5 servent
aux indications de date
Mais je n'est pas le resultat desire!!
Surement un mauvais format de ces satannés date
Precision : La liste des CBX est faite a partir de mon tableau a
l'initialisation de mon UF
le Format de la ligne A (date) est jj/mm/aaaa hh:mm

une partie de mon code est:

Sheets("SYNTHESE").Select

Dim Ligne As Long, c As Range
Dim Rg As Range, A As Integer

On Error GoTo FIN
With Sheets(ShDepart)
Ligne = .Range("A65536").End(xlUp).Row + 1

Set Rg = Range("C2", Range("C65536").End(xlUp))

For Each c In Rg
If (c = ComboBox1 Or ComboBox1 = "") And (c.Offset(, 2) =
ComboBox2 Or ComboBox2 = "") _
And (c.Offset(, 1) = ComboBox3 Or ComboBox3 = "") And
(c.Offset(, -2)
= ComboBox4 Or ComboBox4 = "") _


And (c.Offset(, -2) <= ComboBox5 Or ComboBox5 = "") Then
For A = 1 To 11
.Cells(Ligne, A) = Cells(c.Row, A)
Next
Ligne = Ligne + 1
End If
Next
End With

Rémi






Daniel.C
Le #18968491
And (c.Offset(, 1) = ComboBox3 Or ComboBox3 = "") And (c.Offset(, -2)
= CDate(ComboBox4) Or ComboBox4 = "") _


And (c.Offset(, -2) <= CDate(ComboBox5) Or ComboBox5 = "") Then

Daniel

Bonjour Daniel.C
Concrètement je met ca ou ?
Sous quel forme
Merci
Rémi
"Daniel.C" %23$W$
Bonjour.
Un combobox renvoie une valeur texte. Si tu veux la comparer avec une date,
utilise CDate(valeur du combobox).
Cordialement.
Daniel

Bonjour a tous
Dans un UF 5 CBX pour faire un choix de criteres. Les CBX 4 et 5 servent
aux indications de date
Mais je n'est pas le resultat desire!!
Surement un mauvais format de ces satannés date
Precision : La liste des CBX est faite a partir de mon tableau a
l'initialisation de mon UF
le Format de la ligne A (date) est jj/mm/aaaa hh:mm

une partie de mon code est:

Sheets("SYNTHESE").Select

Dim Ligne As Long, c As Range
Dim Rg As Range, A As Integer

On Error GoTo FIN
With Sheets(ShDepart)
Ligne = .Range("A65536").End(xlUp).Row + 1

Set Rg = Range("C2", Range("C65536").End(xlUp))

For Each c In Rg
If (c = ComboBox1 Or ComboBox1 = "") And (c.Offset(, 2) =
ComboBox2 Or ComboBox2 = "") _
And (c.Offset(, 1) = ComboBox3 Or ComboBox3 = "") And (c.Offset(,
-2)
= ComboBox4 Or ComboBox4 = "") _


And (c.Offset(, -2) <= ComboBox5 Or ComboBox5 = "") Then
For A = 1 To 11
.Cells(Ligne, A) = Cells(c.Row, A)
Next
Ligne = Ligne + 1
End If
Next
End With

Rémi








IMER09
Le #18968481
Super !!
Grd merci
Rémi
"Daniel.C" %23pBj%
And (c.Offset(, 1) = ComboBox3 Or ComboBox3 = "") And (c.Offset(, -2)
= CDate(ComboBox4) Or ComboBox4 = "") _


And (c.Offset(, -2) <= CDate(ComboBox5) Or ComboBox5 = "") Then

Daniel

Bonjour Daniel.C
Concrètement je met ca ou ?
Sous quel forme
Merci
Rémi
"Daniel.C" %23$W$
Bonjour.
Un combobox renvoie une valeur texte. Si tu veux la comparer avec une
date, utilise CDate(valeur du combobox).
Cordialement.
Daniel

Bonjour a tous
Dans un UF 5 CBX pour faire un choix de criteres. Les CBX 4 et 5
servent aux indications de date
Mais je n'est pas le resultat desire!!
Surement un mauvais format de ces satannés date
Precision : La liste des CBX est faite a partir de mon tableau a
l'initialisation de mon UF
le Format de la ligne A (date) est jj/mm/aaaa hh:mm

une partie de mon code est:

Sheets("SYNTHESE").Select

Dim Ligne As Long, c As Range
Dim Rg As Range, A As Integer

On Error GoTo FIN
With Sheets(ShDepart)
Ligne = .Range("A65536").End(xlUp).Row + 1

Set Rg = Range("C2", Range("C65536").End(xlUp))

For Each c In Rg
If (c = ComboBox1 Or ComboBox1 = "") And (c.Offset(, 2) =
ComboBox2 Or ComboBox2 = "") _
And (c.Offset(, 1) = ComboBox3 Or ComboBox3 = "") And
(c.Offset(, -2)
= ComboBox4 Or ComboBox4 = "") _


And (c.Offset(, -2) <= ComboBox5 Or ComboBox5 = "") Then
For A = 1 To 11
.Cells(Ligne, A) = Cells(c.Row, A)
Next
Ligne = Ligne + 1
End If
Next
End With

Rémi












Publicité
Poster une réponse
Anonyme