verrouillage selon couleur

[lemak]

Bonjour à tous:
J'ai une feuille Excel protéger sauf 4 cellule sont déverrouiller;je veux verrouiller les cellules selon la couleur de remplissage.
Exemple: si la couleur est gris, les cellules sont verrouiller;si aucun couleur, les cellules sont déverrouiller. Y a-t-il une solution Merci d'avance

 

[Robert]

Bonsoir Lemak, bonsopir le forum,

D'abord juste une remarque, évite de poster plusieurs fois pour le même sujet car tu risques toi-même de t'y perdre et de ne pas t'apercevoir que tu as obtenu une réponse. Si tu as un moment jette un œil sur la Charte de ce forum.

Ton problème n'est pas simple car une mise en forme conditionnelle n'accepte une condition de couleur et une macro événementielle ne réagit au changement de couleur seul.
On peut tricher vant l'événement Change d'un module de feuille (Feuil1(Feuil1) par exemple) mais il faudra déplacer la cellule active au moins une fois après avoir changé la couleur car sinon la macro n'agira pas. Ça donnerait :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim plage As Range 'décalre la variable plage
Dim cel As Range 'déclare la variable cel

Set plage = Range('A1:A4') 'définit la variable plage (à adapter)

For Each cel In plage 'boucle sur toutes de cellules de la plage
'condition : si le motif de la cellule est gris
If cel.Interior.ColorIndex = 15 Then
cel.Locked = True 'la cellule est verrouillée
Else 'sinon
cel.Locked = False 'la cellule est déverrouillée
End If 'fin de la condition
Next cel 'prochaine cellule de la boucle

End Sub

C'est pas très top mais j'ai pas mieux...

Message édité par: Robert, à: 03/04/2006 23:33

 

[lemak]

Bonjour Robert
Bonjour à tous
j'ai essaié,pas de résultat,il-y-a un message
'impossible d'établir la propriété Locked avec la classe range.