Discussion :

[soisfran]

Bonjour,

Je souhaite copier une date (se trouvant dans une cellule, dans une feuille spécifique) un nombre de fois défini, à partir de la cellule "B2" de ma "feuil3".

Jusque là, tout va bien pour moi, j'avais récupéré ce bout de code qui fonctionnait parfaitement pour une liste copier une liste un nombre de fois défini dans la première cellule vide de la colonne A.

Code :

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

1
2
3
4
5
6
7
8
9
10
nblin=Range("A800000").End(xlUp).Row
 
Dim Copiage As Range, Dl As Long, x As Integer
Set Copiage = Range("A2:A" & nblin)
For x = 1 To 11
  With Sheets("Feuil3")
    Dl = .Range("A" & .Rows.Count).End(xlUp).Row + 1
    Copiage.Copy .Range("A" & Dl)
  End With
Next x

Je voudrais pouvoir faire la même chose mais en copiant la date (définie en variable) x nombre de fois dans la colonne B et incrémenter cette date de +1 mois à chaque retour de boucle.

Pourriez-vous m'aider ?
j'ai encore du mal avec les boucles ...

[quentinvba]

Salut Soisfran !

Dans un premier temps, corrige ta syntaxe en rajoutant le "F" de For

Code :

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

For x = 1 To 11

De plus , souhaites-tu passer aussi aux années quand ton mois atteint 13 ? Ou incrémenter uniquement jusqu'à 12 te suffit ?

[soisfran]

Slt Quentin,

Ah oui, désolé, mauvais copier/coller de ma part.
Je modifie mon message en ajoutant le "F" de for !

Pour le code, oui, en effet, il va falloir passer à l'année suivante quand cela sera nécessaire, la date de base étant glissante (renseignée par l'utilisateur), 11 fois sur 12, la période sera calée sur 2 années ...
Je ne sais pas si quelque chose du style "MOIS.DECALER" en vba serait possible ...

[Invité]

Bonjour,
Déjà il faut déterminer le nombre de jours entre la date elle même et le début du mois de la dite date

Code :

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

1
2
3
4
5
6
7
 
J = datedif("d",cdate(format(ladate,"yyyy-mm-01")),ladate)
'il faut connaitre le 1 du mois suivant!
' mle moi le plus petit fait 28 jours +7 jours je suis forcément le moins suivant
Mp=cdate( format( cdate( format(ladate,"yyyy-mm-28"))+7,"yyyy-mm-01")
'il me reste qu'à ajouter le nombre de jours!
MP=mp + j

[soisfran]

Slt rdurupt,

merci, je teste ça et fais mon retour !

[patricktoulon]

ola robert !!
tu a oublié que l'on a des outils pour ce genre de travail
voila un exemple
qui demarre du 20/01/2015 et termine 20 mois plus tard
observebien la variable NB_JOURS
avec cette methode tu n'a meme pas besoins de gérer les années elle s'incrementent toutes seules en ajoutant les jours manquants

Code :

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

1
2
3
4
5
6
7
8
9
Sub test()
    Dim madate,i 
madate = "20/01/2015"
    For i = 1 To 20
        NB_JOURS = Day(DateSerial(Year(madate), Month(madate) + 1, 1) - 1)
        madate = CDate(madate) + NB_JOURS
        Debug.Print madate
    Next
End Sub

[Philippe Tulliez]

Bonjour Patrick,

tu a oublié que l'on a des outils pour ce genre de travail

Tu as 100% raison en parlant d'outils disponibles mais moi j'aurais opté pour la méthode DataSeries

Exemple de l'incrémentation d'1 mois sur des dates comprises entre janvier 2014 et décembre 2015.
La première date en cellule A2 de la feuille active et l'écriture se fait en colonne (il suffit de remplacer la constante xlColumns en xlRows de l'argument RowCol] pour écrire en ligne.
Les autres paramètres sont également intéressants. Je renvoie à l'aide en ligne

La procédure

Code :

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

1
2
3
4
5
6
Sub IncrementerDate()
 With ActiveSheet.Range("A2")
 .Value = DateSerial(2014, 1, 1): .NumberFormat = "ddd* dd/mm/yyyy"
 .DataSeries Rowcol:=xlColumns, Type:=xlChronological, Date:=xlMonth, stop:=DateSerial(2015, 12, 1)
 End With
End Sub

[clementmarcotte]

Bonjour Philippe et à tous,

Hier, en lisant la question, il me semblait que c'était possible dans Excel. On met(trait) mettant la date initiale, disons, en A1, la deuxième date, disons en a2 et on recopierait vers le bas. Il me semblait que cela n'incrémenterait que le mois; à la condition de ne pas changer ni l'année, ni le jour.

