Discussion :

[michel13]

Bonsoir, je cherche une fonction qui peut calculé :
Ex : A1 = date B1 = nbr jours ouvrés
C1 = nbr (nbr jours total entre A1 et B1)
D1 = la date qui coresponde à C1

Merci.

[ouskel'n'or]

Regarde dans Contribuez-Excel, http://www.developpez.net/forums/sho...d.php?t=297576, tu devrais trouver ton bonheur

[michel13]

Bonjour et merci pour votre reponse.
Pour instant je n'ai pas de solutions c'est pour cela que je vous explique un peu plus clair :

dans la colonne # A:A = date dans la colonne B:B = (le nbr jours ouvrés sans ferié, samedi et dimanche) #
Je doit trouvé en C:C la date qui coresponde par rapport au nbr B:B avec feriés, samedi et dimanche inclus.

Merci.

[ouskel'n'or]

As-tu testé le code ?
Dans L 'Editeur VB -> Ajoute atpvbaen.xls en référence au projet
Se trouve dans "C:\Program Files\Microsoft Office\Office10\Macrolib\Analyse\ATPVBAEN.XLA"
Dans l'éditeur VB -> Outils -> Références -> Valider "ATPVBAEN"
S'il n'y est pas, le rechercher avec Parcourir. Et le valider.
Ensuite tu testes

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Sub test()
    LaDate = CDbl(Date)
    NewDate = Format(Workday(LaDate, 7), "dd/mm/yyyy") 
    MsgBox NewDate '=> Aujourd'hui + 7 Jours + un week-end
End Sub

Il te reste à faire une boucle sur le nombre de lignes renseignées de ta feuille de calculs et à utiliser Workday pour additionner la cellule de la colonne A avec celle de la colonne B et de placer le résultat en C

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Cells(NoLig, 3) = Workday(Cells(NoLig, 1).value, Cells(NoLig, 2).value)

Et si tu veux formater la date obtenue, tu formates la colonne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

    Columns("C:C").NumberFormat = "m/d/yyyy"

Bonne soirée