[XL-2003] Incrémentation date dans Plage

Incrémentation date dans Plage

Bonjour,

j'essaie de remplir un petit planing de la semaine
Dans le cellule 'B2" j'ai réussi à introduire la date
du Lundi de la semaine en cours.
je voudrais que la cellule "B3" affiche la date de la cellule +1
ainsi de suite jusq'au vendredi.
j'ai essayé ceci mais il me retourne une erreur(13) de type mismatch

voici le code

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
 
Private Sub Workbook_Open()
'Déclaration des variables
Dim sem, i As Integer
Dim jour As Variant
'Assignation des variables
sem = Format(Date, "ww")
jour = DateSerial(Year(Date), 1, 1)
i = 0
'Sélection de la feuille
ActiveWorkbook.Worksheets("Sheet1").Select
'Ajout d'une valeur dans la cellule "A1"
Range("A1").Value = " Semaine N°" & sem
'Calcul du jour de la semaine
'vérication si samedi ou vendredi
If Weekday(jour) = 6 Or Weekday(jour) = 7 Then
    jour = jour - Weekday(jour) + 2
Else
    jour = jour - Weekday(jour) - 5
End If
'Calcule du lundi de la semaine
jour = jour + 7 * sem
'Ajout de date dans les cellules "B2:B6"
For i = 2 To 6
    jour = Format(jour, "ddd") & Chr(10) & Format(jour, "d") & Chr(10) & Format(jour, "mmm") 'Mise en format
    ActiveSheet.Cells(2, i).Value = jour 'Affectation
    jour = DateAdd("d", 1, jour) 'Incrémentation  <-------------erreur
Next
End Sub
 
 
Une idée merci

Salut,
Le premier truc a faire c'est ca

Code:

Dim jour As Date

car jour est une date
Lorsque dans ton code tu ecris

Code:

jour=Dateserial(...)

jour attend une date donc il faut le déclarer ainsi

Ensuite remplace
Code:

1 2 3 4 5 For i = 2 To 6 jour = Format(jour, "ddd") & Chr(10) & Format(jour, "d") & Chr(10) & Format(jour, "mmm") 'Mise en format ActiveSheet.Cells(2, i).Value = jour 'Affectation jour = DateAdd("d", 1, jour) 'Incrémentation <-------------erreur Next
par
Code:

1 2 3 4 For i = 2 To 6 ActiveSheet.Cells(2, i).Value = Format(jour, "ddd") & Chr(10) & Format(jour, "d") & Chr(10) & Format(jour, "mmm") 'Affectation jour = jour + 1 'DateAdd("d", 1, jour) 'Incrémentation <-------------erreur Next
Comme jour est au format date, tu peux l'incrémenter comme n'importe quelle variable Long, Integer ou Double.

Par contre pour choisir le format d'affichage, le plus simple c'est de le faire directement dans la cellule

un grand merci,