Macro exel vers sheets

Y compris Google Docs, Slides et toute autre question en lien avec une application Google
C
CH59570
Nouveau venu
Nouveau venu
Messages : 1
Inscrit le : 26 juillet 2019

Message par CH59570 » 26 juillet 2019, 08:50

Bonjour à tous,

je suis nouveau sur ce forum en espérant que quelqu'un puisse me venir en aide :)

Voici ma demande,
Je souhaiterais copier une macro d'excel vers sheets mais je bloque complètement.

Voici la macro que je souhaiterais utiliser sur sheets:
Function Datefin(deb As Date, duree As Date, feries As Range) As Date
Dim t1 As Date, t2 As Date, t3 As Date, t4 As Date, jour As Date
Dim dat&, t As Date, dur As Date, d#
t1 = [C3]
t2 = [D3]
t3 = [C4]
t4 = [D4]
jour = t2 - t1 + t4 - t3
dat = Int(CDbl(deb))
t = TimeValue(deb)
If IsError(Application.Match(dat, feries, 0)) And Weekday(dat, 2) < 6 Then
  If t <= t1 Then dur = jour
  If t > t1 And t < t2 Then dur = t2 - t + t4 - t3
  If t >= t2 And t < t3 Then dur = t4 - t3
  If t >= t3 And t < t4 Then dur = t4 - t
End If
While dur < duree
  dat = dat + 1
  If IsError(Application.Match(dat, feries, 0)) And Weekday(dat, 2) < 6 _
    Then dur = dur + jour
Wend
d = dur - duree
Datefin = dat + t4 - d - IIf(d >= t4 - t3, t3 - t2, 0)
End Function
Merci pour votre aide.
Capture.PNG
m
m3ellem1
Membre dévoué
Membre dévoué
Messages : 904
Appréciations reçues : 68
Inscrit le : 18 décembre 2018
Version d'Excel : 2016

Message par m3ellem1 » 16 août 2019, 10:54

Salut CH59570 et bienvenue sur le Forum,

:joindre:
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message