Créer macro annuler action

Question

Bonjour, 

Encore moi. J'aimerais soliciter à qui peut m'aider. Est ce possible de créer un macro qui annule une action. Par exemple je fais une écriture dans ma ligne, au lieu de suprimer je fais annuler.

Merci d'avance à vous!
Mes respects
Bonisam

Configuration: Windows XP / Internet Explorer 6.0

pijaku · Accepted Answer

Bonjour,
La moindre des choses serait de dire un p'tit coucou ou un merci lorsque quelqu'un t'apporte une solution. Non?

Bonisam · Answer

pijaku,

merci pour le rappel. je suis vraiment désolé et m'excuse sincèrement.
Je promet d'être plus poli la prochaine fois.
Merci pour tous.
Mes respects
Bonisam

pijaku · Answer

Pas de souci, pour tout te dire ça m'a surpris, tes posts étant tous empreints d'une telle politesse. Oublions!

Répondons plutôt à ta question.

Il est impossible, par la commande Excel Editions/Annuler, d'annuler la tâche accomplie par une macro. Ca tu le savais déjà.

Pour "annuler" ce qu'a réalisé un code VBA, il faut écrire le code inverse...

Exemple :
Sub EcrisTestEnA1()
Range("A1") = "Test"
End Sub
Sub AnnuleCeQueJaiEcrisEnA1()
If Range("A1") = "Test" Then
    Range("A1") = ""
End If
End Sub

Bonisam · Answer

pour cette procedure ça devient en fait faire un double travail. 
Mais vraiment vous m'avez eclairer et je comprend mieux. donc en fin je vais préférer laisser tombé ça pour garder la commande standard d'annulation.
Encore merci pour la prompte réaction surtout votre sens de compréhension.
Mes respects
Bonisam

Bonisam · Answer

ok, merci c'est super.
Je pense que c'est bon pour ça.
Par contre j'ai un autre problème.
J'aimerais réaliser une macro de vérification d'erreur.
En fait j'ai crée 12 feuilles de saisie répresentant les mois de janvier à decembre. donc j'aimerais avoir une macro qui empêche la validation de la date en affichant un message d'erreur de type "date incorrecte" si un utilisateur saisie par exemple 01/02/2011 dans la feuille de janvier.  Mais si l'année est  antérieur à 2011, ça doit passer.
Merci pour votre aide
Mes respects
Bonisam

Bonisam · Answer

Dans une colonne bien précise "colonne A"

Mes respects
Bonisam

Bonisam · Answer

Bonjour,

D'abord je m'excuse, c'était l'heure de la pause ce nous. 
Sinon la procédure marche mais unique pour l'anné 2011. Dans mon cas l'année peut varier et je voulais qu'en fonction de l'année choisie le code tient compte de ça. touvez-ci joint un cas pratique de ce que je veux faire:  
 https://www.cjoint.com/?AHjsgoTvJkr

Merci pour tout
Mes respects
Bonisam

Bonisam · Answer

Bonjour pijaku 

Tu avais pourtant dit : Mais si l'année est antérieur à 2011, ça doit passer Ben dans mon code ça passe. En fait je m'excuse c'est une erreur de langage. J'aimerais en fin que tout mois différent du mois de l'année choisie qu'il soit antérieur ou postérieur soit systématiquement réjété. 
Touvez-ci joint une version 97-2003: https://www.cjoint.com/?AHkku0FSgGW

Merci pour votre aide.
Mes respects
Bonisam

Bonisam · Answer

