Discussion :

[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 :

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

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

avec l'année en A1.

Hervé.

[Didier Gonard]

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 :

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

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