Discussion :

[nicolav]

Bonjour,

J'aimerais avoir un résultat de ce type :

|SEMAINE 28 |
|06/07/09 | 07/07/09 | 08/07/09 | 09/07/09 | 10/07/09|11/07/09|12/07/09 |

les caractères " | " représentent les cellules biensures

J'ai réussit a afficher les semaines mais je n'arrive pas a afficher les jours pour qu'ils se suivent. Aussi comment faire pour "SEMAINE 28'" s'étendent sur 7 cellules ?

Merci Beaucoup

[JPierreM]

En A1 tu indiques la date du lundi

Code :

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

1
2
3
Sub sc()
Selection.AutoFill Destination:=Range("A1:G1"), Type:=xlFillDefault
End Sub

[nicolav]

Euh j'ai du mal m'expliquer.

En fait, ce que je voudrais c'est si je lance l'appli aujourd'hui obtenir ça :
|SEMAINE 28 |
|06/07/09 | 07/07/09 | 08/07/09 | 09/07/09 | 10/07/09|11/07/09|12/07/09 |

Si je lance l'appli demain j'aurai ça
|SEMAINE 28 |
|07/07/09 | 08/07/09 | 09/07/09 | 10/07/09|11/07/09|12/07/09 |

Si je lance l'appli mercredi j'aurai ça
|SEMAINE 28 |
| 08/07/09 | 09/07/09 | 10/07/09|11/07/09|12/07/09 |

merci

[Krovax]

Teste la bonne date a mettre en première cellule pour qu'elle soit un lundi (fonction Weekday(tadate) )
Le lien vers la Faq
http://access.developpez.com/faq/?pa...#NumJourSmaine

[casavba]

Voici une solution à modifier en cas de besoin:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Sub test()
 
Dim NumSem As Byte
Dim TonTableau() As String
Dim i As Integer, j As Integer
 
NumSem = DatePart("ww", Date, vbMonday, vbFirstFourDays)
i = 7 - DatePart("w", Date, vbMonday, vbFirstFourDays)
 
ReDim TonTableau(i)
 
For j = 0 To UBound(TonTableau)
        TonTableau(j) = Date + j
    Next j
 
With ActiveSheet
    .Cells(1, 1) = "Semaine " & NumSem
    .Range(Cells(2, 1), Cells(2, i + 1)) = TonTableau
End With
 
End Sub

[nicolav]

Merci casavba , j'ai pu arrivé à ce que je voulais en modifiant le code que vous m'avez donné.