Discussion :

[alban.pinel]

Bonjour,

Je suis confronté à un problème de mise en forme conditionnelle.
Par défaut, Excel ne propose que 3 conditions possibles, or il m'en faut 14.

Je souhaiterai que dans ma feuille Excel, la couleur de fond des cellules change automatiquement suivant le contenu de la cellule.
Par exemple :
- si la cellule a pour valeur "KT1", il faut qu'elle soit bleue
- si la cellule a pour valeur "KT2", il faut qu'elle soit verte
- si la cellule a pour valeur "PT1", il faut qu'elle soit jaune
- si la cellule a pour valeur "PT3", il faut qu'elle soit rouge
- si la cellule a pour valeur "T", il faut qu'elle soit noire
et ainsi de suite sur 14 valeurs différentes.

Auriez-vous une solution. Je cherche dans tout le FAQ depuis ce matin, sans succès.

Merci beaucoup pour votre aide.

Alban

[Nad-Dan]

Bonjour

Code à placer dans la feuille concernée :

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub Worksheet_Change(ByVal Target As Range)
 
If Target.Value = "KT1" Then Target.Interior.ColorIndex = 5
If Target.Value = "KT2" Then Target.Interior.ColorIndex = 4
If Target.Value = "PT1" Then Target.Interior.ColorIndex = 6
If Target.Value = "PT3" Then Target.Interior.ColorIndex = 3
If Target.Value = "T" Then Target.Interior.ColorIndex = 1
'etc ...
 
End Sub

Amicalement
Nad

[alban.pinel]

Merci beaucoup ! ca fonctionne.
Je vois bien que c'était pourtant tout simple ... :-)

Je souhaite corser un peu la difficulté.
La liste des 14 valeurs (KT1, KT2, ...) est stockée dans une table, sur la meme feuille. Chaque cellule est alors de la couleur désirée. Cette table est en quelque sorte la légende pour le reste de la feuille de calcul.

Je souhaiterai faire référence à cette table pour attribuer la couleur.
De cette façon, si jamais je décide de changer la légende, tout le reste de la feuille changera également automatiquement.

Avez-vous une solution ?

Merci beaucoup.

Alban

[casefayere]

Bonjour,

une idée comme il peut y en avoir d'autres,
tu crées une feuille nommée "legende", tu insère tes 14 valeurs, ex : de "a1" à "a14"

de "b1" à "b14" tu fais correspondre le numero de couleur, si tu as mis kt1 en "a1" tu mets 5 en "b1" ensuite tu transformes ton code :

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub Worksheet_Change(ByVal Target As Range)
with sheets("legende")
If Target.Value = "KT1" Then Target.Interior.ColorIndex = .range("b1")
If Target.Value = "KT2" Then Target.Interior.ColorIndex = .range("b2")
If Target.Value = "PT1" Then Target.Interior.ColorIndex = .range("b3")
If Target.Value = "PT3" Then Target.Interior.ColorIndex = .range("b4")
If Target.Value = "T" Then Target.Interior.ColorIndex = .range("b5")
'etc ...
end with

il te suffiras de changer le numero en "b" dans la "feuille légende"

il y a certainement mieux

End Sub

[ouisansdoute]

Bonjour,

Pour ce faire tu peux compléter le code de casefayere de la façon suivante (je suppose que la oiste est en A1:A6) :

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub Worksheet_Change(ByVal Target As Range)
 If Target.Value = Range("A1") Then Target.Interior.ColorIndex = Range("A1").Interior.ColorIndex
If Target.Value = Range("A2") Then Target.Interior.ColorIndex = Range("A2").Interior.ColorIndex
If Target.Value = Range("A3") Then Target.Interior.ColorIndex = Range("A3").Interior.ColorIndex
If Target.Value = Range("A4") Then Target.Interior.ColorIndex = Range("A4").Interior.ColorIndex
If Target.Value = Range("A5") Then Target.Interior.ColorIndex = Range("A5").Interior.ColorIndex
If Target.Value = Range("A6") Then Target.Interior.ColorIndex = Range("A6").Interior.ColorIndex
'etc ...
 End Sub

[Invité]

Bonjour,

Créer un champ avec KT1,KT2,..., colorier les cellules et nommer le champ Couleurs

Si la zone de saisie est A1:C100:

Code :

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

1
2
3
4
5
6
7
 
Private Sub Worksheet_Change(ByVal Target As Range)
  If Not Intersect([A1:C100], Target) Is Nothing Then
    On Error Resume Next
    Target.Interior.ColorIndex = [couleurs].Find(Target, LookAt:=xlWhole).Interior.ColorIndex
  End If
End Sub

JB

[alban.pinel]

Merci beaucoup pour vos reponses rapides.

Bon je vous "embete" encore un peu, même si ces solutions me vont bien.
Mais je remarque que le cellule changent de couleur uniquement quand je passe dessus, que je mets la valeur, et que j'en sors.
Si je modifie la légende (par exemple, le KT1 est modifié, il passe du bleu au noir), ceci n'est pas reflété sur toutes les cellules marquées KT1 de ma feuille.
Il faut que je repasse sur chacune des cellules pour aller ré-écrire dedans KT1, afin que la couleur soit bien la bonne.

Apparemment vos solutions se basent sur un programme qui tourne a chaque sortie de chaque cellule. C'est la le problème.

Deuxième chose, j'ai un message de "debug" si jamais je copie la valeur KT1 sur 3 cases adjacentes par exemple.

Merci bcp pour votre aide.

Alban

[casefayere]

c'est normal, ton code est dans l'evenement change, il faut ajouter un code aus propo ci-dessus pour faire une mise à jour, tout dépend du code que tu auras adopté

Pour ton debug, l'evenement change n'aime pas la selection de plusieurs cellules

[alban.pinel]

Merci à tous.

J'ai finalement adopté le code de ouisansdoute, tout simplement parceque c'est celui que je comprends le mieux, et donc plus facile pour moi pour la maintenance du fichier.

Je cherche maintenant le moyen de faire une mise à jour de la feuille complète, dans le cas ou je change une couleur dans la légende. Pour le moment, il faut repasser sur chaque cellule et re-écrire la valeur pour que la couleur se mette à jour.

Si l'un d'entre-vous à une idée ce serait super.

Sinon, j'aimerai apprendre le language visual basic, pour Excel, pour les petits developpements comme celui-ci. Quel serait le bouquin à acheter à ce sujet ?

Je vais clore cette demande demain. Merci vraiment à tous pour votre aide.

Alban

[wilfried_42]

Bonjour à tous

voici une macro à placer dans un module et à lier avec un bouton

Code :

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

1
2
3
4
5
6
Sub maj_couleurs()
    Dim cel As Range
    For Each cel In Range("E8:H19") ' Plage à adapter
        cel.Value = cel.Value
    Next
end sub

le but est qu'en remettant la valeur dans la cellule, on relance la procédure événementielle de saisie plaçant les couleurs

[alban.pinel]

Et bien merci.
C'est parfait maintenant !

Je ne pensais pas avoir affaire à une telle réactivité.
Merci encore.

Alban