Sauf, que le truc en question incrémente le mois et le jour. Je me demande si je n'ai pas rêvé ou si j'ai mal fait mon truc.
Mais bon, cela ne m'empêche pas de dormir, et il n'y a pas d'urgence, juste de la curiosité.

[Philippe Tulliez]

Bonjour Clément,
Non, tu n'as pas rêvé.
La méthode que j'ai proposée provient de l'outil Série qui permet d'incrémenter une date par jours, jours ouvrés, semaine (Jour+7), mois, années, etc.
Une bonne connaissance des outils d'excel permet de mieux programmer en VBA pour Excel

[patricktoulon]

bien vu philippe

ca reproduit un peu l le principe de Selection.AutoFill Destination:=Range...........

je garde

[patricktoulon]

oui clement le principe de copie incremente le jour et le mois
mais dans l'exemple de philippe
il y a les arguments xlmonth qui implique l'incrementation que des mois et stop pour une date de fin

Code :

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

1
2
.DataSeries Rowcol:=xlColumns, Type:=xlChronological, Date:=xlMonth, stop:=DateSerial(2015, 12, 1)

vraiment bien vu
je dormirais moins bete ce soir

[patricktoulon]

j'ai souvent besoins de faire cet exercice
et je viens de tester l'incrementation par jours
bien entendu la date en rouge est invalide

Code :

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

1
2
3
4
5
6
Sub IncrementerDate()
 With ActiveSheet.Range("b2")
 .Value = DateSerial(2015, 2, 1): .NumberFormat = "ddd* dd/mm/yyyy"
 .DataSeries Rowcol:=xlColumns, Type:=xlChronological, Date:=xlDay, stop:=DateSerial(2015, 2, 31)
 End With
End Sub

le resultat est surprenant les jours supplementaires sont bien incrementés mais dans une forme valide c'est a dire en l'occurence ici on passe a "MARS"
surprenant qu'il n'y ai pas de message d'erreur

y a t il une variable dans cette fonctuion qui pourrait m'arréter au dernier jour du mois ????
intéréssant

[Philippe Tulliez]

Bonjour Patrick,
On pourrait penser en effet que la fonction DateSerial a un comportement curieux
Dans la ligne de code ci-dessous, la cellule A1 aura comme date le 3/3/201 soit 3 jours après la véritable fin de mois de février 2014. Comme

Code :

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

Range("A1").Value = DateSerial(2014, 2, 31)

Tout comme la fonction d'excel

Code :

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

=DATE(2014;2;31)

C'est la raison pour laquelle on peut avoir le dernier jour du mois qui précède le mois de février

Code :

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

=DATE(2014;2;0)

Soit le jour avant le 1er

[patricktoulon]

re
c'est quand meme domage de devoir utiliser 2 fois la fonction sous ses deux forme pour obtenir la fin

mais bon rien n'est parfait dans ce monde hein!!

Code :

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

1
2
3
4
5
6
7
Sub IncrementerDate()
 With ActiveSheet.Range("b2")
 .Value = DateSerial(2015, 2, 1): .NumberFormat = "ddd* dd/mm/yyyy"
  NB_JOURS = Day(DateSerial(2015, 2 + 1, 0))
 .DataSeries Rowcol:=xlColumns, Type:=xlChronological, Date:=xlDay, stop:=DateSerial(2015, 2, NB_JOURS)
 End With
End Sub

ou

Code :

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

stop:=DateSerial(2015, 3, 0)

heu j'oubliais merci philippe
ta version pour travailler sur la grille excel ,la mienne pour travailler sur une variable tableau nickel...

[Philippe Tulliez]

Bonjour Patrick,

c'est quand meme domage de devoir utiliser 2 fois la fonction sous ses deux forme pour obtenir la fin

J'avoue ne pas bien comprendre.
Il y a une date de début et une date de fin donc il est évident qu'il faille employer au moins deux fois la fonction DateSerial dans ce cas de figure. Cependant c'est toi qui te force à l'utiliser trois fois en passant par une variable intermédiaire.
Ceci fonctionne correctement également

Code :

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

1
2
3
4
5
6
Sub IncrementerDate()
 With ActiveSheet.Range("B2")
 .Value = DateSerial(2015, 2, 1): .NumberFormat = "ddd* dd/mm/yyyy"
 .DataSeries Rowcol:=xlColumns, Type:=xlChronological, Date:=xlDay, stop:=DateSerial(2015, 2 + 1, 0)
 End With
End Sub

[soisfran]

Bonjour,

Tout d'abord, merci de vos réponses, j'ai essayé de comprendre les différents codes que vous avez mis, c'est à peu près bon pour moi.

