Afficher date entre 2 dates
Bonjour a toutes et tous,
Voila j’ai un fichier excel qui comporte 2 dates, une de début et une de fin. J’aimerai pouvoir afficher les dates intermediaire de maniere plus facile qu’un glissé... et moins fastidueux...
Avez vous une recette magique svp?
Merci d’avance
Bonjour Titie, bonjour le forum,
Et on par d'où ? Un fichier excel qui comporte deux dates, c'est tellement vague que ça ressemble à un tsunami...
Ça se déclenche comment ? Un bouton ? La sélection d'une des deux dates, des deux ?
Bref, sans plus d'explications, pas plus de recette magique que de sincérité dans un homme politique...
en fait, c'est un extract d'un outil.
cet outil me donne la durée, les dates de début d'évènement et de fin, mais il me faut les info quotidiennes et donc avec la date de début d'évènement, et la date de fin ce n''est pas possible. Je voulais afficher les dates entre ces 2 dates afin de pouvoir faire un tableau croisé dynamique ensuite.
Bonjour à tous
cet outil me donne la durée, les dates de début d'évènement et de fin, mais il me faut les info quotidiennes...
Je voulais afficher les dates entre ces 2 dates afin de pouvoir faire un tableau croisé dynamique ensuite...
Même si tu ajoutes des dates, je ne vois pas pas comment tu auras les infos quotidiennes sauf à les saisir....
Cela reste très vague et ne permet pas de t'aider.
Comme déjà dit fait un exemple avant - après
comment je vais traiter les données, c'est une autre étape, voici ci dessous ce que je souhaite faire.
Merci Jean-Eric.
En fait ma problématique, c'est que je n'ai que rarement le même intervalle de temps entre la date de début et la date de fin...
Bonjour
peux être aussi comme ca a voir
Sub TestDate()
Dim Nlig&, L&, C&, C1&
Nlig = Cells(Rows.Count, 5).End(xlUp).Row
For L = 2 To Nlig
C1 = 5
For C = Range("E" & L).Value2 To Range("S" & L).Value2
Cells(L, C1).Value = C
Cells(L, C1).NumberFormat = "m/d/yyyy"
C1 = C1 + 1
Next
Next
End Subsi tu veux garder ta date de fin la mettre avant la colonne "E"
A+
Maurice
Re,
Bonjour Archer,
@ titie3325,
Tu as posé une question avec un visuel.
Ma réponse correspond au visuel ? oui ou non…
Si cela ne correspond pas à ce que tu souhaites, tu reformules ta question et tu joins cette fois un fichier représentatif de tes données.
Cdlt.
Bonjour
peux être aussi comme ca a voir
Sub TestDate() Dim Nlig&, L&, C&, C1& Nlig = Cells(Rows.Count, 5).End(xlUp).Row For L = 2 To Nlig C1 = 5 For C = Range("E" & L).Value2 To Range("S" & L).Value2 Cells(L, C1).Value = C Cells(L, C1).NumberFormat = "m/d/yyyy" C1 = C1 + 1 Next Next End Subsi tu veux garder ta date de fin la mettre avant la colonne "E"
A+
Maurice
Merci Maurice mais cette macro ne donne aucun résultat sur mon fichier.
Cependant, j'ai l'info du nombre de jour entre la date de début et la date de fin, n'y a t il pas moyen d'afficher les dates avec ces infos ?
Re,
Bonjour Archer,
@ titie3325,
Tu as posé une question avec un visuel.
Ma réponse correspond au visuel ? oui ou non…
Si cela ne correspond pas à ce que tu souhaites, tu reformules ta question et tu joins cette fois un fichier représentatif de tes données.
Cdlt.
voici le fichier, avec les données non confidentielles que je souhaite traiter.
Merci
Bonjour
tu peux pas le faire sans changer l'ordre des colonne
A voir
A+
Maurice
Bonjour
tu peux pas le faire sans changer l'ordre des colonne
A voir
A+
Maurice
Merci Maurice! La macro fonctionne a merveille !
la seule question qui se pose à moi, est comment intégré a la macros l'information des jours ouvrés et non ouvrés? (on ne travaille pas les weekend)
Merci encore...
Bonjour
voila déjà pour les samedie et dimanche pour le reste il faut voir
Sub TestDate()
Dim Nlig&, L&, C&, C1&
Application.ScreenUpdating = False
Columns("H:H").Select
Range(Selection, Selection.End(xlToRight)).Clear
Nlig = Cells(Rows.Count, 7).End(xlUp).Row
For L = 2 To Nlig
C1 = 7
For C = Range("G" & L).Value2 To Range("F" & L).Value2
Cells(L, C1).Value = C
Cells(L, C1).NumberFormat = "m/d/yyyy"
Select Case Weekday(DateSerial(Year(Cells(L, C1)), Month(Cells(L, C1)), Day(Cells(L, C1))))
Case 1, 7
Cells(L, C1).Interior.ColorIndex = 24 '15
End Select
C1 = C1 + 1
Next
Next
MsgBox "Terminer"
Application.Goto [A1], True
End SubA+
Maurice
Bonjour
voila déjà pour les samedie et dimanche pour le reste il faut voir
Sub TestDate() Dim Nlig&, L&, C&, C1& Application.ScreenUpdating = False Columns("H:H").Select Range(Selection, Selection.End(xlToRight)).Clear Nlig = Cells(Rows.Count, 7).End(xlUp).Row For L = 2 To Nlig C1 = 7 For C = Range("G" & L).Value2 To Range("F" & L).Value2 Cells(L, C1).Value = C Cells(L, C1).NumberFormat = "m/d/yyyy" Select Case Weekday(DateSerial(Year(Cells(L, C1)), Month(Cells(L, C1)), Day(Cells(L, C1)))) Case 1, 7 Cells(L, C1).Interior.ColorIndex = 24 '15 End Select C1 = C1 + 1 Next Next MsgBox "Terminer" Application.Goto [A1], True End SubA+
Maurice
ca fonctionne nickel merci !!!
est il possible de me supprimer les samedis et dimanches au lieu de mettre les cellules en bleu?
(je suis vraiment une noob en macro ... )
Merci!!
Bonjour
pour moi ses fini
voila avec les jours férie sur 2 ans
je peux pas faire mieux
A+
Maurice
Bonsoir
bon voila le dernier
Sub TestDate()
Dim Nlig&, L&, C&, C1&
Application.ScreenUpdating = False
Jlig = F00.Cells(Rows.Count, 2).End(xlUp).Row
Columns("H:H").Select
Range(Selection, Selection.End(xlToRight)).Clear
Nlig = Cells(Rows.Count, 7).End(xlUp).Row
For L = 2 To Nlig
C1 = 7
For C = Range("G" & L).Value2 To Range("F" & L).Value2
Cells(L, C1).Value = C
Cells(L, C1).NumberFormat = "m/d/yyyy"
Select Case Weekday(DateSerial(Year(Cells(L, C1)), Month(Cells(L, C1)), Day(Cells(L, C1))))
Case 1, 7
Cells(L, C1).Clear
C1 = C1 - 1
' Cells(L, C1).Interior.ColorIndex = 24 '15
End Select
For T = 2 To Jlig
If DateSerial(Year(Cells(L, C1)), Month(Cells(L, C1)), Day(Cells(L, C1))) = F00.Range("C" & T).Value Then
Cells(L, C1).Clear
C1 = C1 - 1
' Cells(L, C1).Interior.ColorIndex = 45 '4 '3 '6
End If
Next
C1 = C1 + 1
Next
Next
MsgBox "Terminer"
Application.Goto [A1], True
End Subje pense que ca doit aller
A+
Maurice
Bonjour,
Une autre proposition à étudier.
Un petit coucou à L. Longre
Cdlt