Autoriser modification de plage sur plusieurs feuilles

Bonjour

Dans un fichier j'ai des feuilles T1, T2, T3 etc ,en feuille T1 j'ai autorisé la modification de plusieurs plages .

J'aimerais savoir comment faire pour avoir la même chose sur les autres feuilles qui sont identiques

sans avoir a recommencer la sélection des plages.

Je vous remercie pour votre aide

Cordialement

Bonsoir Joco, bonsoir le forum,

Une méthode entre autres :

1. Dans T1, sélectionne la plage où tu as déverrouillé les cellules.

2. Puis, lance le code ci-dessous :

Sub Macro1()
Dim I As Byte 'déclare la variable I (Incrément)
Dim PL As Range 'déclare la variable PL (PLage)
Dim APL As String 'déclare la variable APL (Adresse de la PLage)

APL = Selection.Address 'définit la variable APL
For I = 2 To Sheets.Count 'boucle sur tous les onglets I du classeur (en partant du second)
    With Sheets(I) 'prend en compte l'onglet de la boucle
        .Unprotect 'déprotège
        Set PL = Sheets(I).Range(APL) 'définit la plage PL
        PL.Locked = False 'dévérouille la plage PL
        .Protect 'protège
    End With 'fin de la prise en compte de l'onglet de la boucle
Next I 'prochain onglet de la boucle
End Sub

Bonjour

Merci pour ta réponse,mais j'ai un bug sur cette ligne et donc ça ne fonctionne pas

Set PL = Sheets(I).Range(APL) 'définit la plage PL

Re,

Sans fichier je ne peux rien faire de plus. J'ai testé chez moi et ça fonctionne...

Merci pour ton aide

J'ai trouvé la solution en cliquant sur modifier ,on peut faire un copier coller et ça fonctionne

Bonne journée

Crdlt