Nanou42
XLDnaute Nouveau
Toujours moi
du mal à comprendre ces formules
Range("J3").FormulaR1C1 = "=IF(RC[-2]=R[-1]C[-2],RC[-9]-R[-1]C[-8],"""")"
Range("J3").AutoFill Destination:=Range("J3:J" & l - 1 & "")
tps = InputBox("temps définissant un vari défaut en seconde :", "vrai défaut", "60")
heuretps = Int(CInt(tps) / 60 / 60)
minutetps = Int((CInt(tps) - heuretps * 60) / 60)
secondetps = CInt(tps) - heuretps * 60 * 60 - minutetps * 60
Et celle là
Range("K2").FormulaR1C1 = "=IF(RC[-1]<>"""",IF(RC[-1]<R1C16,0,1),1)"
Merci pour votre aide
du mal à comprendre ces formules
Range("J3").FormulaR1C1 = "=IF(RC[-2]=R[-1]C[-2],RC[-9]-R[-1]C[-8],"""")"
Range("J3").AutoFill Destination:=Range("J3:J" & l - 1 & "")
tps = InputBox("temps définissant un vari défaut en seconde :", "vrai défaut", "60")
heuretps = Int(CInt(tps) / 60 / 60)
minutetps = Int((CInt(tps) - heuretps * 60) / 60)
secondetps = CInt(tps) - heuretps * 60 * 60 - minutetps * 60
Et celle là
Range("K2").FormulaR1C1 = "=IF(RC[-1]<>"""",IF(RC[-1]<R1C16,0,1),1)"
Merci pour votre aide