Discussion :

[mogo107]

Bonjour, je demande un coup de main

Voilà je voudrais permmettre a ma macro de pouvoir faire un retour en arrière comme le ctrl Z d'excel

voici ma macro

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Sub SupprimerArticle()
' SupprimerArticle
 
Application.ScreenUpdating = False
    ActiveCell.Rows("1:3").EntireRow.Select
    Selection.Delete Shift:=xlUp
Application.ScreenUpdating = True 'Facultatif
 
End Sub

[Ben_L]

Bonjour,

Vous pouvez utiliser la méthode Undo de l'objet Application :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Application.Undo

Cette méthode ne s'applique toutefois pas aux actions réalisées par des macros.
Seules les actions réalisées manuellement par l'utilisateur peuvent être annulées de cette façon.

Cdt

[mogo107]

Bonjour

Ou dois-je placer cette applications dans ma macro?
j'ai fais des teste et je ne vois pas de change

[Ben_L]

Pourriez-vous préciser quelle action vous souhaitez annuler ?
Votre code n'est pas clair à ce sujet.

Si vous souhaitez annuler la dernière action réalisée par l'utilisateur, vous pouvez utiliser 'Application.Undo'.
En revanche, si vous souhaitez annuler une action réalisée par une macro (quand bien même celle-ci serait lancée par l'utilisateur) alors il vous faudra coder vous même les actions qu'Excel doit réaliser.

Cdt

[mogo107]

Voilà ma macro:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Sub SupprimerArticle()
' SupprimerArticle
 
Application.ScreenUpdating = False
    ActiveCell.Rows("1:3").EntireRow.Select
    Selection.Delete Shift:=xlUp
Application.ScreenUpdating = True 'Facultatif
 
End Sub

je voudrais que lorsque j'active ma macro , que je puisse revenir en arrière