Plage de Cellules

Bonjour,

Si les feuilles à protéger sont les dernières :
Sub Toto()
For cpt = 3 To 15
Sheets(cpt).Select
Range("d4:f34").Locked = False
Range("j4:k34").Locked = False
ActiveSheet.Protect
Next
End Sub

Camille

-----Message d'origine-----
Bonjour à tous,
J'ai un classeur comprotant 15 feuilles.
J'aimerais permettrent la saisie uniquement sur deux
plages D4:F34 et J4:K34

Mais Uniquement sur 12 feuilles du classeur. Sur les
trois autres feuilles,

je veux une saisie normale

Merci
Pascal


.

Bonjour,
Pour chaque plage autorisée sur une feuille à protéger,
faire FORMAT/Cellule/Protection décocher "Verrouillé"
Pour chaque feuille à protéger, faire :
OUTILS/PROTECTION/Protéger la feuille (

-----Message d'origine-----
Bonjour à tous,
J'ai un classeur comprotant 15 feuilles.
J'aimerais permettrent la saisie uniquement sur deux
plages D4:F34 et J4:K34

Mais Uniquement sur 12 feuilles du classeur. Sur les
trois autres feuilles,

je veux une saisie normale

Merci
Pascal


.

Bonjour,
Pour chaque plage autorisée sur une feuille à protéger,
faire FORMAT/Cellule/Protection décocher "Verrouillé"
Pour chaque feuille à protéger, faire :
OUTILS/PROTECTION/Protéger la feuille (

-----Message d'origine-----
Bonjour à tous,
J'ai un classeur comprotant 15 feuilles.
J'aimerais permettrent la saisie uniquement sur deux
plages D4:F34 et J4:K34

Mais Uniquement sur 12 feuilles du classeur. Sur les
trois autres feuilles,

je veux une saisie normale

Merci
Pascal


.

Bonjour,
Pour chaque plage autorisée sur une feuille à protéger,
faire FORMAT/Cellule/Protection décocher "Verrouillé"
Pour chaque feuille à protéger, faire :
OUTILS/PROTECTION/Protéger la feuille (

-----Message d'origine-----
Bonjour à tous,
J'ai un classeur comprotant 15 feuilles.
J'aimerais permettrent la saisie uniquement sur deux
plages D4:F34 et J4:K34

Mais Uniquement sur 12 feuilles du classeur. Sur les
trois autres feuilles,

je veux une saisie normale

Merci
Pascal


.

Merci
Je vais essayer

pascal

"Ellimac" <anonymous@discussions.microsoft.com> a écrit dans le message de
news: 0a9a01c3aa99$e6da72e0$a101280a@phx.gbl...
Bonjour,

Si les feuilles à protéger sont les dernières :
Sub Toto()
For cpt = 3 To 15
Sheets(cpt).Select
Range("d4:f34").Locked = False
Range("j4:k34").Locked = False
ActiveSheet.Protect
Next
End Sub

Camille

-----Message d'origine-----
Bonjour à tous,
J'ai un classeur comprotant 15 feuilles.
J'aimerais permettrent la saisie uniquement sur deux
plages D4:F34 et J4:K34

Mais Uniquement sur 12 feuilles du classeur. Sur les
trois autres feuilles,

je veux une saisie normale

Merci
Pascal


.

Bonjour,je reprends...
Pour chaque plage autorisée sur une feuille à protéger,
faire FORMAT/Cellule/Protection décocher "Verrouillé"
Pour chacune des 12 feuilles à protéger, faire :
OUTILS/PROTECTION/Protéger la feuille (avec ou sans mot de
passe). Ne pas protéger les 3 autres feuilles autorisant
la saisie totale.
DL

-----Message d'origine-----
Bonjour,
Pour chaque plage autorisée sur une feuille à protéger,
faire FORMAT/Cellule/Protection décocher "Verrouillé"
Pour chaque feuille à protéger, faire :
OUTILS/PROTECTION/Protéger la feuille (

-----Message d'origine-----
Bonjour à tous,
J'ai un classeur comprotant 15 feuilles.
J'aimerais permettrent la saisie uniquement sur deux
plages D4:F34 et J4:K34

Mais Uniquement sur 12 feuilles du classeur. Sur les
trois autres feuilles,

je veux une saisie normale

Merci
Pascal


.

.

Salut Pascal,
Si tu ne veux pas protéger tes feuilles, tu peux éssayer le code ci-dessous.
A mettre dans le module de ta feuille :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect([D4:F34,J4:K34], Target) Is Nothing Then
MsgBox "Modif interdite !!!"
[D4].Select
End If
End Sub

Hervé.

"Pascal" <Zork.NOSSWEN@tropcurieurx.com> a écrit dans le message news:
Oh3leZpqDHA.2776@tk2msftngp13.phx.gbl...

Bonjour à tous,
J'ai un classeur comprotant 15 feuilles.
J'aimerais permettrent la saisie uniquement sur deux plages D4:F34 et
J4:K34

Mais Uniquement sur 12 feuilles du classeur. Sur les trois autres
feuilles,

je veux une saisie normale

Merci
Pascal