bonsoir
quelqu'un pourrait me simplifier cette macro:
Sub RBJ()
'
' RBJ Macro
' Macro enregistrée le 01/02/2008 par user2
'
' Touche de raccourci du clavier: Ctrl+r
'
ActiveCell.FormulaR1C1 = "R"
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveCell.FormulaR1C1 = "B"
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveCell.FormulaR1C1 = "J"
ActiveCell.Offset(0, 1).Range("A1").Select
End Sub
quelqu'un pourrait me simplifier cette macro:
Sub RBJ()
'
' RBJ Macro
' Macro enregistrée le 01/02/2008 par user2
'
' Touche de raccourci du clavier: Ctrl+r
'
ActiveCell.FormulaR1C1 = "R"
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveCell.FormulaR1C1 = "B"
ActiveCell.Offset(0, 1).Range("A1").Select
ActiveCell.FormulaR1C1 = "J"
ActiveCell.Offset(0, 1).Range("A1").Select
End Sub