Discussion :

[diss10]

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 :

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

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

[riaolle]

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 :

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

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.

[diss10]

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

C Nickel avec l'enregistreur c cool Merci