Discussion :

[gds35]

Mes AMIS du Forum Bonjour ,

Je desire creer dans les cellules C3 à C10 et dans les colonnes suivantes avril Mai etc soit C3 à C10 D3 a D10 Etc la valeur contenant le dernier jour de chaque mois (ex 31/03/XXXX) ou XXXX serais 2011 puis l'Année suivante 2012 ..... Etc. Impossible d'ecrire le code pouvant réalider cela auriez vous une p'tit idée pour m'aider ???? D'avance Merci Cordialment GDS35 Bonne soirée

[pgz]

Bonjour.

Pour la partie calcul des dates, voici une méthode. Par exemple, caluler les dates pour les 1 premiers mois, en commençant au 31/3/2011.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub subgds35()
Dim dte As Date
Dim i As Integer
 
dte = #3/31/2011#'cette date est la dernière d'un mois.
For i = 0 To 3
    dte = DateAdd("m", 1, dte + 1) - 1
    MsgBox dte
Next i
 
End Sub

Il te reste à adapter à ta feuille.

Cordialement

PGZ

[Fvandermeulen]

Bonjour (Salut PGZ)

Une autre méthode:

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub CreaDate()
Dim R As Byte, C As Byte
 
For C = 3 To 8 'Boucle sur colonne => 5 années commençant par l'année en cours dans la colonne C
    For R = 3 To 10 'Boucle sur les lignes de 3 à 10 suivant Post Dvp, ligne 3 = Mars
        Sheets("Tafeuille").Cells(R, C) = DateSerial(Year(Date) + C - 3, R + 1, 1) - 1
    Next R
Next C
 
End Sub

A+

[pgz]

Bonsoir Frédéric.

Ce que tu proposes répond plus précisément à la question posée.

Amitiés,

PGZ

[tedo01]

Bonjour,
J'ajoute une petite astuce pour vous simplifier la vie : il n'est pas obligatoire de fournir à la fonction DateSerial les paramètres exacts, si on lui donne des numéros de jour ou de mois hors des bornes, elle calcule la date correspondante.
C'est très utile pour trouver par exemple le dernier jour du mois : DateSerial(2011, 3, 0) = 28 février 2011 !