Macro pour recopier des dates

Question

Bonjour la communauté,

J'ai besoin de votre aide. J'ai un tableau à créer dans lequel je doit répéter des dates sur 16 lignes puis à la 17e ajouter un jour supplémentaire, toujours à répéter sur 16 lignes, et cela pour 91 jours. J'ai essayé une macro mais cela ne fonctionne pas, je n'ai qu'une cellule qui se répète :

Sub Dateauto()

'

' Dateauto Macro

'

' Touche de raccourci du clavier: Ctrl+Shift+A

'

ActiveCell.FormulaR1C1 = "=R[-1]C+1" 

Range("A118").Select 

Selection.Copy 

Range("A119:A133").Select 

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks \_ 

    :=False, Transpose:=False 

Range("A134").Select 

End Sub

Comment puis-je faire ?

Je vous joins une partie du tableau : https://www.cjoint.com/c/MEmeRiNHtSi

Merci à vous.

Answer 1

Bonjour,

Dans le classeur synthèse, il faut 16 lignes à la même date. Là j'en ai 17.

Aurélien

Answer 2

Bonjour,

C'est normal, les deux classeurs n'ont pas du tout la même structure. Dans quelle faut-il répéter les dates ?

Daniel

Answer 3

Bonjour,

Je reviens vers vous car cette fois-ci j'ai un décalage dans les dates. Au lieu de mettre la date en question sur 16 lignes, la macro la met sur 17, je ne sais pas pourquoi.

Comment puis-je faire ?

Voici une partie du fichier : https://www.cjoint.com/c/MIjfwjiAFKi

Cordialement.

Answer 4

Parfait,

Exactement ce qu'il me faut

Merci beaucoup Daniel

Cordialement

Answer 5

Bonjour,

Essaie :

Sub test()
Dim I As Long, Dat As Date
Dat = [A6]
For I = 1 To 91 * 16 Step 16
[E5].Offset(I) = Dat
[E5].Offset(I).Resize(16).FillDown
Dat = [E5].Offset(I) + 1
Next I
End Sub

Daniel