Bonjour,

Voilà, j'ai modifier cette macro que j'ai trouvé sur internet :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
Sub 2_jours_ouvrés() 
Dim ancdate As Double, nouvdate As Date 
ancdate = CDbl(ActiveCell) 
nouvdate = Format(Workday(ancdate, 2), "dd/mm/yyyy") 
ActiveCell.Offset(0, 1) = nouvdate 
End Sub
Elle permet d'augmenter une date de 2 jours, en ne prenant en compte que les jours ouvrés

Pour qu'elle fonctionne, il faut au préalable installer la Macro Complémentaire "Utilitaire d'analyse - VBA"
Puis dans dans l'éditeur Visual Basic, "Outils > Références > cocher ATPVBAEN.XLS"


Ce que j'ai résussi à modifier pour l'instant, comme vous pouvez le voir, c'est qu'elle me donne le résultat dans la cellule juste en face
Et seulement pour une selection

Ce que j'aimerais c'est qu'elle le fasse pour une colonne entière

Pour l'instant j'ai fait ça :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
Sub 2_jours_ouvrés_bis()
Dim ancdate As Double, nouvdate As Date, cellule As Variant
For cellule = Cells(Rows.Count, ActiveCell.Column).End(xlUp).Row To 1 Step -1
ancdate = CDbl(cellule)
nouvdate = Format(Workday(ancdate, 2), "dd/mm/yyyy")
cellule.Offset(0, 1) = nouvdate
Next cellule
End Sub
Mais ça ne fonctionne pas

Merci par avance pour votre aide !!