JMais je n'ai pas réussi à faire exactement ce que je veux:
Le code suivant me permet d'incrémenter un mois à la madate, jusqu'à madate2 :

Code :

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

1
2
3
4
5
6
madate = Workbooks("adherence_previsions.xlsm").Worksheets("Outil_ADH_PRE").Range("F11").Value
madate2 = Workbooks("adherence_previsions.xlsm").Worksheets("Outil_ADH_PRE").Range("H11").Value
 With ActiveSheet.Range("B2")
 .Value = DateSerial(Year(madate), Month(madate), Day(madate)): .NumberFormat = " dd/mm/yyyy"
 .DataSeries Rowcol:=xlColumns, Type:=xlChronological, Date:=xlMonth, stop:=DateSerial(Year(madate2), Month(madate2), Day(madate2)): .NumberFormat = " dd/mm/yyyy"
 End With

Ce qui me donne en colonne B

28/09/2014
28/10/2014
28/11/2014
28/12/2014
28/01/2015

Ce que j'essaie de faire maintenant, c'est de coller chaque date X fois, x correspondant à un nblin plus haut dans la macro... Mais là, je bloque ...

J'espère être assez clair ...

[Igloobel]

Bonjour Philippe et à tous,

Hier, en lisant la question, il me semblait que c'était possible dans Excel. On met(trait) mettant la date initiale, disons, en A1, la deuxième date, disons en a2 et on recopierait vers le bas. Il me semblait que cela n'incrémenterait que le mois; à la condition de ne pas changer ni l'année, ni le jour.

Sauf, que le truc en question incrémente le mois et le jour. Je me demande si je n'ai pas rêvé ou si j'ai mal fait mon truc.
Mais bon, cela ne m'empêche pas de dormir, et il n'y a pas d'urgence, juste de la curiosité.

Bonjour clementmarcotte et à tous,
Ce que je viens de tester et qui marche c'est
- en A1 : 01/01/2015
- en A2 : 01/02/2015
- On sélectionne les 2 cellules
- On prend la poignée et on tire et là seul le mois s'incrémente une fois arrivé à la fin d'année il revient sur le 1 Janvier en ayant incrémenter l'année de +1

Ceci juste pour répondre à clément Je pense que c'est de cela que tu parles, chez cela marche très bien. As tu bien saisie une bonne Date ?

Bonne journée à tous

[patricktoulon]

bonjour philippe et a tous
oui je suis d'accords avec toi c'est pur ca que j'ai mis un "ou" avec dateserial avec (2015,3,0)
ce que je voulais dire c'est que je trouve dommage qu'il n'y ai pas une constante du genre (2015,2,xlendday) ou quelque chose comme ca

c'est tout
en tout cas en voulant aider un forumeur j'ai connu cette methode pour moi c'est tout benef

[clementmarcotte]

Bonjour

Bonjour clementmarcotte et à tous,
Ce que je viens de tester et qui marche c'est
- en A1 : 01/01/2015
- en A2 : 01/02/2015
- On sélectionne les 2 cellules
- On prend la poignée et on tire et là seul le mois s'incrémente une fois arrivé à la fin d'année il revient sur le 1 Janvier en ayant incrémenter l'année de +1

Ceci juste pour répondre à clément Je pense que c'est de cela que tu parles, chez cela marche très bien. As tu bien saisie une bonne Date ?

Bonne journée à tous

Merci à tous pour vos réponses. Je n'avais pas le temps d'élaborer hier, mais je vais compléter aujourd'hui. En fait, c'est quelque chose que j'avais découvert par hasard, il y a quelques mois, ou même peut-être quelques années. J'avais initié une opération quelconque à la souris que j'avais ratée pour une raison ou pour une autre et j'avais trouvé des mois incrémentées automatiquement.

En reprenant la réponse ci-haut, et en refaisant ce que j'ai fait hier, J'ai vu la différence. (Excel 2010)

En sélectionnant juste la cellule du bas, on obtient une recopie incrémentée "ordinaire" et une balise active qui permet de modifier le résultat au besoin
En sélectionnant les deux cellules, cela se passe comme tu l'as dit, plus la même balise active

Et puis, si on sélectionne une ou de cellules et que l'on fait Ctrl+la poignée de recopie incrémentée, on effectue une copie "ordinaire".

En tout cas, merci à tous. C'est une déviation n'a peut-être pas vraiment répondu à la question originale. Mais, comme toujours, si cela peut quand même aider quelqu'un, ce ne sera pas perdu.

[patricktoulon]

bonsoir a tous
clement et igoobel
vous avez tendence a oublier quelque choses d'important
c'est que selectionner 1 ou 2 cellule pour alloger la selection copiant ainsi la date en l'incrémentant implique de travailler sur le sheets actif et oblige a selectionner
a mediter