Annuler dernière action

Bonsoir,

Je souhaiterais savoir comment annuler la dernière action (Ctrl+Z) après l'affichage d'une MsgBox. Je sais qu'il existe le code Application.Undo et j'ai essayé de l'insérer juste après, cela me met en bogage même en passant par une macro dans un module.

Help

Bonjour,

malheureusement ce n'est pas possible,

Application.Undo, méthode

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.

i20100 a écrit :

Bonjour,

malheureusement ce n'est pas possible,

Application.Undo, méthode

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.

Merci pour ta réponse,

Alors comment puis-je faire cette action?

En fait c'est sur un planning de travail où je veux faire en sorte que quand on sélectionne le bouton de sélection CP (congé payé), le solde est à zéro, ça annule l'action et ça affiche un msgbox.

J'ai fais un fichier Excel en exemple.

thunder23 a écrit :

Alors comment puis-je faire cette action?

En fait c'est sur un planning de travail où je veux faire en sorte que quand on sélectionne le bouton de sélection CP (congé payé), le solde est à zéro, ça annule l'action et ça affiche un msgbox.

J'ai fais un fichier Excel en exemple.

est-ce que l'action à annuler est celle-ci

Sub bouton_congé()
Selection = "CP"
End Sub

quel est l'adresse de la cellule ? (Sélection)

est ce que c'est la cellule contenant la formule =J8-NB.SI(D9:D38;"CP")

Alors la sélection se situe où il y a les M, S, N sinon pour le reste tu as tout juste. J'ai remis le fichier cette fois-ci avec un peu plus de descriptif

re,

à tester,

Sub bouton_congé()
If Range("J10") > 0 Then Selection = "CP"
End Sub

re,

Le code fonctionne très bien mais le soucis est que ça ne m'affiche plus le MsgBox et je ne vois pas comment l'intégrer dans la macro ce code:

MsgBox "Votre solde de congé payé est insufisant !", 0 + 16, "ATTENTION"

J'avais pensé avec ElseIf mais ça me met une erreur...

Bonjour,

Sub bouton_congé()
Dim Soldecp As Long
Soldecp = Range("J10").Value
If Soldecp = 0 Then
MsgBox "Vous ne pouvez poser de congés avec un solde à zéro"
Exit Sub
End If
Selection = "CP"
End Sub

Xmenpl a écrit :

test cp (1).xlsmBonjour,

Sub bouton_congé()
Dim Soldecp As Long
Soldecp = Range("J10").Value
If Soldecp = 0 Then
MsgBox "Vous ne pouvez poser de congés avec un solde à zéro"
Exit Sub
End If
Selection = "CP"
End Sub

Bonjour,

Super top merci par ailleurs si je veux ajouter une condition en plus dans ce code faut-il faire un autre Dim ? En fait je voudrais dire que si Selection="CP" de la colone A à F c'est la valeur J10 qui est prise en compte et que si Selection="CP" de la colone G à L c'est la valeur J11 qui est prise en compte?

J'ai modifié l'exemple en fonction

Il suffit en effet d'ajouter une condition pour vérifier le numéro de colonne de la sélection en cours.

Sub bouton_congé()
Dim Soldecp As Long
Dim numcolonne As Long
numcolonne = ActiveCell.Column
If numcolonne < 6 Then
Soldecp = Range("J10").Value
Else
Soldecp = Range("J11").Value
End If

If Soldecp = 0 Then
MsgBox "Vous ne pouvez poser de cong?s avec un solde à zéro"
Exit Sub
End If
Selection = "CP"
End Sub

Xmenpl a écrit :

Il suffit en effet d'ajouter une condition pour vérifier le numéro de colonne de la sélection en cours.

Sub bouton_congé()
Dim Soldecp As Long
Dim numcolonne As Long
numcolonne = ActiveCell.Column
If numcolonne < 6 Then
Soldecp = Range("J10").Value
Else
Soldecp = Range("J11").Value
End If

If Soldecp = 0 Then
MsgBox "Vous ne pouvez poser de cong?s avec un solde à zéro"
Exit Sub
End If
Selection = "CP"
End Sub

Ok super ça fonctionne comme je le souhaitais, encore merci

thunder23 a écrit :

Ok super ça fonctionne comme je le souhaitais, encore merci

heureusement que cela fonctionne, on est là pour çà