Incrémentation de date et saut de ligne

Bonjour la communauté,

Débutant en programmation Excel, je cherche en vain a créer une première petite macro, toute bête.... Mais je ne sais pas par quoi commencer...

Voilà,

Je souhaite creer une macro qui automatise la date+1 (suite logique) mais qui saute une ligne toute les 7

En gros:

01/01/2017
02/01/2017
03/01/2017
04/01/2017
05/01/2017
06/01/2017
07/01/2017

08/01/2017
09/01/2017
.....


Auriez-vous une macro de ce type que je puisse analyser afin d'en comprendre le sens ?

Milles mercis

Manu

Bonjour
tu dois donc sauter une ligne chaque fois que le nombre de jours écoulés par rapport à la date de départ est un multiple de 7, donc que le reste de la division de ce nombre par 7 = 0)
Rubrique d'intérêt --->> Mod, opérateur (dans l'aide interne VBA)
Exemple bâclé --->>

Code:

---

1 2 3 4 5 6 7

Range("A1").Value = CDate("01/01/2017") j = 2 For i = 1 To 20 If i Mod 7 = 0 Then j = j + 1 Range("A" & j).Value = Range("A1").Value + i j = j + 1 Next

---

Super !!!

Merci a vous !

Me voilà avec une base de travail.....
Je ne voyais pas comment l'articuler, là c'est tout de suite plus clair !

Milles mercis et bon dimanche.

re
bonjour
et si ton but est de separer chaque semaine (du lundi au dimanche)

Code:

---

1 2 3 4 5 6 7 8 9 10

Sub test() Dim année As Long, mois As Long, j As Long, i As Long année = 2018 mois = 6 For i = 1 To Day(DateSerial(année, mois + 1, 0)) jour = Format(DateSerial(année, mois, i), "dddd", vbUseSystem) If jour = "lundi" Then j = j + 2 Else j = j + 1 Cells(j, 1) = Format(DateSerial(année, mois, i), "ddd dd/mm/yyyy") Next End Sub

---

Re
Ceci dit :
1) il est de bon ton ici de libérer une discussion (lorsque la difficulté a été résolue). Un click sur le tag RESOLU

2) j'ai donné une solution VBA (puisque dans section VBA de ce forum), mais il serait plus adroit de mettre en oeuvre une solution Excel, ainsi :
- Mettre la colonne A en format date
En A1 : 01/01/2017
en A2 : formule -->>

Code:

---

=SI(MOD(LIGNE();8);$A$1+LIGNE()-1-ENT(LIGNE()/8);"")

---

tirer cette formule vers le bas autant que de besoin

Alors là: respect !! Parfait....

Merci +++