verrouillage selon couleur

lemak · 3 Avril 2006

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 · 3 Avril 2006

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 · 7 Avril 2006

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.

verrouillage selon couleur

lemak

Guest

Robert

XLDnaute Barbatruc

lemak

Guest

Discussions similaires