judoka0209
XLDnaute Occasionnel
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
=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