XL 2010 verrouiller une cellule dont la couleur est posée par Mise en Forme Conditionnelle

chris

XLDnaute Barbatruc

• 29 Juin 2021

• #2

Bonjour

utiliser
cel.DisplayFormat.Interior.ColorIndex

 

Vote positif 0 Vote négatif

Hasco

XLDnaute Barbatruc

Repose en paix

• 29 Juin 2021

• #3

Bonjour,

Dans votre ligne de déclaration de variable, il ne suffit pas de mettre Range en bout de ligne pour que toutes les variables de la ligne soient déclarées en Range. (dans votre cas ce n'est pas très important que cel soit un variant)

Dans une procédure évènementielle de classeur il est toujours bien de contrôler le type de feuille passée à la procédure, car un classeur peut avoir des feuilles de travail, des feuilles graphiques et feuilles macro (rares aujourd'hui).

Voici une procédure qui tient compte de ces points. De plus pour le verrouillage des cellules je vous ai mis deux possibilités, une qui traitera toutes les cellules de la plage données en les verrouillant ou dévérouillant et une autre qui ne traitera QUE celles dont le format correspond au critères, laissant les autres dans leur état.

VB:

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    Dim Cel As Range, Plage As Range
    If Not TypeOf Sh Is Worksheet Then Exit Sub
    Set Plage = Sh.Range("B2:Y221")
    Sh.Unprotect
    For Each Cel In Plage
        '
        ' Si l'on veut verouiller UNIQUEMENT celles qui correspondent au critère
        ' et dévérouiller les autres décommenter la ligne suivante
        'Cel.Locked = Cel.DisplayFormat.Interior.ColorIndex <> -4142
        '
        ' si on veut traiter uniquement celles qui correspondent au critère
         If Cel.DisplayFormat.Interior.ColorIndex <> -4142 Then Cel.Locked = True
    Next
    Sh.Protect
End Sub

Cordialement

[Edition] Hello @chris [/Edition]

 

Vote positif 0 Vote négatif

O

Ommagawi

XLDnaute Junior

• 30 Juin 2021

• #4

Merci de votre contribution mais rien ne se produit.
Je joins mon fichier pour mieux comprendre.
Quand la formation est validée elle passe au vert.
Quand elle est annulée elle passe au rouge.
Je voudrai qu'une fois colorées, les lignes soient verrouillées automatiquement et qu'on ne puisse plus modifier les cellules colorées sauf si on déprotège la feuille.
Est ce possible ?

 

Pièces jointes

• Exemple vérouillage.xlsx

  12.4 KB · Affichages: 8

Vote positif 0 Vote négatif

Hasco

XLDnaute Barbatruc

Repose en paix

• 30 Juin 2021

• #5

Bonjour,

Et la macro, elle est où ?

Ommagawi à dit:

Je voudrai qu'une fois colorées, les lignes soient verrouillées automatiquement et qu'on ne puisse plus modifier les cellules colorées sauf si on déprotège la feuille.

Cliquez pour agrandir...

Quand elle est validée ? Quand elle est annulée ? Les deux ? Quand la colonne ETAT n'est pas vide en fait ? Non ?

Voici un exemple qui verrouille les cellules de la ligne (colonne A à H ) lorsque H n'est plus vide.
Elle le fait au cas par cas sur changement de la valeur de ETAT.

A mon avis, cela va vite devenir pénible, cette protection au cas par cas.
Aussi je vous ai préparé une macro (dans le deuxième fichier) nommée 'Verrouiller' qui verrouille toutes les lignes dont la colonne ETAT contient quelque chose et dévérrouille éventuellement les autres.

Faites vos changements, cliquez sur le bouton 'Verrouillage - protection' et hop !



cordialement

 

Pièces jointes

• Exemple vérouillage.xlsm

  27.2 KB · Affichages: 7
• Exemple vérouillage v2.xlsm

  30.3 KB · Affichages: 7

Dernière édition: 30 Juin 2021

Vote positif 0 Vote négatif

O

Ommagawi

XLDnaute Junior

• 30 Juin 2021

• #6

Merci Roblochon

 

Vote positif 0 Vote négatif

Etoto

XLDnaute Barbatruc

• 30 Juin 2021

• #7

Bonjour (salut Roblochon),

Heuu, tu as choisis comme solution à ta discussion le post 6 mais vu le travail de Roblochon la solution devrait être le post 5.

édition : hello chris, je ne t'avais pas vu, désolé

Bonne journée

@Etoto

 

Dernière édition: 30 Juin 2021

Vote positif 0 Vote négatif

O

Ommagawi

XLDnaute Junior

• 30 Juin 2021

• #8

Juste une précision :
si on veut que la plage se limite à A1:H5000, peut-on le faire ?
Je ne souhaite pas verrouiller la colonne I.

 

Vote positif 0 Vote négatif

Hasco

XLDnaute Barbatruc

Repose en paix

• 30 Juin 2021

• #9

Bonjour,

Dans quelle macro de quel fichier ?

Pour le v2 on change With .Range("A1").CurrentRegion par With .Range("A1:H5000")
Idem pour le premier fichier mais sans le point devant Range !

Surtout on essaie de comprendre comment fonctionne la macro et on fait ses propre tests avant de demander modification, sinon on restera toujours dépendant d'un clampin qui voudra peut-être bien nous aider.

Cordialement

 

Vote positif 0 Vote négatif

O

Ommagawi

XLDnaute Junior

• 30 Juin 2021

• #10

J'avais essayé mais ça ne fonctionnait pas !
Merci encore.

 

Vote positif 0 Vote négatif

Hasco

XLDnaute Barbatruc

Repose en paix

• 30 Juin 2021

• #11

Ommagawi à dit:

J'avais essayé mais ça ne fonctionnait pas !

Cliquez pour agrandir...

Bien mais alors il faut nous montrer ce que vous avez fait (classeur) sinon on ne peut deviner ce qui cloche.

Cordialement

 

Vote positif 0 Vote négatif

O

Ommagawi

XLDnaute Junior

• 14 Juillet 2021

• #12

J'ai résolu mon problème grâce à vous. Merci.

 

Vote positif 0 Vote négatif