Calculs à partir de données d'un tableau Excel

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:

---

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

Il te faut faire une boucle sur tes données

Code:

---

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

et les jours fériés >??