Convertir formulle en vba

[Ilino]

Bonsoir Forum

=SOMMEPROD((JOURSEM(LIGNE(INDIRECT(C1&":"&D1)))>1) *1)-SOMMEPROD(((JOURSEM(Ferie)>1))*(Ferie>=C1)*(Ferie<=D1))

Qlq un peut m'aider a convertire cette formule en VBA
MERCI

 

[Ilino]

Re : Convertir formulle en vba

Bonsoir.
Quel résultat veux-tu en colonne E.
Le nombre de jours ouvrés sans les Fériés ?
A+

Bonjour
merci encore une fois pour ton aide
oui nbr de jours ouvrables seulement
Grazie

 

[Regueiro]

Re : Convertir formulle en vba

Bonjour Le Forum et Ilino
Voir en PJ le fichier.
Il y a une procécure évenementielle sur la feuille "Essais"
A+

 

[Ilino]

Re : Convertir formulle en vba

Re Bonsoir Regueiro
Grazie pour la réponse c'est exactement ce que je cherchais
mais j'ai un autre souci !!! comment faire pour modifier le week end de (SAMEDI DIMANCHE) a ( LUNDI MARDI)
a+

 

[Ilino]

Re : Convertir formulle en vba

Bonjour FoRuM
QLQ un peut m'aider a régler ce souci??
merci par avance

 

[job75]

Re : Convertir formulle en vba

Bonjour Ilino, le fil,

Je suppose qu'il s'agit encore une fois du même fichier et de la suite de ce fil :

https://www.excel-downloads.com/threads/clignote-la-cellule-date-si-a-depasse-la-date-today.199787/

Alors pourquoi ne pas continuer avec la macro existante :

Private Sub Worksheet_Change(ByVal Target As Range)
'ligne de titres en ligne 1
Dim r As Range, c1 As Range, c2 As Range, i&, n&
Set r = Intersect([K:K,R:R,S:S], Rows("2:" & Rows.Count))
Set r = Intersect(Target, r, Me.UsedRange)
If Not r Is Nothing Then
  Application.EnableEvents = False 'désactive les événements
  For Each r In r 'si plusieurs cellules
    Set c1 = Cells(r.Row, "K"): Set c2 = Cells(r.Row, "R")
    If Not IsDate(c1) Then c1 = ""
    If IsDate(c2) Then If c2 < c1 Then c2 = ""
    If IsDate(c2) Then
      While Weekday(c2, 2) > 5 Or _
        Application.CountIf([Fériés], c2) 'si le jour n'est pas ouvré
        c2 = c2 + 1
      Wend
      If IsDate(c1) Then 'nombre de jours ouvrés
        For i = Int(c1) To Int(c2)
          If Weekday(i, 2) < 6 And _
            Application.CountIf([Fériés], i) = 0 Then n = n + 1
        Next
        c2(1, 2) = n 'colonne S
      Else
        c2(1, 2) = "" 'colonne S
      End If
    Else
     c2 = IIf(IsDate(c1), "Date en attente", "")
     c2(1, 2) = "" 'colonne S
    End If
  Next
  Application.EnableEvents = True 'réactive les événements
End If
End Sub

Vous avez pourtant de la suite dans les idées Ilino, alors quoi, ça ne vous convient pas ?

Fichier (3).

A+

 

[Ilino]

Re : Convertir formulle en vba

Bonjour Ilino, le fil,

Je suppose qu'il s'agit encore une fois du même fichier et de la suite de ce fil :


A+

Bonjour Forum, Salut Maitre
oui sur le meme fichier mais ce n'est pas les meme colonnes
en tout les cas ton code il est serviable
merci
A+

 

[Regueiro]

Re : Convertir formulle en vba

Bonsoir le Forum, Ilino et Job75
Ilino comme tu le dit si bien, je crois que as la réponse du MAITRE.
Je regarde pour ta question du Post N°18
A+

 

[Regueiro]

Re : Convertir formulle en vba

Re
Voilà le code pour le nombre de jour ouvrés sans les Lundi et Mardi ( Samedi et Dimanche Compris)

FormulaR1C1 = "=NETWORKDAYS.INTL(RC[-2],RC[-1],3,Férie)"

A+

 

[Ilino]

Re : Convertir formulle en vba

Re
Voilà le code pour le nombre de jour ouvrés sans les Lundi et Mardi ( Samedi et Dimanche Compris)

A+

Re Bonsoir amico Regueiro
je suis désolé ça ne marche pas ????
A+

 

[Regueiro]

Re : Convertir formulle en vba

Bonsoir.
Bien sûr que ça fonctionnne.
Enlève l'accent sur Férie = Ferie
Voilà le fichier en PJ
A+

 

[Ilino]

Re : Convertir formulle en vba

Re amico
merci pour la remarque, encore ça fonctionne pas tu sais pourquoi amico??
Edition excel 2010 moi je travail sur excel 2007
A+

 

[job75]

Re : Convertir formulle en vba

Bonjour le fil,

Suite (et fin ?) sur ce fil :

https://www.excel-downloads.com/threads/week-end-variable.200440/

Je fais encore le ménage.

A+

 

[Ilino]

Re : Convertir formulle en vba

Bonjour Forum
Je suis désolé, et merci pour votre patiente.
Problème Résolut

Ciao Forum
Mi dispiace, e vi ringrazio per la vostra pazienza.
Problema Risoluz