Discussion :

[julio44]

Bonjour à tous, dans une macro assez conséquente, je bloque seulement dans cette partie de code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Var4 = Application.Max(Range("C" & j).Value, Range("D" & j).Value)
                Var5 = Range("E" & j).Value
 
                Range("F" & j).FormulaLocal = NB.JOURS.OUVRES(var5;var4;I1:I10)
                Range("F" & j).NumberFormat = "General"
 
                Range("G" & j).FormulaLocal=(SI(ET(Range("F" & j).value<=5;Range("F" & j).value>0);1;0))

Merci de m'aider svp j'en peux plus =)

Julien

[mercatog]

Bonjour

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range("F" & j).FormulaLocal = "=NB.JOURS.OUVRES(" & var5 & ";" & var4 & ";I1:I10)"

et

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range("G" & j).FormulaLocal = "=SI(ET(F" & j & "<=5; F" & j & ">0);1;0)"

PS: Je préfère (pour une portabilité du code au cas d'Excel non français)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Range("F" & j).Formula = "=NETWORKDAYS(" & var5 & "," & var4 & ",I1:I10)"
Range("G" & j).Formula = "=IF(AND(F" & j & "<=5, F" & j & ">0),1,0)"

[julio44]

J'ai l'impression que ma formule

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Var4 = Application.Max(Range("C" & j).Value, Range("D" & j).Value)

n'est pas correcte.

Quelqu'un voit un problème ?