[XL-2007] [Novice] Incrementer des dates [Résolu]

[fasedan]

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

[PeyePo]

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.

[Theze]

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é.

[Ormonth]

Bonjour,

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

[fasedan]

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

[gFZT82]

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.

[fasedan]

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

[gFZT82]

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.

[fasedan]

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