Discussion :

[Valcou]

bonjour

Je dois protéger mon onglet mais laisser quelques cellules modifiables. Jusque là pas de soucis : mon code marche parfaitement

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
Worksheets(p_onglet).Protection.AllowEditRanges.Add Title:="Range1", Range:= _
        Range("D29:O29,Q29:AB29,AD29")
    Worksheets(p_onglet).Protect Password:="pwd", DrawingObjects:=True, Contents:=True, Scenarios:=True

Maintenant je voudrai faire passer en dynamique la plage de cellule que j'autorise. Et là je coince. J'ai mis dans une variable range la plage en question et écrit mon code de cette manière

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
Set PlageTot =  Range("Q17:AB18,AD17:AD18")
    Worksheets(p_onglet).Protection.AllowEditRanges.Add Title:="Range2", Range:=PlageTot

J'obtiens une erreur 1004 "Application-defined or object-defined error"

Pouvez vous me donner un coup de main ?

Merci d'avance

Valérie

[LeForestier]

Bonjour,
Avant de mettre le 2ièm titre, tu déprotége la feuille ?
A+

[Valcou]

oui je déprotège
mais surtout j'avais oublié de faire un delete des éventuels alloweditrange existant déjà ... du coup cela va beaucoup mieux et le programme reconnait bien ma variable range ...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 On Error Resume Next
     Worksheets(p_onglet).Unprotect Password:="pwd"
     Worksheets(p_onglet).Protection.AllowEditRanges("range1").Delete
     Worksheets(p_onglet).Protection.AllowEditRanges("range2").Delete
     Worksheets(p_onglet).Protection.AllowEditRanges("range3").Delete

Valérie