Jours ouvrés

[Stan]

Bonjour le forum

Pouvez vous m'aider à rédiger une macro permettant de remplir des cellules avec des jours ouvrés.

En vous remerciant par avance.

Stan

 

[Mireille]

Bonjour, voilà ce que je propose:

Sub JoursOuv()
Range("D5").Select
monNB = 20
Do Until monNB = 0
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveCell.FormulaR1C1 = "=WORKDAY(RC[-2],1)"
monNB = monNB - 1
Loop

End Sub

 

[Stan]

Bonjour le forum

Bonjour Mireille

Un trés grand merci pour ton aide, ça fonctionne à merveille.
Bonne journée.

Stan