Déverrouiller les cellules selon la couleur

Staple1600

XLDnaute Barbatruc

• 1 Janvier 2014

• #2

Re : Déverrouiller les cellules selon la couleur

Bonsoir à tous

Ilino

est ce que il y a une possibilité de mettre

Cliquez pour agrandir...

... de mettre un fichier exemple ? 😉
ce qui facilitera nos efforts pour apporter solution à ta question de déverrouillage 😉

 

Vote positif 0 Vote négatif

Ilino

XLDnaute Barbatruc

• 1 Janvier 2014

• #3

Re : Déverrouiller les cellules selon la couleur

Bonsoir JM😱
CI JOINT LE FICHIER
gRAZIE

 

Pièces jointes

• color ilinio.xlsx

  9.5 KB · Affichages: 73

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 1 Janvier 2014

• #4

Re : Déverrouiller les cellules selon la couleur

Re

test ok (si et seulement bye-bye cellules fusionnées)

Code:

Sub a()
ActiveSheet.Unprotect
Range("A3:B3").Locked = False
Range("A3:B3").HorizontalAlignment = xlCenterAcrossSelection
Range("A6:B6").Locked = False
Range("A6:B6").HorizontalAlignment = xlCenterAcrossSelection
Range("B14:C14").Locked = False
Range("B14:C14").HorizontalAlignment = xlCenterAcrossSelection
Range("D9").Locked = False
ActiveSheet.Protect
End Sub

 

Vote positif 0 Vote négatif

Ilino

XLDnaute Barbatruc

• 1 Janvier 2014

• #5

Re : Déverrouiller les cellules selon la couleur

Re-JM
GRAZIE pour la réponse mais mon souci selon le post#1
la feuilles est par défaut verrouillée , mon souci est chaque fois je coloriée des cellules en blanches ces derniere devient déverrouillées;
donc je n'ai pas spécifie des cellules ( c'est un exemple seulement)

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 1 Janvier 2014

• #6

Re : Déverrouiller les cellules selon la couleur

Re

A mettre dans le code de la feuille colorée

Code:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count = 1 Then
If Target.Interior.ColorIndex = 2 Then
Target.Locked = False
End If
End If
End Sub

PS: test OK ici

 

Vote positif 0 Vote négatif

Ilino

XLDnaute Barbatruc

• 1 Janvier 2014

• #7

Re : Déverrouiller les cellules selon la couleur

Re- JM
Supper ça fonctionné mais pas avec les cellules fusionnées,,??
A+

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 1 Janvier 2014

• #8

Re : Déverrouiller les cellules selon la couleur

Re

comme je disais plus bas

(si et seulement bye-bye aux cellules fusionnées)

Cliquez pour agrandir...

C'est pour cela que dans mon code nous trouvions en lieu et place:
xlCenterAcrossSelection 😉

 

Vote positif 0 Vote négatif

Ilino

XLDnaute Barbatruc

• 1 Janvier 2014

• #9

Re : Déverrouiller les cellules selon la couleur

Re JM
Je ne peux pas appliquer dans mon application la notion" Centrer sur plusieurs colonnes sans fusion des cellules" je dois avoir des cellules fusionnées dans mon programme?
donc il n'y a pas une possibilité ?
A+

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 1 Janvier 2014

• #10

Re : Déverrouiller les cellules selon la couleur

Re

Ilino

je dois avoir des cellules fusionnées dans mon programme?

Cliquez pour agrandir...

Et pourquoi donc cette obligation ?
La fusion est là pour l’esthétisme mais avec les ennuis
Centrer sur plusieurs colonnes équivaut à la fusion sans les ennuis mais avec le même résultat esthétique 😉

Donc le changement c'est maintenant 😉

 

Vote positif 0 Vote négatif

Ilino

XLDnaute Barbatruc

• 1 Janvier 2014

• #11

Re : Déverrouiller les cellules selon la couleur

Staple1600 à dit:

Re

comme je disais plus bas

C'est pour cela que dans mon code nous trouvions en lieu et place:
xlCenterAcrossSelection 😉

Cliquez pour agrandir...

Re JM
PBLM RESOLU
Remplacer :

Code:

Target.Locked = False

par :

Code:

Target.MergeArea.Locked = False

GRAZIE
A+

 

Vote positif 0 Vote négatif

Ilino

XLDnaute Barbatruc

• 1 Janvier 2014

• #12

Re : Déverrouiller les cellules selon la couleur

Staple1600 à dit:

Re

Ilino

Et pourquoi donc cette obligation ?
La fusion est là pour l’esthétisme mais avec les ennuis
Centrer sur plusieurs colonnes équivaut à la fusion sans les ennuis mais avec le même résultat esthétique 😉

Donc le changement c'est maintenant 😉

Cliquez pour agrandir...

Sorry je n'ai pas vu ton message ci dessus
un grand merci JM
Bonne nuit et A+
GRAZIE

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 1 Janvier 2014

• #13

Re : Déverrouiller les cellules selon la couleur

Re


Tu es bien sur que cela fonctionne dans tous les cas de figure ?
Ce n'est pas le cas chez moi 😉
par exemple
je fusionne deux cellules plus je mets en blanc
la case Verrouillée reste cochée

 

Vote positif 0 Vote négatif

Ilino

XLDnaute Barbatruc

• 1 Janvier 2014

• #14

Re : Déverrouiller les cellules selon la couleur

Re JM🙁
tu as raison je suis entarin de teste ce code dans plusieurs feuilles dans le meme classeur mais ????😕😕
A+

 

Vote positif 0 Vote négatif

Ilino

XLDnaute Barbatruc

• 1 Janvier 2014

• #15

Re : Déverrouiller les cellules selon la couleur

Staple1600 à dit:

Re


Tu es bien sur que cela fonctionne dans tous les cas de figure ?
Ce n'est pas le cas chez moi 😉
par exemple
je fusionne deux cellules plus je mets en blanc
la case Verrouillée reste cochée

Cliquez pour agrandir...

RE
ci joint le fichier avec ton code ...mais ça n'a pas marché???

EDIT : je retire le post#11 🙁😱 🙁

 

Pièces jointes

• color ilinio.xlsm

  15.1 KB · Affichages: 40

Vote positif 0 Vote négatif