Discussion :

[stargates]

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 :

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

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

Dim jour As Date

car jour est une date
Lorsque dans ton code tu ecris

Code :

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

jour=Dateserial(...)

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

Ensuite remplace

Code :

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

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 :

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

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

[stargates]

un grand merci,