Discussion :

[wyzer]

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 !!

[mercatog]

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub 2_jours_ouvrés_bis()
Dim ancdate As Double, nouvdate As Date, cellule As range
dim X as integer
 
For each cellule in range(cells(1,X),cells(rows.count,X).end(xlup))  'X le n° de la colonne
ancdate = CDbl(cellule)
nouvdate = Format(Workday(ancdate, 2), "dd/mm/yyyy")
cellule.Offset(0, 1) = nouvdate
Next cellule
End Sub

[wyzer]

Ça fonctionne !!!!!

Merci !!!!!!