B
Boby71C
Guest
Bonjour à tous
Je désires créer un tableau avec tous les jours de l'année en commençant le 1er Janvier sauf les samedis et dimanches. Conserver les jours fériés.
Mon calendrier doit commencer en cellule E1 car de A1 à D1, j'ai d'autres données( textes et nombres)
En ligne 2, je doit indiquer les N° de semaines toujours en partant de E2
Ci-joint un éssai mais je n'arrive pas à commencer en E1 et les semaines ne s'affichent pas et je dois enlever les week end manuellement.
Sub Semaines()
'Transformer les dates en nombres
Range(Cells(1, 5), Cells(1, 256)).Select
Selection.NumberFormat = "0"
da = 1
While Cells(1, da).Value <> ""
If (Cells(1, da + 1).Value - Cells(1, da).Value) > 1 Then
With Range(Cells(1, da), Cells(36, da)).Borders(xlEdgeRight)
.LineStyle = xlDash
.Weight = xlMedium
.ColorIndex = 3
End With
Cells(2, da).Select
ActiveCell.FormulaR1C1 = "=NO.SEMAINE(R[-1]C,2)"
End If
da = da + 1
Wend
' Transforme les nombres de la igne 1 en dates
Range(Cells(1, 5), Cells(1, 256)).Select
Selection.NumberFormat = "d/m"
Cells(2, da).Select
ActiveCell.FormulaR1C1 = "=NO.SEMAINE(R[-1]C,2)"
End Sub
Merci de votre aide et trés bon Week End à vous
Je désires créer un tableau avec tous les jours de l'année en commençant le 1er Janvier sauf les samedis et dimanches. Conserver les jours fériés.
Mon calendrier doit commencer en cellule E1 car de A1 à D1, j'ai d'autres données( textes et nombres)
En ligne 2, je doit indiquer les N° de semaines toujours en partant de E2
Ci-joint un éssai mais je n'arrive pas à commencer en E1 et les semaines ne s'affichent pas et je dois enlever les week end manuellement.
Sub Semaines()
'Transformer les dates en nombres
Range(Cells(1, 5), Cells(1, 256)).Select
Selection.NumberFormat = "0"
da = 1
While Cells(1, da).Value <> ""
If (Cells(1, da + 1).Value - Cells(1, da).Value) > 1 Then
With Range(Cells(1, da), Cells(36, da)).Borders(xlEdgeRight)
.LineStyle = xlDash
.Weight = xlMedium
.ColorIndex = 3
End With
Cells(2, da).Select
ActiveCell.FormulaR1C1 = "=NO.SEMAINE(R[-1]C,2)"
End If
da = da + 1
Wend
' Transforme les nombres de la igne 1 en dates
Range(Cells(1, 5), Cells(1, 256)).Select
Selection.NumberFormat = "d/m"
Cells(2, da).Select
ActiveCell.FormulaR1C1 = "=NO.SEMAINE(R[-1]C,2)"
End Sub
Merci de votre aide et trés bon Week End à vous