OVH Cloud OVH Cloud

Recherche date

6 réponses
Avatar
Michel
Bonjour,

Je cherche à copier dans une colonne toutes les dates qui sont comprises
entre deux dates choisies dans un textbox.
en colonne A1:A2000 j'ai une suite de dates du type 01/01/04 et avec deux
textbox je cherche toutes les cellules du mois de janvier 04.
Je me bat avec index equiv mais çà ne fonctionne pas.
Qq aurait une solution?
Merci pour vos suggestions

6 réponses

Avatar
isabelle
bonjour Michel,

le plus sur avec les dates est de mettre la valeur du textbox dans une
cellule qui sera formaté comme la plage de recherche

D1 = "2004-01-09"
D2 = "2004-01-20"
Range("b1") = CDate(D1)
Range("b2") = CDate(D2)
ligne1 = Application.Match([b1], Range("A:A"), 0)
ligne2 = Application.Match([b2], Range("A:A"), 0)
Range(Cells(ligne1, 1), Cells(ligne2, 1)).Select

isabelle


Bonjour,

Je cherche à copier dans une colonne toutes les dates qui sont comprises
entre deux dates choisies dans un textbox.
en colonne A1:A2000 j'ai une suite de dates du type 01/01/04 et avec deux
textbox je cherche toutes les cellules du mois de janvier 04.
Je me bat avec index equiv mais çà ne fonctionne pas.
Qq aurait une solution?
Merci pour vos suggestions


Avatar
Michel
Bonjour,

Merci à Isabelle de m'avoir répondu, mais ce n'est pas ce que je recherche.
Je veux isoler pour pouvoir après coller en B3:Bx de ma feuille toutes les
dates comprises entre deux valeurs.
J'explique en A:A j'ai une série de dates et en B1 ma date de départ en B2
ma date d'arrivée et je voudrais qu'en B3:Bx la fonction me colle toutes les
dates comprises entre B1 et B2.
Merci encore
Avatar
Philippe.R
Bonjour Michel,
Ce code devrait pouvoir convenir

Sub toutes_les_dates_entre()
Dim dep As Long, arriv As Long, i As Long
dep = [b1]
arriv = [b2]
For i = 3 To arriv - dep + 1
Cells(i, 2).Value = dep + 1
dep = dep + 1
Next i
End Sub

--
Amicales Salutations

Retirer A_S_ pour répondre.
XL97 / XL2002
Pour suivre le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)

"Michel" a écrit dans le message de news:402ddf3f$0$319$
Bonjour,

Merci à Isabelle de m'avoir répondu, mais ce n'est pas ce que je recherche.
Je veux isoler pour pouvoir après coller en B3:Bx de ma feuille toutes les
dates comprises entre deux valeurs.
J'explique en A:A j'ai une série de dates et en B1 ma date de départ en B2
ma date d'arrivée et je voudrais qu'en B3:Bx la fonction me colle toutes les
dates comprises entre B1 et B2.
Merci encore




Avatar
Michel
Bonjour,
C'est vraiment génial, ta réponse correspond exactement à ma
recherche.Tu m'évite une nouvelle nuit blanche.
Merci et chapeau l'artiste
Avatar
Philippe.R
C'était avec plaisir Michel !
(Et j'entends JPS murmurer "ben voyons....")
--
Amicales Salutations

Retirer A_S_ pour répondre.
XL97 / XL2002

"Michel" a écrit dans le message de news:402ded6f$0$7047$
Bonjour,
C'est vraiment génial, ta réponse correspond exactement à ma
recherche.Tu m'évite une nouvelle nuit blanche.
Merci et chapeau l'artiste




Avatar
sabatier
non, non, jps se demandait juste dans quel registre il devait te classer
en tant qu'artiste....je suis quand même un peu mis sur la voie par
michel qui a fait inclus dans sa dithyrambe le terme "chapeau"..
jps

Philippe.R a écrit:
C'était avec plaisir Michel !
(Et j'entends JPS murmurer "ben voyons....")