Bonsoir le Forum,
Voila, j'ai un question à la fois pratique, mais surtout qui me permettra de faire quelque pas en avant pour le VBA.
Ma question est toute simple, peut-on simplifier une macro de ce genre, et si oui de quelle manière?
Sub raz()
'
' faxd_remiseazero Macro
'
'
Range("F5").Select
ActiveCell.FormulaR1C1 = ""
Range("F7").Select
ActiveCell.FormulaR1C1 = ""
Range("F9").Select
ActiveCell.FormulaR1C1 = ""
Range("F10").Select
ActiveCell.FormulaR1C1 = ""
Range("G13:H15").Select
ActiveCell.FormulaR1C1 = ""
Range("T14:U14").Select
ActiveCell.FormulaR1C1 = ""
Range("T15").Select
ActiveCell.FormulaR1C1 = ""
Range("T16").Select
ActiveCell.FormulaR1C1 = ""
Range("T17").Select
ActiveCell.FormulaR1C1 = ""
Range("T18").Select
ActiveCell.FormulaR1C1 = ""
Range("T19:U19").Select
ActiveCell.FormulaR1C1 = ""
Range("T20:U20").Select
ActiveCell.FormulaR1C1 = ""
Range("T21:V21").Select
ActiveCell.FormulaR1C1 = ""
Range("T22").Select
ActiveCell.FormulaR1C1 = ""
Range("H26").Select
ActiveCell.FormulaR1C1 = ""
Range("A1").Select
End Sub
Merci de vos réponses.
Voila, j'ai un question à la fois pratique, mais surtout qui me permettra de faire quelque pas en avant pour le VBA.
Ma question est toute simple, peut-on simplifier une macro de ce genre, et si oui de quelle manière?
Sub raz()
'
' faxd_remiseazero Macro
'
'
Range("F5").Select
ActiveCell.FormulaR1C1 = ""
Range("F7").Select
ActiveCell.FormulaR1C1 = ""
Range("F9").Select
ActiveCell.FormulaR1C1 = ""
Range("F10").Select
ActiveCell.FormulaR1C1 = ""
Range("G13:H15").Select
ActiveCell.FormulaR1C1 = ""
Range("T14:U14").Select
ActiveCell.FormulaR1C1 = ""
Range("T15").Select
ActiveCell.FormulaR1C1 = ""
Range("T16").Select
ActiveCell.FormulaR1C1 = ""
Range("T17").Select
ActiveCell.FormulaR1C1 = ""
Range("T18").Select
ActiveCell.FormulaR1C1 = ""
Range("T19:U19").Select
ActiveCell.FormulaR1C1 = ""
Range("T20:U20").Select
ActiveCell.FormulaR1C1 = ""
Range("T21:V21").Select
ActiveCell.FormulaR1C1 = ""
Range("T22").Select
ActiveCell.FormulaR1C1 = ""
Range("H26").Select
ActiveCell.FormulaR1C1 = ""
Range("A1").Select
End Sub
Merci de vos réponses.