VBA planning date départ date de fin, jours ouvrés uniquement

Bonsoir à tous,

Voici mon problème, je coince depuis des heures :

Le principe est le suivant : l'utilisateur rentre dans la cellule F27 la date de début du chantier et en F29 la date de fin.

Sur la base de ces données, je souhaite simplement faire un planning avec pour chaque ligne d'une même colonne la date (dd/mm/yyyy) en jours ouvrés du début à la fin du chantier.

J'ai pour le moment réussi à remplir ma colonne du début à la fin du chantier mais impossible de trouver le moyen de ne pas saisir les jours de weekend.

Voici le code que j'utilise :

Dim Datedebut As Date 'Je définis la variable Datedébut comme une date
Dim Datefin As Date 'Je définis la variable Datedébut comme une date
Dim nouveau As Date ' C'est la valeur de la date qui va s'incrémenter
Dim d As Long 'je crée une variable pour incrémenter mon nombre de ligne de 1

Datedebut = Parametres.Range("F27").Value
Datefin = Parametres.Range("F29").Value
Bilanprod.Range("C9").Value = Datedebut ' C'est dans la cellule C9 de mon planning que je souhaite démarrer les dates
d = 9
nouveau = Datedebut ' nouveau est ma variable qui incrémente les jours dans ma colonne
Do While nouveau <= Datefin 'tant que nouveau n'atteint pas la date de fin
Bilanprod.Cells(d, 3).Value = nouveau
nouveau = nouveau + 1
d = d + 1
Loop

Merci d'avance pour votre aide

Bonsoir,

avec les "balises code" du site une des solutions :

Sub LouReeD()
    Dim datedébut As Date, datefin As Date
    datedébut = CDate(Cells(1, 1))
    datefin = CDate(Cells(2, 1))
    Cells(9, 3) = datedébut
    d = 9
    ' mise en place de la formule SERIE.JOUR.OUVRE.INTL
    Do
        d = d + 1
        Cells(d, 3).FormulaR1C1 = "=WORKDAY.INTL(R[-1]C3,1,1)"
    Loop While CDate(Cells(d, 3).Value) < CDate(datefin)
    ' Transformation des formule en valeur
    Range("C9:C" & Range("C" & Rows.Count).End(xlUp).Row) = Range("C9:C" & Range("C" & Rows.Count).End(xlUp).Row).Value
End Sub

@ bientôt

LouReeD

Bonjour LouReed,

Top ! ça fonctionne très bien donc merci beaucoup !

Je débute en vba et je ne connaissais pas du tout formulaR1C1 (ni Worday.Intl, je me suis renseigné et ça a l'air d'être vraiment pratique pour pleins de problèmes.

Merci encore et à bientôt !

Bonjour

Merci à vous pour ce retour et vos remerciements !

@ bientôt

LouReeD