oui j'ai testé. Ca mache pour l'année choisie. Par exemple pour l'année 2011 dans la feuille de janvier: si on saisie 01/02/2011 ça bloque (ça c'est bien). mais si on saisie par exemple 01/01/2010 ou 01/01/2012, ça passe.(ça c'est pas bon). j'aimerais que tout mois différent du mois de l'année choisie soit systématiquement bloqué. 

Merci pour tout
Mes respects
Bonisam

Bonisam · Answer

waoooo! c'est génial. ça marche 5/5. Vous êtes vraiment un génie de la chose.  
mille merci, vous m'avez vraiment sauve et je ne sais comment vous remercier.  

Néanmoins j'ai juste une question: dans mes bricolage je suis arrivé à faire un petit logociel mais un problème perdure.c'est notamment le problème de changement d'année. Est ce possible avec une macro une fois qu'on va  à l'année suivante, la base soit remise à zero bien avec une possibilité de retour. 
Je prend un exemple: nous somme en 2011 et une fois qu'on passe à 2012, la base soit remise à vide.

Merci pour tout votre sacrifice
Mes respects
Bonisam

Mistral_13200 · Answer

Bonjour à vous deux,

Tout d'abord toutes mes excuses de m'immiscer dans votre échange mais je le suis depuis le début car cela m'interesse.
J'ai testé la solution de de Pijaku et elle me conviendrait parfaitement mais à condition que ce contrôle puisse se faire sur douze mois mais à cheval sur deux années, d'Avril à Mars par exemple.
Cordialement
Mistral

Mistral_13200 · Answer

Celle ci-dessous Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column <> 1 Or Target.Value = "" Then Exit Sub If UCase(Format(CDate(Target.Value), "mmmm")) <> UCase(ActiveSheet.Name) Or Year(Date) <> Year(CDate(Target.Value)) Then MsgBox "Date non valide" With Target .ClearContents .Select End With End If End Sub Qui permet de tester la cohérence de la date saisie sur la bonne feuille et que le millesime de l'année est correcte. Cordialement Mistral

Bonisam · Answer

Bonjour;

Je voulais juste une précision: où mettre le code? dans chaque feuille où dans la feuille accueil?
En plus est ce que si une cellule contient une formule, on peut effacé le résultat et conserver la formule?

Sinon j'ai testé  votre dernière reponse mais à moins que j'ai fait une erreur, ça marche pas.  

Merci pour tout
Mes respects
Bonisam

Bonisam · Answer

Bonjour,

je vais faire une requette spéciale à vous de m'envoyé un modèle je vais voir sinon je me bat dans tous les sens en vain.

Donc si vous pouvez m'envoyer un modèle cela va beaucoup m'aider. 
Merci pour tout
Mes respects
Bonisam

Mistral_13200 · Answer

Pijaku je viens de prendre connaissance de ton dernier message et j'ai fait des essais en aynat modifié la ligne : If UCase(Format(CDate(Target.Value), "mmmm")) <> UCase(ActiveSheet.Name) Or Year(Date + 365) <> Year(CDate(Target.Value)) Then Dans la Woorksheet des trois premiers mois et ça fonctionne, reste à regler le problème des années bisextilles dont 2012 fait partie. Cordialement Mistral

Bonisam · Answer

Bonjour,

Je voulais dire vous demander spécialement de m'envoyé un modèle. 
Dites moi, il faut excuter ou bien automatiquement ça marche?
Parce que j'ai crée un module standard mais même quand je change d'année les donnée restent.

je vous renvoie mon fichier:en fait dans la feuille "Acceuil" il y'a une liste déroulante des années. donc je voudrait quand passant à l'année suivante(2012) les donné de l'année antérieur (2011) s'efface. et quand je reviens dans l'antérieur (2011) après je puisse quand même revoir mes donées et vis versa. Ci-joint mon fichier :http://cjoint.com/?AHkoXivjrmm

Je suis désolé de trop vous embêter pour ça mais comprenez moi.
Merci pour tout
Mes respects
Bonisam

Mistral_13200 · Answer

Pijaku :
C'est exactement ce que j'ai fait et tu as raison faire +1 au lieu de +365 est plus intelligent. Merci à toi.

Bonisam:
J'ai testé les macros fournies par pikasu et ça fonctionne parfaitement chez moi.
La permière celle qui contrôle la validité de la date doit être sur une Woorkshett de chaque feuille Mois.
La seconde pour éffacer se trouve dans un module indépendant et tu dois la lancer manuellement ou à l'aide d'un bouton auquel tu attaches la macro.

Cordialement
Mistral

Bonisam · Answer

Bonjour,

Vraiment je m'excuse mais j'ai toujours des difficultés. J'ai crée un bouton d'execution de la macro effacedonnées. Mon problème est quand je lance l'execution de la macro elle m'affiche un message "d'erreur d'execution "1004" (Impossible de modifier une cellule fusionnée). Pourtant mes cellules fusionnées sont"A8:B8 " qui ne sont pas incluse dans ma plage. Et puis quand je part voir dans mes feuilles "mois" les données sont effacer mais ça efface aussi la cellule "A9" et "B9" pourtant ma plage est : "A10:G". Donc je ne comprend vraiment pas. 

Voici mon fichier:http://cjoint.com/?AHks3pQfBQa
Je vous prie de m'aider encore.
Merci pour tout
Mes respects
Bonisam

Mistral_13200 · Answer

Bonjour à vous deux,

Et de plus il y a deux fichiers différents!!!
Un sans aucune macro...
L'autre verrouillé...

Cordialement
Mistral

Bonisam · Answer

Bonjour Mistral 13200,

A l'execution de la macroefface donné j'ai une erreur 1004 donc je ne comprend plus rien.
Voyez plustot à l'image suivantes:https://www.cjoint.com/?AHmksVeQtLW

Merci pour tout
Mes respects
Bonisam

Bonisam · Answer

Bonjour Pijaku, Je reviens à vous pour votre message tel :Si tu veux empêcher systématiquement toute saisie de date dont le mois serait différent du nom de l'onglet : Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column <> 1 Or Target.Value = "" Then Exit Sub If UCase(Format(CDate(Target.Value), "mmmm")) <> UCase(ActiveSheet.Name) Then MsgBox "Date non valide" With Target .ClearContents .Select End With End If End Sub Je veux empêchement seulement les saisies dont le mois est postérieur au mois de l'onglet. Est ce un diminutif de votre procedure marche? ou que dois-je faire? Merci pour tout Mes respects Bonisam

Créer macro annuler action

21 réponses

Votre réponse

Discussions similaires

Newsletters