Réponse à Zako, the_ferret, liste de dates

Claude40 Claude40
1 533 contributions
Membre depuis le 24/03/2010
Envoyé le 23/08/2014 à 17:35


Bonjour,

Voici la macro modifiée pour tenir compte des demandes exprimées par MP sur un sujet fermé.


Sub date2()
Dim FirstDate As Date
Dim Datesuiv As Date
Dim Nombre As Integer 'Nombre de jours du mois
Dim IntervalType As String
Dim Number As Integer
Dim MyJ As String
Dim MyM As String
Dim MyY As String
Dim MyNewFirst
Dim MyNewsuite

FirstDate = InputBox("Entrez la première date")
Nombre = InputBox("Entrez le nombre de jours du mois")
Number = 1
IntervalType = "d"
MyJ = Mid(FirstDate, 1, 2)
MyM = Mid(FirstDate, 4, 2)
MyY = Mid(FirstDate, 9, 2) ' j'ai remplacé "7,4" par "9,2" pour prendre les deux derniers chiffres de l'année au lieu de l'année entière

MyNewFirst = MyJ & "-" & MyM & "-" & MyY & " -" ' j'ai ajouté un espace devant le tiret qui suit l'année (MyY)
Selection.TypeText Text:=MyNewFirst
Selection.TypeParagraph
Datesuiv = FirstDate
For i = 1 To Nombre - (1 / Number)
Datesuiv = DateAdd(IntervalType, Number, Datesuiv)
MyJ = Mid(Datesuiv, 1, 2)
MyM = Mid(Datesuiv, 4, 2)
MyY = Mid(Datesuiv, 9, 2) ' j'ai remplacé "7,4" par "9,2" pour prendre les deux derniers chiffres de l'année au lieu de l'année entière
MyNewsuite = MyJ & "-" & MyM & "-" & MyY & " -" ' j'ai ajouté un espace devant le tiret qui suit l'année (MyY)
Selection.TypeText Text:=MyNewsuite


Selection.TypeParagraph
Next i

End Sub
Un bon exposé du problème, c'est déjà un grand pas vers la solution. Dans la mesure du possible, mes solutions sont testées, sur mon système actuel (W10 Pro version 1909), mais peuvent ne pas fonctionner sur tous les Pc

Discussion trop ancienne

Cette discussion a été automatiquement fermée car elle n'a plus reçue de nouveau message depuis trop longtemps.

Nous vous suggérons de créer un nouveau message

« Retour sur la liste des messages de ce forum