XL 2019 Rendre obligatoire les cellules B1 B2 P1 P2 avant de pouvoir continuer à travailler.

[GACON F]

Bonjour et merci

Je souhaiterais utiliser obligatoirement les cellules B1 B2 P1 P2 avant que l'utilisateur puisse travailler sur le reste du document.

Si B1 B2 P1 P2 ne sont pas renseignés alors la partie suivante ou la plage n'est pas disponible, elle est protégée ainsi que la feuille

Si B1 B2 P1 P2 sont bien renseignés alors la partie suivante ou la plage devient accessible en le déprotégeant et en protégeant la feuille

 

[Hasco]

Bonjour,

Voir dans le code ci-dessous dans le module de la feuille
Si une des cellules de la plage $B$1:$L$2,$P$1:$T$2 (Cellules fusionnée) change
le code vérouillera ou non les cellules des plages $A$9:$W$51,$U$2:$W$2,$C$52:$D$56 suivant qu'elles ont 4 valeurs ou non
a vous d'adapter en fonction de votre besoin (Pas sûr pour C5256

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim ok As Boolean
    If Not Intersect(Target, Range("$B$1:$L$2,$P$1:$T$2")) Is Nothing Then
        With Range("$A$9:$W$51,$U$2:$W$2,$C$52:$D$56")
        Me.Unprotect
        .Locked = Application.CountA(Range("$B$1:$L$2,$P$1:$T$2")) <> 4
        Me.Protect
        End With
    End If
End Sub

Bonne fin d'après-midi

 

[GACON F]

Bonjour,

Merci beaucoup, je crois que ça va aider beaucoup de monde