suppresion de données

[Philo]

bonsoir le forum
je reviens vers vous pour un petit problème
ma saison de vélo et terminer je veux remettre mon tableau a zéro pour attaquer 2013
mais des que je supprime mes données dans mes feuilles de mois
et que j'affiche mon userform et la je m’aperçois que j'ai encore toutes mes données
je me suis reporter a ma feuille paramètre et la j'ai toutes mes données de l'année rien ne c'est effacer

merci de me venir en aide mon mot de passe pour déverrouiller les feuille c'est philo

 

[Philo]

Re : suppresion de données

bonsoir le forum
petite question
serait-il possible que dans ma cellule A1 en feuille de JANVIER
je puisse changer d'année automatiquement des que je clique sur le bouton nouvelle saison
merci de me tenir au courant

 

[youky(BJ)]

Re : suppresion de données

Bonsoir Philo,
Ben....je continue.
Voici à recopier à la place de l'autre macro.
Bruno

Sub NouvelAn()
If MsgBox("Etes vous sur de tout effacer ?", vbYesNo + vbCritical + vbDefaultButton2, "EFFACEMENT") = vbNo Then Exit Sub
tx = Feuil1.[A1] + 1
an = InputBox("Indiquez l'année", "ANNEE", tx)
If an = "" Then Exit Sub
 Application.EnableEvents = False
 Application.ScreenUpdating = False
For k = 1 To Sheets.Count
 If Sheets(k).Name = "Paramètre" Or Sheets(k).Name = "Graphique" Then GoTo saute
 Sheets(k).UnProtect "philo"
 Sheets(k).[A4:C100].ClearContents
 Sheets(k).[E4:E100].ClearContents
 Sheets(k).Rows("4:33").Hidden = True
 Sheets(k).Rows("34").Hidden = False
 Sheets(k).Protect "philo"
saute:
Next
Feuil1.[A1] = an
 Application.EnableEvents = True
 Application.ScreenUpdating = True
 Unload UserForm1
 UserForm1.Show
End Sub

 

[Philo]

Re : suppresion de données

Sheets(k).[A4:C100].ClearContents
Sheets(k).[E4:E100].ClearContents

J' en deduit qu'il faut le modifier en :

Sheets(k).[A4:C34].ClearContents
Sheets(k).[E4:E34].ClearContents

par contre je ne peut pas verrouiller la cellule A1 de la feuille Janvier?

Pardon j'allais oublier de te remercier encore une fois

 

[Philo]

Re : suppresion de données

Bonsoir le forum et youky
Quand je verrouille la cellule a1 de la feuille janvier et que je clique sur nouvelle saison de mon userform sa beugue
Merci de votre aide

 

[youky(BJ)]

Re : suppresion de données

Exact (pas pensé à cela)
il faut desprotéger avec la macro, ensuite on copie ...an...et on reprotège

Feuil1.UnProtect "philo"
Feuil1.[A1] = an
Feuil1.UnProtect "philo"

je pense tu sera retouver ...Feuil1.[A1] = an
et rajoute les lignes en gras
Bruno

 

[Philo]

Re : suppresion de données

Slt Bruno
Je pense que tu veux dire
Feuil1 .Unprotect"philo"
Feuil1[A1]= an
Feuil1.protect"philo"

 

[youky(BJ)]

Re : suppresion de données

YES
Désolé
Bruno