correction code vba [RESOLU]

[Dudesson]

bonjour le forum,
j'ai adapté ce code trouvé sur le site à mon besoin et il donne les bons résultats mais comme j'essaye en même temps d'apprendre, j'aimerais avoir d'autres solutions moins répétitives que la mienne, ça pourrait m'aider pour d'autres projets.
merci d'avance pour votre aide.
Pedro.

 

[mapomme]

Bonjour @Dudesson,

Essayez:

Private Sub worksheet_activate()
Dim Annee As Integer, Semaine As Integer, NumJour As Integer, i&
Annee = 2019
Range("G1") = DatePart("ww", Date, 2, 2)
Semaine = Range("G1").Value
For i = 0 To 4
  Range("b3:b5").Offset(4 * i) = Evaluate("TEXT(DATE(" & Annee & ",1,3)-WEEKDAY(DATE(" & Annee & _
    ",1,3))-5+(7*" & Semaine & ")+" & i & ",""[$-fr-BE]ddd d mmm yyy"")")
Next i
End Sub

 

[Jean-Eric]

Bonjour,
Une proposition à étudier.
Cdlt.

 

[Dudesson]

bonjour @Jean-Eric , @mapomme ,
merci bcp pour vos réponses, toutes les 2 propositions fonctionnent à merveille.
sincères salutations.
bien à vous.
Pedro.