Verrouiller cellule en fonction couleur MFC

[Jiheme]

Bonjour le forum

Je voudrais verrouiller les cellules D3 à O20 si elles sont noires, je pense avoir trouvé le code, mais je pense que le problème provient du fait que la couleur est définie par une MFC.

Une solution pour détourner le problème ?

Merci
A+

 

[mutzik]

Re : Verrouiller cellule en fonction couleur MFC

Bonjour

le fait qu'il y ait une MFC n'a rien à voir avec la protection
La MFC sert uniquement pour l'aspect visuel des données
La protection / déprotection se fait manuellement ou par code VBA
Dans ce cas, en fonction de ce que tu as mis dans ta MFC pour mettre tes cellules en noir, tu mets les mêmes conditions dans ton code VBA pour protéger / déprotéger tes cellules

 

[Jiheme]

Re : Verrouiller cellule en fonction couleur MFC

Bonjour Mutzik

Justement c'est cela que je sais pas écrire en VBA.

Merci
A+

 

[Jiheme]

Re : Verrouiller cellule en fonction couleur MFC

Re à tous

J'ai enfin réussi à faire cette P----- de boucle, je vous la livre si cela intéresse quelqu'un:

Sub test2()
For l = 3 To 20
For j = 4 To 16
For k = 30 To 46
If Cells(l, k) = "X" Then Cells(l, j).Locked = True
If Cells(l, k) <> "X" Then Cells(l, j).Locked = False
Next k
Next j
Next l

End Sub

A+

 

[Pierrot93]

Re : Verrouiller cellule en fonction couleur MFC

Bonjour à tous

A voir, mais ceci devrait peut être suffire...

Dim c As Range
For Each c In Range("D3:O20")
    c.Locked = c.Offset(0, 26) = "X"
Next c

Bon après midi
@+

 

[Jiheme]

Re : Verrouiller cellule en fonction couleur MFC

Bonjour Pierrot, re à tous

Et comment que cela suffit, et en plus c'est beaucoup plus rapide.

Merci beaucoup
A+