Discussion :

[altra]

Bonjour,

Je vous sollicite pour un petit problème.
J'ai l'idée mais je n'ai pas les compétences pour l'appliquer.

J'ai bien lu des propositions sur ce sujet mais elles ne me conviennent.

Pour moi l'idéal serait, mais je ne sais pas si c'est possible, d'extraire la couleur de fond de la cellule et l'appliquer à la police. Ensuite toujours grâce à une macro activer la case masquée et verrouillée de l'onglet protection dans format d'une cellule.

La seule chose que je sache faire c'est ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Sub masquecellule()
Range(ActiveCell.Address).Font.ColorIndex = 2
End Sub

Donc à la place du 2, j'aimerais mettre la couleur de fond de la cellule (quelle qu'elle soit)
Ensuite je sais comment protéger une feuille avec

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveSheets.Protect "", True, True, True

existe-t-il un code similaire pour activer "masquée" et "verouillée"


Merci pour vos suggestions

Bonne journée

[cafeine]

Hello,

essaie

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

activecell.Interior.Color = activecell.Font.Color

pour rétablir, il suffit de pointer sur une cellule qui a un fond standard.

[altra]

Merci pour cet élément de réponse.

J'ai du inversé les deux termes pour avoir la couleur de police correspondre au fond de la cellule et pas le fond de la cellule correspondre à la couleur de police. C'est en tous cas une des réponses que je cherchais.

J'ai encore une question de plus. Est il possible d'appliquer cela, non pas à une seule cellule, mais à une selection de cellule par exemple de A1 à A12. Lorsque je sélectionne une plage de cellule, seule la 1ere cellule est affectée.

[aalex_38]

Bonjour à tous,


Ce code ci applique sur de A1 à A12 (testé) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Sub test()
Range("A1:A12").Interior.Color = Range("A1").Font.Color
End Sub

[altra]

Merci pour cette proposition.

Des idées pour activer "masquée" et "verrouillée" à partir d'une macro.

[aalex_38]

Un exemple pour vérouiller et masquer une cellule :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
With Cells(1, 1)
    .Locked = True
    .FormulaHidden = True
End With

[altra]

Ok merci bcp, c'est que je cherchais.