[XL-2003] mise en forme automatique [Résolu]

[mickisa]

j'ai voulu faire une mise en forme automatique sur mes cellules dont voici le code que j'ai mis dans worksheet selection change.

mais il bute toujours sur "ActiveCell.Font.ColorIndex = xlNone"

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
If ActiveCell.Value = "" Then
    ActiveCell.Font.ColorIndex = xlNone
    ActiveCell.Interior.ColorIndex = xlNone
    ElseIf ActiveCell.Value = "RUP" Then
    ActiveCell.Font.ColorIndex = xlNone
    ActiveCell.Interior.ColorIndex = 50
    ElseIf ActiveCell.Value = "Réunion" Then
    ActiveCell.Font.ColorIndex = 3
    ActiveCell.Interior.ColorIndex = xlNone
    ElseIf ActiveCell.Value = "Ligne" Then
    ActiveCell.Font.ColorIndex = 5
    ActiveCell.Interior.ColorIndex = xlNone
    ElseIf ActiveCell.Value = "Bureau" Then
    ActiveCell.Font.ColorIndex = xlNone
    ActiveCell.Interior.ColorIndex = xlNone
    ElseIf ActiveCell.Value = "JF1" Then
    ActiveCell.Font.ColorIndex = 5
    ActiveCell.Interior.ColorIndex = xlNone
    ElseIf ActiveCell.Value = "JF2" Then
    ActiveCell.Font.ColorIndex = 5
    ActiveCell.Interior.ColorIndex = xlNone
    ElseIf ActiveCell.Value = "JF3" Then
    ActiveCell.Font.ColorIndex = 5
    ActiveCell.Interior.ColorIndex = xlNone
    ElseIf ActiveCell.Value = "JF4" Then
    ActiveCell.Font.ColorIndex = 5
    ActiveCell.Interior.ColorIndex = xlNone
    ElseIf ActiveCell.Value = "R.Sécu" Then
    ActiveCell.Font.ColorIndex = xlNone
    ActiveCell.Interior.ColorIndex = 3
    ElseIf ActiveCell.Value = "R.Prod" Then
    ActiveCell.Font.ColorIndex = xlNone
    ActiveCell.Interior.ColorIndex = 7
    ElseIf ActiveCell.Value = "SDF" Then
    ActiveCell.Font.ColorIndex = 3
    ActiveCell.Interior.ColorIndex = xlNone
    ElseIf ActiveCell.Value = "KCVP" Then
    ActiveCell.Font.ColorIndex = 3
    ActiveCell.Interior.ColorIndex = xlNone
    ElseIf ActiveCell.Value = "A" Then
    ActiveCell.Font.ColorIndex = 33
    ActiveCell.Interior.ColorIndex = 33
    ElseIf ActiveCell.Value = "F" Then
    ActiveCell.Font.ColorIndex = 40
    ActiveCell.Interior.ColorIndex = 40
    End If

[Daniel.C]

Bonjour,

Utilise "vbnone" à la place.

PS. Ne mets pas les balises "#" à la main, mets le code en surbrillance et clique sur l'icône "#" dans la barre d'icônes.

[mickisa]

pour les balises j'ai tenté mais cela ne fonctionne pas , sur mon poste.

sinon pour le code cela ne marche pas non plus.

ma feuille est protége mais pas ces cellules.

je séche là car avec la mise en forme automatique je suis limité à 3 conditions.

[gFZT82]

Bonjour,

Si tu souhaites revenir à une couleur de police automatique

Code :

ActiveCell.Font.ColorIndex = xlAutomatic

Si tu souhaites supprimer la couleur de remplissage

Code :

ActiveCell.Interior.ColorIndex = xlNone

Cordialement.

[Daniel.C]

Au temps pour moi.
Il n'y a pas de police sans couleur. Il te faut spécifier une couleur. Si tu veux un texte invisible, spécifie la même couleur que la couleur d'arrière-plan.

[mickisa]

en fait en rajoutant un code pour déprotéger ma feuille avant et la reportéger ensuite.

cela fonctionne allez savoir pourquoi...

en revanche quand je mets mon fichier en partage, la méthode sheets unprotect echoue??

décidément.

une idée merci

[mickisa]

j'ai trouvé ....

En fait lors de la protection il fallait lui autoriser les modifications de cellules (mise en forme).

finalement quand on cherche...