Entrer une série de dates
Résolu
Bonjour,
Je croyais avoir posté cela hier, mais apparemment cela n'a pas marché. Voici mon message !
Dans un tableau qui démarre à la cellule B10, je cherche à renseigner la première ligne (10) avec une série de dates consécutives à partir de la cellule C10. La date de début figure en A1 et la date de fin en A2.
J'ai créé la procédure suivante, qui ne marche pas (il ne se passe rien quand je la lance) :
Sub Macro1()
Dim date1 As Date, date2 As Date
date1 = Range("A1").Value
date2 = Range("A2").Value
For i = 0 To (date2 - date1)
Range("C10" & (1 + i)).Value = date1 + i
Next
End Sub
Quelqu'un peut-il m'aider ?
Dans l'idéal, j'aimerais avoir un bouton "Saisie des dates" qui ouvrirait une boîte où l'on saisirait la date de départ et la date de fin, ce qui renseignerait la ligne de dates. Mais ceci est largement au-dessus de mes capacités !!
Je peux envoyer le fichier, si nécessaire.
Merci d'avance,
Majanian
Je croyais avoir posté cela hier, mais apparemment cela n'a pas marché. Voici mon message !
Dans un tableau qui démarre à la cellule B10, je cherche à renseigner la première ligne (10) avec une série de dates consécutives à partir de la cellule C10. La date de début figure en A1 et la date de fin en A2.
J'ai créé la procédure suivante, qui ne marche pas (il ne se passe rien quand je la lance) :
Sub Macro1()
Dim date1 As Date, date2 As Date
date1 = Range("A1").Value
date2 = Range("A2").Value
For i = 0 To (date2 - date1)
Range("C10" & (1 + i)).Value = date1 + i
Next
End Sub
Quelqu'un peut-il m'aider ?
Dans l'idéal, j'aimerais avoir un bouton "Saisie des dates" qui ouvrirait une boîte où l'on saisirait la date de départ et la date de fin, ce qui renseignerait la ligne de dates. Mais ceci est largement au-dessus de mes capacités !!
Je peux envoyer le fichier, si nécessaire.
Merci d'avance,
Majanian
4 réponses
-
ContributeurBonjour
Range("C" & d'incrément) ou cells(ton calcul d'incrément, "C")
d(autre part plutot que que de trimbaler tes dates 1 & 2
Nombre = Range("A2").Value - Range("A1").Value
Nombre déclaré en Byte ou Intéger suivant la différnce de dates -
Bonjour Michel,
Merci de t'occuper de mon problème.
J'ai essayé les deux modifications que tu suggères, mais cela remplit la colonne C et non la ligne 10 à partir de C10.
Et je ne comprends pas ce que tu suggères en ce qui concerne les dates. Désolé !
Cordialement,
Majanian -
Contributeurj'avais mal lu
d0nc , au d&part de la boucle i=0
cells(10, 3+i)=date1+i
-
Génial, ça marche impec !
Merci Michel…
Majanian
