Bonjour,
Je tente d'écrire un code pour monter un tableau de type calendrier.
En fait, je souhaite avoir une cellule contenant une date, puis une seconde dessous blanche, puis une troisième avec la date suivant la date de la première cellule, puis une date blanche ...
Le code suivant bloque dans ma routine "For i = 1 To nb_jours - 1" à l’intérieur de laquelle j'insère un If.
J'ai une erreur de type "Erreur de compilation, For sans Next"
Quelqu'un peut il m'expliquer ? Et me donner des conseils...
D'avance merci, je débute
Sub mon_tablo()
Dim i As Variant
Dim date_debut As Date
Dim date_test As Date
Dim nb_jours As Long
i = 12
date_debut = "1/5/2013"
date_test = date_debut
nb_jours = Day(DateSerial(Year(date_test), Month(date_test) + 1, 1) - 1)
'MsgBox (nb_jours)
Sheets("Feuil3").Activate
Range("A1").Value = date_debut
Range("A1").Select
ActiveCell.Offset(1, 0).Select
ActiveCell.Value = date_debut
ActiveCell.Offset(1, 0).Select
For i = 1 To nb_jours - 1
If (i Mod 2) = 0 Then
Cells(i + 1, 1).Value = date_debut + i
Else
Cells(i + 1, 1).Value = ""
Next i
End Sub
Je tente d'écrire un code pour monter un tableau de type calendrier.
En fait, je souhaite avoir une cellule contenant une date, puis une seconde dessous blanche, puis une troisième avec la date suivant la date de la première cellule, puis une date blanche ...
Le code suivant bloque dans ma routine "For i = 1 To nb_jours - 1" à l’intérieur de laquelle j'insère un If.
J'ai une erreur de type "Erreur de compilation, For sans Next"
Quelqu'un peut il m'expliquer ? Et me donner des conseils...
D'avance merci, je débute
Sub mon_tablo()
Dim i As Variant
Dim date_debut As Date
Dim date_test As Date
Dim nb_jours As Long
i = 12
date_debut = "1/5/2013"
date_test = date_debut
nb_jours = Day(DateSerial(Year(date_test), Month(date_test) + 1, 1) - 1)
'MsgBox (nb_jours)
Sheets("Feuil3").Activate
Range("A1").Value = date_debut
Range("A1").Select
ActiveCell.Offset(1, 0).Select
ActiveCell.Value = date_debut
ActiveCell.Offset(1, 0).Select
For i = 1 To nb_jours - 1
If (i Mod 2) = 0 Then
Cells(i + 1, 1).Value = date_debut + i
Else
Cells(i + 1, 1).Value = ""
Next i
End Sub