Entrer une série de dates Résolu/Fermé

Question

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

michel_m · Answer

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

Majanian · Answer

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

michel_m · Answer

j'avais mal lu

d0nc , au d&part de la boucle i=0

cells(10, 3+i)=date1+i

Majanian · Answer

Génial, ça marche impec !
Merci Michel…
Majanian

Entrer une série de dates

4 réponses

Discussions similaires