XL 2016 Convertir des formules en code VBA

[Dadi147]

Bonjour.
S'il vous plaît aider à convertir ces formats en code VBA

Set WS = feuil2
 lr = WS.Range("B" & Rows.Count).End(xlUp).row

range("d6:d"&lr")'formula'=IF($B6<>"";TEXT($C6;"DDD");"")

range("C8:C"&lr")'formula'=IF($B8<>"";C6+1;"-")

RANGE E:AM 'formula'
'SOMME.SI.ENS

=SUMIFS(sheet1!$J:$J;sheet1!$B:$B;$B6;sheet1!$A:$A;$C6;sheet1!$D:$D;E$5)

=SUMIFS(sheet1!$J:$J;sheet1!$B:$B;$B6;sheet1!$A:$A;$C6;sheet1!$D:$D;F$5)

=SUMIFS(sheet1!$J:$J;sheet1!$B:$B;$B6;sheet1!$A:$A;$C6;sheet1!$D:$D;G$5)

'Up to the AM column'

=SUMIFS(sheet1!$J:$J;sheet1!$B:$B;$B6;sheet1!$A:$A;$C6;sheet1!$D:$D;AM$5)


RANGE E4:AM4 'formula'
'SOUS.TOTAL

range("E4)formula =SUBTOTAL(109;E6:E"&lr)

 column AN formula range("AN6:N"&lr")'formula

=SUM($E6:$AM6)

 

[vgendron]

Le top du post qui n'apportera aucune réponse !!!
limite, c'est du foutage de gueule !

 

[Dadi147]

Le top du post qui n'apportera aucune réponse !!!
limite, c'est du foutage de gueule !

Bonjour. Qu'est-ce qui vous met en colère contre moi dans mon message

 

[vgendron]

BONJOUR

c'est une vraie question?? (si oui, ce serait bien la seule)

 

[Dadi147]

Bonjour. Qu'est-ce qui vous met en colère contre moi dans mon message

Je ne sais vraiment toujours pas ce qui t'a mis en colère. Je ne peux pas te remercier. Après être revenu au poste, j'ai découvert que j'avais mis les formules sans me souvenir de ce qui était demandé.

 

[vgendron]

le fait d'avoir édité ton post de départ en ajoutant ces deux phrases qui n'y étaient pas

Bonjour.
S'il vous plaît aider à convertir ces formats en code VBA

.. ca montre que tu as quand meme une petite idée de ce qui ne va pas... et qu'il y a quand meme une bonne part de mauvaise foi ...
sur ce. bonne soirée !