Discussion :

[bencelui]

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

[unparia]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[bencelui]

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.

[patricktoulon]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[unparia]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

tirer cette formule vers le bas autant que de besoin

[bencelui]

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

Merci +++