Entrer une série de dates [Résolu]

Signaler
Messages postés
25
Date d'inscription
samedi 3 novembre 2018
Statut
Membre
Dernière intervention
12 mai 2021
-
 Majanian -
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

4 réponses

Messages postés
16450
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
12 mai 2021
3 172
Bonjour

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
Messages postés
16450
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
12 mai 2021
3 172
j'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