Macro de protection

[ChantalTreize]

Bonjour à tous & à toutes,
J'ai monté une macro pour figer certaines plages de cellule dans ma feuille, après on saisi des données et après je voudrais protéger totalement le feuille mais la ça coince
La macro de protection des plages de cellules est celle ci:
Sub Protec_grille()
'
' Protec_grille Macro
'
' Touche de raccourci du clavier: Ctrl+f
'

Range("AR33:AT33").Select
ActiveCell.FormulaR1C1 = "1"
Range("AR33:AT33").Select
Selection.ClearContents
Range("BQ32:BU32").Select
ActiveCell.FormulaR1C1 = "2"
Range("BQ32:BU32").Select
Selection.ClearContents
ActiveWindow.SmallScroll Down:=165
Range("AE205:AG205").Select
ActiveCell.FormulaR1C1 = "-10"
Range("AE205:AG205").Select
Selection.ClearContents
Range("AO213:AS213").Select
ActiveCell.FormulaR1C1 = "2"
Range("AO213:AS213").Select
Selection.ClearContents
ActiveWindow.SmallScroll Down:=-255
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub

Qui pourrai me dire quelle macro mettre car si je fais protéger la feuille les parties saisissables le reste
Par avance merci
Chantal

 

[Paritec]

bonjour Chantal,
c'est quoi ton affaire de Macro ???
est-ce que tu sais au moins ce que tu as écrit???
Range("AR33:AT33").Select ' là tu sélectionnes 3 cellules
ActiveCell.FormulaR1C1 = "1" ' là tu donnes a la cellule sélectionnée la première à gauche la valeur 1
Range("AR33:AT33").Select '' là tu sélectionnes 3 cellules
Selection.ClearContents ' et là tu effaces le contenu de la sélection des 3 cellules !!!!
explique moi voir a quoi cela peut bien servir???
si tu veux effacer AR33:AT33 tu écris
range("AR33:AT33").clearcontents et c'est fini
et pour la protection de la feuille tout dépend de ce que tu veux protéger
a+
Papou