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
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Daniel.C
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
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
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
Bonjour Daniel.C Concrètement je met ca ou ? Sous quel forme Merci Rémi "Daniel.C" a écrit dans le message de news: %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
Bonjour Daniel.C
Concrètement je met ca ou ?
Sous quel forme
Merci
Rémi
"Daniel.C" <dcolardelleZZZ@gmail.com> a écrit dans le message de news:
%23$W$PiGrJHA.4996@TK2MSFTNGP04.phx.gbl...
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
Bonjour Daniel.C Concrètement je met ca ou ? Sous quel forme Merci Rémi "Daniel.C" a écrit dans le message de news: %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
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" a écrit dans le message de news: %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
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" <dcolardelleZZZ@gmail.com> a écrit dans le message de news:
%23$W$PiGrJHA.4996@TK2MSFTNGP04.phx.gbl...
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
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" a écrit dans le message de news: %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
Super !! Grd merci Rémi "Daniel.C" a écrit dans le message de news: %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" a écrit dans le message de news: %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
Super !!
Grd merci
Rémi
"Daniel.C" <dcolardelleZZZ@gmail.com> a écrit dans le message de news:
%23pBj%233GrJHA.1236@TK2MSFTNGP02.phx.gbl...
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" <dcolardelleZZZ@gmail.com> a écrit dans le message de news:
%23$W$PiGrJHA.4996@TK2MSFTNGP04.phx.gbl...
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
Super !! Grd merci Rémi "Daniel.C" a écrit dans le message de news: %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" a écrit dans le message de news: %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