[Novice] Incrementer des dates

Bonjour à tous,

Après maintes recherches sans succes.

J'aimerais incrementer les dates d'une année, en tenant compte des années bisextilles sur une feuille excel en colonne "A" et ce à partir d'une année selectionnée dans un ComboBox sur un UserForm.

Quelqu'un pourrais m'aider svp?

Merci de m'avoir lu.

Fasedan

Bonjour

Normalement les années bisextilles sont prises en compte par Windows, à mon avis il faudrait que tu jettes un coup d'oeil à la fonction DateAdd.

Bonjour,

Pour savoir si une année est bissextile, la formule est :

Code:

---

1 2	=OU(MOD(A1;4)=0;ET(MOD(A1;4)=0;MOD(A1;100)<>0))

---

avec l'année en A1.

Hervé.

Bonjour,

Citation:

---

Normalement les années bisextilles sont prises en compte par Windows,

---

, sous Excel aussi pour peu qu'on ne travaille pas sur l'année 1900...

Code:

---

1 2 3 4 5 6 7 8 9

Sub toto() Dim I Dim maDate As Date   maDate = #2/26/2012# 'test changer 2012 en 2013 For I = 1 To 6 Cells(I, 1) = maDate + I ' I= 3 => 29 fev Next I End Sub

---

voir ce tuto aussi : http://didier-gonard.developpez.com/...et-vba/#LIII-C

cordialement,

Didier

Je me suis trompé concernant les balises [code]

Je recommence donc,

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

Private Sub CommandButton2_Click() Worksheets("Calendrier").Select Range("a1").Select Dim dte As Date Dim I As Integer Dim Annee As Integer Annee = "2012" dte = "31/12/" & Annee - 1 'dte = "31/12/2010" I = 1 Do While dte < "31/12/" & Annee dte = DateAdd("d", 1, dte)     Select Case Weekday(dte, vbMonday) Case 1, 2, 3, 4, 5, 6, 7 Range("A" & I).Value = Format(dte, "mm/dd/yyyy") Range("B" & I).Value = Format(dte, "mmmm yyyy")   I = I + 1 End Select Loop End Sub

---

Voilà c'est mieux et mille excuses.
Fasedan

Bonjour,

Voici ton code avec la recherche de la dernière ligne renseignée

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Private Sub CommandButton2_Click() Dim dte As Date Dim DerLg As Long Dim I As Integer, Annee As Integer With Worksheets("Calendrier") 'Recherche de la dernière ligne renseignée en colonne A DerLg = .Range("A" & .Rows.Count).End(xlUp).Row Annee = InputBox(prompt:="Indiquez l'année", Title:="Année", Default:=2012) dte = "31/12/" & Annee - 1 Do While dte < "31/12/" & Annee dte = DateAdd("d", 1, dte) Range("A" & I + DerLg).Value = Format(dte, "mm/dd/yyyy") Range("B" & I + DerLg).Value = Format(dte, "mmmm yyyy") I = I + 1 Loop End With End sub

---

Cordialement.

Merci de m'avoir lu et répondu.

Mais le code ne fonctionne pas, cela ne rajoute pas les dates d'une année complète à la suite du dernier enregistrement.

Bon après midi.
Fasedan

J’ai effectué le test.
La seule anomalie que j’ai trouvée, c’est un mauvais positionnement du premier jour de l’année listée (le 31/12 était écrasé par la nouvelle liste).
J’ai remplacé Derlg par LigneAjout qui correspond à la première ligne vide.
Je saisis l’année 2012, je clique sur OK … l’année 2012 est correctement listée de la ligne 2 à la ligne 367.
Je saisis l’année 2013, je clique sur OK … l’année 2013 est correctement listée de la ligne 368 à la ligne 732.
Essaie d’être plus explicite sur ce qui ne fonctionne pas de ton coté.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Private Sub CommandButton2_Click() Dim dte As Date Dim LigneAjout As Long Dim I As Integer, Annee As Integer With Worksheets("Calendrier") 'Recherche de la première ligne vide en colonne A LigneAjout = .Range("A" & .Rows.Count).End(xlUp).Row + 1 Annee = InputBox(prompt:="Indiquez l'année", Title:="Année", Default:=2012) dte = "31/12/" & Annee - 1 Do While dte < "31/12/" & Annee dte = DateAdd("d", 1, dte) Range("A" & I + LigneAjout).Value = Format(dte, "mm/dd/yyyy") Range("B" & I + LigneAjout).Value = Format(dte, "mmmm yyyy") I = I + 1 Loop End With End Sub

---

Cordialement.

Bonjour,
J'ai pu avancer avec le code de gFZT82, encore merci.
Mais aussi merci au site "Developpez.com"

Cela me retire une épine du pied et le code fonctionne à merveille.

Je reviendrai surement plus tard.

Fasedan