Discussion :

[Valerian69]

Bonjour je réalise un outils de dimmensionnement,

J'ai creer des boutons afin que l utilisateur ajoute des lignes à plusieurs tableaux.
Et j' ai créé un bouton annuler ("undo") qui permet à l'utilisateur d'annuler la dernière ligne ajouté.

Code :

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

1
2
3
Private Sub CommandButton7_Click()
Application.Undo
End Sub

J'ai mis la propriété "TakeFocusOnClick" à false. ( Je ne sais pas a quoi cela sert mais j'ai lu qu il fallait la mettre).

Cela ne marche pas, "erreur d'execution 1004"

J'ai vu que cela peut etre une erreur par rapport à des droits d'utilisateur, ou peut-etre l'erreur viens de la methode?

Merci

Ps: je remarque que cette methode annule l'action de modif de la feuille d'excel , mais PAS l'action "vba" des boutons ajouts ligne

[Mr.Mof]

Bonjour,

j'ai lu quelques infos la dessus et il semble que Application.Undo doit figurer en première ligne d'une macro. Essaye de te créer une macro que tu appelle dans ta procédure évènementielle. Cela dit, je ne suis pas persuadé que ça fonctionnera beaucoup mieux.

Cordialement.

[Valerian69]

Cela ne fonctionne pas , merci quand meme. Je pense pas qu 'il faut utiliser "undo" , Undo doit fonctionne uniquement sur des modifs sur feuilles je pense

[Didier Gonard]

bonjour,

Application.Undo, méthode
Cette méthode annule la dernière opération commandée à partir de l'interface utilisateur.
Syntaxe

expression.Undo

expression Variable qui représente un objet Application.

Remarques


Cette méthode n'annule que la dernière opération commandée par l'utilisateur avant l'exécution de la macro et doit figurer en première ligne dans la macro. Elle ne peut être utilisée pour annuler des commandes Visual Basic.

Cordialement,

Ps : si le côté technique de la réponse = OK ou pas => pensez à cliquer sur les pouces et quand question résolue à la taguer résolue, et chaque action vous rapporte des points

Didier

[Valerian69]

Ok, donc que dois-je utiliser comme code si je annuler la derniere action vba?

[Didier Gonard]

Bonjour,

Ce n'est pas possible !

A moins de créer une usine à gaz où tu mémorises les états avant action ect...

cordialement,

Didier

[rvtoulon]

bonjour, je pense que ton post fait suite à celui-ci.

si c'est le cas une solution serait de déclarer la variable derlign en PUBLIC.
tu la déclares en tout premier une fois au début de ta page de code, au dessus des macros :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Public derlign As Long
 
Private Sub CommandButton1_Click()
'le code du bouton
End Sub
 
Private Sub CommandButton2_Click()
'le code du bouton
End Sub
 
Private Sub CommandButton3_Click()
'le code du bouton
End Sub
'etc...

ainsi la variable derlign garderas le N° de la dernière ligne insérée.
ensuite dans le code de chaque bouton tu dois avoir ceci :

Code :

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

Dim vnom As String, vrech As Range, derlign As Long

tu enlèves derlign dans la déclaration de tes variables et ce pour chaque bouton:

Code :

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

Dim vnom As String, vrech As Range

ensuite encore pour chaque bouton juste sous la déclarations des variables tu ajoutes:

Code :

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

1
2
Dim vnom As String, vrech As Range
derlign = 0

enfin dans le bouton annuler :

Code :

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

1
2
3
If derlign = 0 Then Exit Sub
Rows(derlign).EntireRow.Delete
derlign = 0

remettre derlign à 0 permet de ne pas effacer plus de ligne que celle qui vient juste d'être ajoutée

[Valerian69]

Merci c'est super comme d'hab.

Vos explications sont très claires!