fonction si

judoka0209 à dit:

bonjour je souhaiterai faire
=SI(ET(H2="jeu";H5="A");6;"") en vba mais du 1 janvier au 31 decembre
sauf quand vba il m'ecris ca
ActiveCell.FormulaR1C1 = "=IF(AND(R[-16]C=""jeu"",R[-13]C=""A""),6,"""")"
Range("C18").Select
Selection.AutoFill Destination:=Range("C18:NC18"), Type:=xlFillDefault
Range("C18:NC18").Select
merci

Cliquez pour agrandir...

judoka0209 à dit:

voila

Cliquez pour agrandir...

Sub test()
    [c14:nc14].Formula = "=IF(AND(WEEKDAY(c$3,2)=4,c$4=""A""),6,"""")"
    [c14:nc14].Value = [c14:nc14].Value ' supprime la formule (facultatif)
End Sub

judoka0209 à dit:

autres chose j'ai modifier un peut ta formule par contre il me met que le dim ou lieu de ven/sam/dim
par contre je veux garder les 3 formule car si je dois les changer ca sera plus simple
merci

Cliquez pour agrandir...

Sub test()
    [c14:nc14].Formula = "=IF(AND(WEEKDAY(c$3,2)>4,c$4=""A""),6,"""")"
    [c14:nc14].Value = [c14:nc14].Value ' supprime la formule (facultatif)
End Sub

judoka0209 à dit:

VB:

[c14:nc14].Formula = "=IF(AND(WEEKDAY(R3C,2)>4,IFERROR(COUNTIF(OFFSET(R2C,0,-DAY(R3C)+1,1,DAY(R3C)-1),""ven"",""sam"",""dim""),0)=1,R4C=""N""),6,"""")"

j'ai ecrit ca mais ca me renvoie une erreur

Cliquez pour agrandir...

judoka0209 à dit:

j'essaie au fur et a mesure de la modifier avec les differente info qui me tombe dessus
il faut que je fasse un autre post?

Cliquez pour agrandir...

Jacky67 à dit:

Revenir dans un autre post quand toutes les infos seront définies avec précision.

Cliquez pour agrandir...