Equivalent formule par macro

[Mitch]

Bonjour , par une formule j'arrive a calculer le Nb de jour entre 2 dates tout en tenant compte des jours fériés

EXP : =SERIE.JOUR.OUVRE(B4-1;Q4;'Jours Fériés'!C10:C78)

B4 et la date début , -1 pour compter le 1er jour , Q4 et le Nb de jour estime , jusque la pas de problème, mais comment faire la même chose dans ma macro

Private Sub ComboBox2_Change()
With Sheets("suivi appro")
TextBox1 = .Cells(ComboBox2.ListIndex + 4, 17)
End With
If TextBox1 <> "" Then TextBox2 = DTPicker1 + TextBox1 - 1
End Sub
Private Sub DTPicker1_Change()
If TextBox1 <> "" Then TextBox2 = DTPicker1 + TextBox1 - 1
End Sub

 

[jpb388]

Re : Equivalent formule par macro

Bonjour
tu peux t'en servir ainsi :
mavar = Application.WorksheetFunction.WorkDay(Range("B4"), Range("Q4"), Range("c10:c78"))
a+
jp

 

[kjin]

Re : Equivalent formule par macro

Bonjour,

Private Sub ComboBox2_Change()
With Sheets("suivi appro")
    TextBox1 = .Cells(ComboBox2.ListIndex + 4, 17)
End With
If TextBox1 <> "" Then TextBox2 = DTPicker1 + TextBox1 - 1
End Sub
Private Sub DTPicker1_Change()
If TextBox1 <> "" Then TextBox2 = DTPicker1 + TextBox1 - 1
End Sub

C'est simple : hé hop !
Mais ça ne marche pas à tous les coups
kjin 😡