Créer macro annuler action

Après tout dépends de ce que vous souhaitez faire...
L'annulation d'une procédure peut être remplacée par l'empêchement de réaliser cette procédure si...
Vous dites.

Les dates sont saisies n'importe ou dans la feuille ou dans une colonne bien précise???

Code à coller dans chaque code de feuille :
Clic droit sur chaque onglet/Visualiser le code
copier / coller ceci :

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) And Year(Target.Value) = Year(Date) Then
    MsgBox "Date non valide"
    With Target
        .ClearContents
        .Select
    End With
End If
End Sub

Testes et dis nous...

Bonjour,
Je ne disposes pas d'Excel 2007 et donc ne peux pas ouvrir ton fichier joint. Pour me le passer, merci de l'enregistrer sous format 97-2003.
Tu avais pourtant dit : Mais si l'année est antérieur à 2011, ça doit passer Ben dans mon code ça passe...
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

Juste comme ça, as tu testé le code donné dans ma dernière réponse???

Alors code à copier dans chacune de tes feuilles:

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

Pour faire ceci, tu veux supprimer les données contenues dans chaque feuille "mois" de A10 à H dernière ligne, par macro?

Ce code boucle sur toutes les feuilles de ton classeur.
Si la feuille ne s'appelle ni "acceuil", ni "Recapitulatif", elle boucle sur toutes les cellules de A10 à H dernière ligne
Si la cellule ne contient pas de formule, son contenu est effacé.
Tu dis...

Sub EffaceDonnees()
Dim DerLig As Long
Dim Wsh As Worksheet
Dim Plage As Range, Cel As Range

For Each Wsh In ThisWorkbook.Worksheets
    If Wsh.Name <> "Acceuil" And Wsh.Name <> "Recapitulatif" Then
        With Wsh
            DerLig = .Columns(1).Find("*", , , , xlByColumns, xlPrevious).Row
            Set Plage = .Range("A10:H" & DerLig)
            For Each Cel In Plage
                If Left(Cel.Formula, 1) <> "=" Then
                    Cel.ClearContents
                End If
            Next
        End With
    End If
Next
Set Plage = Nothing
End Sub

Salut,
Bienvenue!
testé la solution de de Pijaku laquelle? Il y a eu plusieurs questions sur ce sujet...

Le problème se pose, pour toi, pour les feuilles janvier, février et mars qui sont donc en année N+1. Si tu les utilises avant 2012 par exemple, le test : Year(Date) <> Year(CDate(Target.Value)) ne renverra pas d'erreur de saisie.
Il faut donc biaiser. Si tu as, par exemple en D12 l'année écrite ex : 2012 en N+1 2011 en N tu peux utiliser ce code (à adapter Range("D12")) :

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 Range("D12") <> Year(CDate(Target.Value)) Then 
    MsgBox "Date non valide" 
    With Target 
        .ClearContents 
        .Select 
    End With 
End If 
End Sub

Sub EffaceDonnees() se place dans un module standard (sous visual basic : Insertion/Module).
si une cellule contient une formule, on peut effacé le résultat et conserver la formule? Alors, logiquement une cellule qui contient une formule (à part certaines comme =AUJOURDHUI()) fait référence à une (au moins) autre cellule qui elle contient une valeur. Si vous supprimez le contenu de toutes les cellules qui contiennent une valeur, les cellules contenant des formules vont :
- perdre leur valeur,
- conserver leurs formules.
Sinon j'ai testé votre dernière reponse mais à moins que j'ai fait une erreur, ça marche pas Moi aussi, j'ai testé, et ça fonctionne... Peut être une erreur de votre part. de toutes façons, le code ne peux fonctionner que depuis un mdule standard...
A vous...

Là j'ai pas compris : je vais faire une requette spéciale ???????????
Sinon votre fichier est ici...

Ce code est entré dans le code de la feuille. Il ne fonctionne par conséquent que dans la feuille concernée. Il suffit donc de faire le bon test dans la feuille janvier.
Donc dans les feuilles janv fév et mars remplace :
Year(Date) ou ton fameux Year(Date + 365)
par :
Year(Date) + 1

Mon fichie :http://cjoint.com/?AHko3erhtSK

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 Je vous réponds de suite, sans regarder votre tableau : impossible sans avoir une base de données stockant toutes les informations.....
Vous devriez : enregistrer votre classeur, chaque année, sous NomDuClasseur + année, et réinitialiser votre classeur manuellement en lançant la macro ci dessus référencée par ALT+F8...

http://cjoint.com/?AHks3pQfBQa

http://cjoint.com/?AHks3pQfBQa

Salut,
Comment tu veux que je regarde ton fichier, tu l'as protégé de partout par mot de passe..........