Bonjour à toutes et tous,
en C1 j'ai une date format jj/mm/aa nommée
DebutMois, la cellule est utilisée par une macro
pour effectuer un filtre élaboré.
La macro récupére la date sous le format mm/jj/aa
et ne fonctionne pas. si je change le format
nombre pour avoir le numéro de série de la date
(ex :01/07/04 = 38169) la macro tourne impeccable
car dans le filtre c'est la valeur du jour qui
est récupérée.
Comment palier ce problème en ayant toujours le
format jj/mm/aa à l'écran ? (sans devoir nommer
une autre cellule cachée avec le n° de serie de
la date,dans la feuille)
Private Sub OptionButton1_Click()
Application.ScreenUpdating = False
zozo = Evaluate("=FIN.MOIS(C1,0)") 'si C1
= jj/mm/aa la macro ne fonctionne pas la date '
' renvoyée par la macro est mm/jj/aa
Range("B25").Select
If Selection.AutoFilter = False Then
Selection.AutoFilter = True
Selection.AutoFilter Field:=1,
Criteria1:=">=" & Range("debutmois").Value,
Operator:=xlAnd, _
Criteria2:="<=" & zozo
Range("c12").Formula = zozo
End Sub
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
Philippe.R
Bonjour Michel, Tu peux regarder du côté de dateserial(year(c1),month(c1),day(c1)) pour travailler sur ta date en VBA -- Amicales Salutations Retirer A_S_ pour répondre. XL 97 / 2000 / 2002
"Michel.P" a écrit dans le message de news:
Bonjour à toutes et tous, en C1 j'ai une date format jj/mm/aa nommée DebutMois, la cellule est utilisée par une macro pour effectuer un filtre élaboré. La macro récupére la date sous le format mm/jj/aa et ne fonctionne pas. si je change le format nombre pour avoir le numéro de série de la date (ex :01/07/04 = 38169) la macro tourne impeccable car dans le filtre c'est la valeur du jour qui est récupérée. Comment palier ce problème en ayant toujours le format jj/mm/aa à l'écran ? (sans devoir nommer une autre cellule cachée avec le n° de serie de la date,dans la feuille)
Private Sub OptionButton1_Click() Application.ScreenUpdating = False zozo = Evaluate("=FIN.MOIS(C1,0)") 'si C1 = jj/mm/aa la macro ne fonctionne pas la date ' ' renvoyée par la macro est mm/jj/aa Range("B25").Select If Selection.AutoFilter = False Then Selection.AutoFilter = True Selection.AutoFilter Field:=1, Criteria1:=">=" & Range("debutmois").Value, Operator:=xlAnd, _ Criteria2:="<=" & zozo Range("c12").Formula = zozo End Sub
-- Amicalement Michel . P
Bonjour Michel,
Tu peux regarder du côté de dateserial(year(c1),month(c1),day(c1)) pour travailler sur ta date en VBA
--
Amicales Salutations
Retirer A_S_ pour répondre.
XL 97 / 2000 / 2002
"Michel.P" <prive.ma-boite_sans_spam@laposte.net> a écrit dans le message de
news:mn.c3067d47cd482cbd.11921@laposte.net...
Bonjour à toutes et tous,
en C1 j'ai une date format jj/mm/aa nommée
DebutMois, la cellule est utilisée par une macro
pour effectuer un filtre élaboré.
La macro récupére la date sous le format mm/jj/aa
et ne fonctionne pas. si je change le format
nombre pour avoir le numéro de série de la date
(ex :01/07/04 = 38169) la macro tourne impeccable
car dans le filtre c'est la valeur du jour qui
est récupérée.
Comment palier ce problème en ayant toujours le
format jj/mm/aa à l'écran ? (sans devoir nommer
une autre cellule cachée avec le n° de serie de
la date,dans la feuille)
Private Sub OptionButton1_Click()
Application.ScreenUpdating = False
zozo = Evaluate("=FIN.MOIS(C1,0)") 'si C1
= jj/mm/aa la macro ne fonctionne pas la date '
' renvoyée par la macro est mm/jj/aa
Range("B25").Select
If Selection.AutoFilter = False Then
Selection.AutoFilter = True
Selection.AutoFilter Field:=1,
Criteria1:=">=" & Range("debutmois").Value,
Operator:=xlAnd, _
Criteria2:="<=" & zozo
Range("c12").Formula = zozo
End Sub
Bonjour Michel, Tu peux regarder du côté de dateserial(year(c1),month(c1),day(c1)) pour travailler sur ta date en VBA -- Amicales Salutations Retirer A_S_ pour répondre. XL 97 / 2000 / 2002
"Michel.P" a écrit dans le message de news:
Bonjour à toutes et tous, en C1 j'ai une date format jj/mm/aa nommée DebutMois, la cellule est utilisée par une macro pour effectuer un filtre élaboré. La macro récupére la date sous le format mm/jj/aa et ne fonctionne pas. si je change le format nombre pour avoir le numéro de série de la date (ex :01/07/04 = 38169) la macro tourne impeccable car dans le filtre c'est la valeur du jour qui est récupérée. Comment palier ce problème en ayant toujours le format jj/mm/aa à l'écran ? (sans devoir nommer une autre cellule cachée avec le n° de serie de la date,dans la feuille)
Private Sub OptionButton1_Click() Application.ScreenUpdating = False zozo = Evaluate("=FIN.MOIS(C1,0)") 'si C1 = jj/mm/aa la macro ne fonctionne pas la date ' ' renvoyée par la macro est mm/jj/aa Range("B25").Select If Selection.AutoFilter = False Then Selection.AutoFilter = True Selection.AutoFilter Field:=1, Criteria1:=">=" & Range("debutmois").Value, Operator:=xlAnd, _ Criteria2:="<=" & zozo Range("c12").Formula = zozo End Sub
-- Amicalement Michel . P
Michel.P
Ok, merci Philippe je regarde et vois ce que cela donne. au plaisir
Philippe.R a couché sur son écran :
Bonjour Michel, Tu peux regarder du côté de dateserial(year(c1),month(c1),day(c1)) pour travailler sur ta date en VBA -- Amicales Salutations Retirer A_S_ pour répondre. XL 97 / 2000 / 2002
-- Amicalement Michel . P
Ok, merci Philippe je regarde et vois ce que
cela donne.
au plaisir
Philippe.R a couché sur son écran :
Bonjour Michel,
Tu peux regarder du côté de
dateserial(year(c1),month(c1),day(c1)) pour travailler
sur ta date en VBA -- Amicales Salutations
Retirer A_S_ pour répondre.
XL 97 / 2000 / 2002
Ok, merci Philippe je regarde et vois ce que cela donne. au plaisir
Philippe.R a couché sur son écran :
Bonjour Michel, Tu peux regarder du côté de dateserial(year(c1),month(c1),day(c1)) pour travailler sur ta date en VBA -- Amicales Salutations Retirer A_S_ pour répondre. XL 97 / 2000 / 2002
-- Amicalement Michel . P
Michel.P
Impeccable, c'est bien le n° de série de la date qui est renvoyé. mille MERCI, enfin comme d'hab...quoi!!! vous étes des Cracks (je mets au pluriel pour n'oublier personne..)
-- Amicalement Michel . P
Impeccable, c'est bien le n° de série de la date
qui est renvoyé.
mille MERCI, enfin comme d'hab...quoi!!!
vous étes des Cracks (je mets au pluriel pour
n'oublier personne..)
Impeccable, c'est bien le n° de série de la date qui est renvoyé. mille MERCI, enfin comme d'hab...quoi!!! vous étes des Cracks (je mets au pluriel pour n'oublier personne..)
-- Amicalement Michel . P
Philippe.R
C'était avec plaisir Michel ! -- Amicales Salutations
"Michel.P" a écrit dans le message de news:
Impeccable, c'est bien le n° de série de la date qui est renvoyé. mille MERCI, enfin comme d'hab...quoi!!! vous étes des Cracks (je mets au pluriel pour n'oublier personne..)
-- Amicalement Michel . P
C'était avec plaisir Michel !
--
Amicales Salutations
"Michel.P" <prive.ma-boite_sans_spam@laposte.net> a écrit dans le message de
news:mn.c3fb7d475e651ec3.11921@laposte.net...
Impeccable, c'est bien le n° de série de la date
qui est renvoyé.
mille MERCI, enfin comme d'hab...quoi!!!
vous étes des Cracks (je mets au pluriel pour
n'oublier personne..)
C'était avec plaisir Michel ! -- Amicales Salutations
"Michel.P" a écrit dans le message de news:
Impeccable, c'est bien le n° de série de la date qui est renvoyé. mille MERCI, enfin comme d'hab...quoi!!! vous étes des Cracks (je mets au pluriel pour n'oublier personne..)
-- Amicalement Michel . P
Daniel.M
Hello Philippe,
Tu peux regarder du côté de dateserial(year(c1),month(c1),day(c1)) pour travailler sur ta date en VBA
ou encore :
Dim UneDate as Long UneDate = c1 * 1
Salutations,
Daniel M.
Hello Philippe,
Tu peux regarder du côté de dateserial(year(c1),month(c1),day(c1))
pour travailler sur ta date en VBA
