Re : Calcul automatique
Bonjour
j'ai fait votre formule,ça fonctionne dans ma colonne AE chez moi, mais il y a encore un problème, dans ma colonne Z il y a une macro pour calculer mes jours de travail et ça prend sur ma colonne Y et ensuite.
Voici la macro pour ma colonne Z.
Function nbj(cellule As Range)
Dim nb1 As String
x = InStr(cellule.Formula, ":")
nb1 = Left(cellule.Formula, x)
For n = 1 To Len(nb1)
If Asc(Mid(nb1, n, 1)) > 47 And Asc(Mid(nb1, n, 1)) < 58 Then
nb11 = nb11 & Mid(nb1, n, 1)
End If
Next n
nb2 = Right(cellule.Formula, Len(cellule.Formula) - x)
For n = 1 To Len(nb2)
If Asc(Mid(nb2, n, 1)) > 47 And Asc(Mid(nb2, n, 1)) < 58 Then
nb21 = nb21 & Mid(nb2, n, 1)
End If
Next n
nbj = nb21 - nb11 + 1
End Function
Merci
Carl