IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Macros et VBA Excel Discussion :

[VBA-E] Undo après action bouton ne fonctionne pas


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre éprouvé
    Avatar de TicTacToe
    Inscrit en
    Septembre 2005
    Messages
    1 940
    Détails du profil
    Informations personnelles :
    Âge : 52

    Informations forums :
    Inscription : Septembre 2005
    Messages : 1 940
    Par défaut [VBA-E] Undo après action bouton ne fonctionne pas
    Bonjour

    Dans une feuille Excel, j'ai créé un bouton pour effectuer des actions sur des cellules. J'ai donc du code associé à ce bouton pour effectuer ces actions. Tout est OK de ce coté là.

    Par contre, Après action sur ce bouton, le Undo Excel ne fonctionne pas...
    dommage

    Y-a-t-il une solution à effectuer dans ma procédure associée à mon bouton, pour rendre le Undo opérationnel ?

    Merci d'avance !
    Section Delphi
    La mine d'or: La FAQ, les Sources

    Un développement compliqué paraitra simple pour l'utilisateur, frustrant non ?
    Notre revanche ? l'inverse est aussi vrai ;-)

  2. #2
    Inactif  
    Avatar de ouskel'n'or
    Profil pro
    Inscrit en
    Février 2005
    Messages
    12 464
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Février 2005
    Messages : 12 464
    Par défaut
    Je crois bien me souvenir que le undo, (vba97) ne concerne que la dernière action effectuée. Ce n'est pas ton problème ?
    Tu dis. En attendant, je regarde ce que j'ai.

    A+

  3. #3
    Inactif  
    Avatar de ouskel'n'or
    Profil pro
    Inscrit en
    Février 2005
    Messages
    12 464
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Février 2005
    Messages : 12 464
    Par défaut
    Voilà, j'ai retrouvé
    Tu dois définir CanUndo = true
    J'ai ça dans une form, j'espère que ça existe pour un bouton dans une feuille de calcul

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
     
    Private Sub BoutonAnnuler_Click()
        If GrilleDeSaisie.CanUndo = True Then
                GrilleDeSaisie.UndoAction
            Else
                MsgBox "Annulation impossible ici.", 0, "Grille de Saisie"
        End If
    End Sub
    Tu dis

    A+

  4. #4
    Inactif  
    Avatar de ouskel'n'or
    Profil pro
    Inscrit en
    Février 2005
    Messages
    12 464
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Février 2005
    Messages : 12 464
    Par défaut
    Autant pour moi. La syntaxe que je t'ai donnée fonctionne pour une form, pas pour une feuille de calcul.
    Ce srait "Application.undo" mais qui ne fonctionne pas.
    J'ai vu ça dans l'aide :
    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.
    Bref, je te laisse lire et ensuite supprimerai mes réponses

    A+

  5. #5
    Modérateur
    Avatar de AlainTech
    Homme Profil pro
    Consultant informatique
    Inscrit en
    Mai 2005
    Messages
    4 235
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 71
    Localisation : Belgique

    Informations professionnelles :
    Activité : Consultant informatique
    Secteur : Finance

    Informations forums :
    Inscription : Mai 2005
    Messages : 4 235
    Par défaut
    Faut pas les supprimer!

    C'est intéressant à savoir.
    N'oubliez pas de cliquer sur quand vous avez obtenu ou trouvé vous-même la réponse à votre question.
    Si vous trouvez seul, pensez à poster votre solution. Elle peut servir à d'autres!
    Pensez aussi à voter pour les réponses qui vous ont aidés.
    ------------
    Je dois beaucoup de mes connaissances à mes erreurs!

  6. #6
    Membre éprouvé
    Avatar de TicTacToe
    Inscrit en
    Septembre 2005
    Messages
    1 940
    Détails du profil
    Informations personnelles :
    Âge : 52

    Informations forums :
    Inscription : Septembre 2005
    Messages : 1 940
    Par défaut
    Merci pour les infos rapides, mais je crois que ce n'est pas ce que je cherche, j'ai du mal m'exprimer.

    Après le click sur le bouton 'MonBouton', j'execute une série d'actions qui modifient mes cellules de ma feuilles. -> ca c'est OK.

    Ensuite, ce que je souhaiterais, c'est que l'utilisateur puisse faire marche arrière après avoir cliqué sur ce bouton -> retrouver sa feuille telle qu'elle était avant le click bouton.

    (Ceci bien sur en cliquant sur le bouton Undo standard de Excel, ou à la rigueur si cela est indispensable sur un bouton propriétaire qui est à créer).

    Merci pour les réponse en tout cas !
    Section Delphi
    La mine d'or: La FAQ, les Sources

    Un développement compliqué paraitra simple pour l'utilisateur, frustrant non ?
    Notre revanche ? l'inverse est aussi vrai ;-)

Discussions similaires

  1. action de mes boutons ne fonctionne pas
    Par zaghdoud dans le forum JSF
    Réponses: 5
    Dernier message: 15/06/2011, 10h13
  2. Mon bouton "Action" qui ne fonctionne pas
    Par Yachas dans le forum wxPython
    Réponses: 2
    Dernier message: 29/01/2010, 11h52
  3. Réponses: 23
    Dernier message: 18/02/2009, 18h42
  4. Mon beau bouton ne fonctionne pas
    Par Dounne dans le forum Flash
    Réponses: 5
    Dernier message: 06/09/2006, 13h19
  5. VBA/97/xl->REPT("z",10) ne fonctionne pas, une
    Par ouskel'n'or dans le forum Macros et VBA Excel
    Réponses: 3
    Dernier message: 09/12/2005, 17h08

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo