Affichage date du mois en cours sur une colonne et une ligne sur trois

**altra** · 07/08/2009, 16h09

Bonjour à toutes et à tous

Dans un fichier excel, j'aimerais avoir sur toute une colonne les dates de tous le mois en cours.
Par exemple pour le mois d'aout avoir 01-aout-09 sur la ligne 6 puis 02-aout-09 sur la ligne 9 puis 03-aout-09 sur la ligne 12 et ainsi de suite jusque la fin du mois. Puis en cliquant sur un bouto la colonne se mettrait à jour du mois en cours.

Pour l'instant avec un code tout simple j'arrive a afficher la même date sur une colonne, mais seulement à partir du jour ou je clique dessus, et je n'arrive pas à l'inscrire une ligne sur 3. En gros j'arrive pas a faire grand chose

Code :

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

1
2
3
4
5
Sub mise_date()
        For i = 6 To 96
            Worksheets("test").Cells(i, 1) = Date
        Next i
End Sub

De l'aide serait appreciée

Merci beaucoup,

bonne journée

**jfontaine** · 07/08/2009, 16h23

Bonjour,

Un bout de code qui devrait t'avancer

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Sub mise_date()
Dim i As Integer
Dim dteDate As Date
 
dteDate = Now
 
 
        For i = 6 To 96
            dteDate = DateAdd("D", 1, dteDate)
            Me.Cells(i, 1).Value = dteDate
        Next i
End Sub

**mercatog** · 07/08/2009, 16h24

pour commencer:

Code :

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

1
2
3
4
Dim i As Integer
        For i = 0 To 30
            Sheets("test").Cells(3 * i+6, 1) = Date + i
        Next i

**jfontaine** · 07/08/2009, 16h30

Pour ecrire toutes les 3 lignes ajoute le code ci dessous avant le next

Code :

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

**altra** · 07/08/2009, 16h37

Malin ta solution mercatog.

D'accord j'avais deja ajouté i=i+2 mais sur la même ligne que le next, donc ça ne marchait pas.

Avez vous une idée pour que la date commence au premier jour du mois et non pas à la date actuelle (ou date actuelle +1 pour la solution de jfontaine)

Sinon, il suffit d'appuyer sur le bouton du premier jour du mois.

Merci pour votre aide en tous cas.

**jfontaine** · 07/08/2009, 16h45

Pour commencer sur le premier jour du mois

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub mise_date()
Dim i As Integer
Dim dteDate As Date

dteDate = "01/" & Month(Date) & "/" & Year(Date)


        For i = 6 To 96
            Me.Cells(i, 1).Value = dteDate
            dteDate = DateAdd("D", 1, dteDate)
            i = i + 2
        Next i
End Sub