ajouter le renseignement de mes fonctions excel avec ma macro vba

Bonjour a tous :)

Voila donc je souhaite renseigner mes cellules excel avec mes fonctions , sauf que a chaque fois je doit les copier coller et jaimerai automatiser la saisi comme le remplissage de mes autres cellules a travaers une macro .

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

With Sheets("Suivi") For Each i In dossiersource.items   Ligne = Ligne + 1 .Cells(Ligne, 1) = i.Subject .Cells(Ligne, 2) = i.creationtime '.Cells(Ligne, 4) = i.body .Cells(Ligne, 5) = strResultat .Cells(Ligne, 6) = i.Sendername   Next i   End With

---

Jaimerais a jouter les fonctions :

- Colonne J : =NB.JOURS.OUVRES.INTL(B52;C52;1)
-colonne K : =NB.JOURS.OUVRES.INTL(B52;H52;1)
Colonne L : =SI(K52-J52<-365;0;K52-J52)


Est ce que c'est possible sur VBA ?

Merci

Bonjour ;)
La fonction FormulaR1C1 permet d'écrire des formules dans les cellules à partir de VBA. Seul point d'attention : il faut écrire les fonctions en anglais ! Et il vaut mieux utiliser la syntaxe avec R[]C[].
Par exemple, dans le classeur Excel tu écris dans la cellule L1 : =SI(K1-J1<-365;0;K1-J1) dans VBA tu écris :

Code:

---

Sheets(nomDeLaFeuille).Range("L1").FormulaR1C1 = "=IF(RC[-1] - RC[-2] < -365, 0, RC[-1] - RC[-2])"

---

On écrit avec des "," et pas des ";". R correspond à "row" (ligne) et C à "column" (colonne :) ). RC[-1] veut dire que tu restes sur la même ligne et que tu te décales de 1 colonne vers la gauche. Donc attention : c'est relatif à la cellule dans laquelle tu écris ta formule.

Mais, le plus simple, c'est d'utiliser l'enregistreur de macro !! Tu écris la formule que tu veux dans Excel (à la main et en français) pendant l'enregistrement. Ensuite tu regardes ce que te donnes la macro et tu adaptes.

Citation:

---

Mais, le plus simple, c'est d'utiliser l'enregistreur de macro !!

---

C Nickel avec l'enregistreur c cool Merci :)