B
bebe1310
Guest
Bonjour,
Je suis vraiment nul je n'arrive pas a appliquer la commande Onundo
Quelqu'un peut-il me dire ce qui cloche?
Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 19/09/2003 par toto
'
' Touche de raccourci du clavier: Ctrl+a
'
Range("A1").Select
ActiveCell.FormulaR1C1 = "1"
Range("A2").Select
ActiveCell.FormulaR1C1 = "2"
Range("A3").Select
ActiveCell.FormulaR1C1 = "3"
Range("A4").Select
ActiveCell.FormulaR1C1 = "4"
Range("A5").Select
Application.OnUndo "Undo VB Procedure", "Classeur1.xls!Macro1_Sub"
End Sub
Merci a tous
Je suis vraiment nul je n'arrive pas a appliquer la commande Onundo
Quelqu'un peut-il me dire ce qui cloche?
Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 19/09/2003 par toto
'
' Touche de raccourci du clavier: Ctrl+a
'
Range("A1").Select
ActiveCell.FormulaR1C1 = "1"
Range("A2").Select
ActiveCell.FormulaR1C1 = "2"
Range("A3").Select
ActiveCell.FormulaR1C1 = "3"
Range("A4").Select
ActiveCell.FormulaR1C1 = "4"
Range("A5").Select
Application.OnUndo "Undo VB Procedure", "Classeur1.xls!Macro1_Sub"
End Sub
Merci a tous