Discussion :

[gwenandance]

Bonjour,

J'ai un tableau sous Excel avec des dates et je dois afficher dans la deuxième colonne le prochain jour ouvré. J'ai créé la fonction pour calculer le prochain jour ouvré, mais je ne sais pas comment passer en revue chacune des dates et compléter la deuxième colonne avec les résultats... Pourriez-vous m'aider à créer cette procédure ?

Date Prochain Jour ouvré
29/03/2007
16/03/2007
03/03/2007
18/02/2007
05/02/2007
23/01/2007
10/01/2007
28/12/2006
15/12/2006
02/12/2006
19/11/2006
06/11/2006
24/10/2006

Ma fonction :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Function JourOuvré(ByVal vDate As Date) As Date
 
    Dim message As String
 
    If CLng(vDate) = 0 Then
        vDate = Date
    End If
 
    Select Case Weekday(vDate)
        Case vbMonday To vbFriday
            JourOuvré = vDate
            message = vDate
        Case vbSaturday
            JourOuvré = vDate + 2
            message = JourOuvré
        Case vbSunday
            JourOuvré = vDate + 1
            message = JourOuvré
    End Select
 
    MsgBox message
 
End Function

Merci d'avance.

Bonne soirée

[jfontaine]

Il te faut faire une boucle sur tes données

Code :

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

1
2
3
4
5
6
7
 
Dim i As Long
i = 1
Do While Range("A" & i).Value <> ""
    Range("B" & i).Value = JourOuvre(CDate(Range("A" & i).Value))
    i = i + 1
Loop

PS : Evites de mettre des accents dans le nom des precedures et des variables

[random]

et les jours fériés >??