Salut André
bonsoir le fil
je vois que tu as eu des propositions (honnêtes j'espère )suite au post de Pascal j'avais fait cette Fonction arffff
donc je poste lol
Public Function Cmpjour(MydateDept As String, MyDateFin As String)
Dim DatDept As Long, DatFin As Long
Dim Item As Long
Dim Njour As Integer
DatDept = Format(CDate(Application.Substitute(Trim(MydateDept), '.', '/')), '00000')
DatFin = Format(CDate(Application.Substitute(Trim(MyDateFin), '.', '/')), '00000')
For Item = DatFin To DatDept Step -1
If Weekday(Item) > 1 Then Njour = Njour + 1
Next
Cmpjour = Njour
End Function
dans la colonne C en C1 mettre = cmpjour(A1;B1)puis incrémenter
bonne fin de Journée
Message édité par: Chti160, à: 27/06/2006 18:56