Discussion :

[alex830001]

Bonjour,

Dans la cellule L2, je souhaite inserer la formule suivante via VBA:

Code :

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

1
2
3
=ENT((H2-DATE(ANNEE(MAINTENANT());MOIS(MAINTENANT());JOUR(MAINTENANT())))/7)*5+JOURSEM(H2)
-JOURSEM(DATE(ANNEE(MAINTENANT());MOIS(MAINTENANT());JOUR(MAINTENANT())))+SI(JOURSEM(DATE(ANNEE(MAINTENANT());MOIS(MAINTENANT());JOUR(MAINTENANT())))>JOURSEM(H2);5)
-SI(JOURSEM(H2)=7;1)+SI(JOURSEM(DATE(ANNEE(MAINTENANT());MOIS(MAINTENANT());JOUR(MAINTENANT())))<>1;1)-1

Cette formule me sert à calculer le nombre de jours ouvré entre aujourd'hui et une date se situant en H2.

Lorsque j'essai de récupérer le code via l'enregistreur de macro, cela ne fonctionne pas : " N'as pas pu enregistrer" (la formule est surment trop longue).

Comment puis je raccourcir cette formule pour que l'enregistreur me genere le code ou alors quel est le code VBA à entrer pour que cela genere cette formule dans L2?

Merci pour votre aide!

[ouskel'n'or]

Ce qui simplifierait les chose serait d'utiliser FormulaLocal mais c'est mal vu car utilisé sur un pc où une version d'excel autre que française, ça ne fonctionnerait pas
Voici toujours

Code :

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

1
2
3
Cells(1, 2).FormulaLocal = "=ENT((H2-DATE(ANNEE(MAINTENANT());MOIS(MAINTENANT());JOUR(MAINTENANT())))/7)*5+JOURSEM(H2)" & _
"-JOURSEM(DATE(ANNEE(MAINTENANT());MOIS(MAINTENANT());JOUR(MAINTENANT())))+SI(JOURSEM(DATE(ANNEE(MAINTENANT());MOIS(MAINTENANT());JOUR(MAINTENANT())))>JOURSEM(H2);5)" & _
"-SI(JOURSEM(H2)=7;1)+SI(JOURSEM(DATE(ANNEE(MAINTENANT());MOIS(MAINTENANT());JOUR(MAINTENANT())))<>1;1)-1"

Pour utiliser Formula tout court, tu remplaces MAINTENANT, jour, mois, annee, joursem par leurs versions anglaises

Edit
Avec formula, ça donne ça

Code :

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

1
2
3
Cells(2, 2).Formula = "=INT((H2-DATE(YEAR(NOW()),MONTH(NOW()),DAY(NOW())))/7)*5+WEEKDAY(H2)" & _
"-WEEKDAY(DATE(YEAR(NOW()),MONTH(NOW()),DAY(NOW())))+IF(WEEKDAY(DATE(YEAR(NOW()),MONTH(NOW()),DAY(NOW())))>WEEKDAY(H2),5)" & _
"-IF(WEEKDAY(H2)=7,1)+IF(WEEKDAY(DATE(YEAR(NOW()),MONTH(NOW()),DAY(NOW())))<>1,1)-1"

Bonne journée

[alex830001]

J'ai utilisé formulalocal. Toutes les personnes qui utiliseront la macro ont obligatoirement la meme version Excel que moi.

Merci