Format conditionnel Excel 2003

bonjour, j ai office 2003

Voilà, j'aimerais créer une macro, de manière a avoir le même résultat que la mise en forme conditionnelle, mais en ayant plus de conditions que trois, il m'en faudrait 10 exactement

Exemple j ai un tableau de la cellule e15 à ai30 j ai des liaison dans

ma cellule

j aimerai mettre plusieurs couleur par rapport a la condition

ainsi de suite jusqu'a 10 couleur, et que cela se fasse automatiquement, que je ne soit pas obligé de lancer la macro manuelement a chaque fois,

mon probléme c est que je ne sais pas comment faire une macro,

si quelqu un pourais m expliquer sa serai super

je vous envoie une piéce jointe

svp si quelqu un pourrais m aider je dois faire sa sur 12 feuille

merci

Bonjour

bonjour, j ai office 2003

Ton profil mentionne cependant que tu as Excel 2010. Pourrais-tu le rectifier s'il te plait?

Cordialement

Bonjour, voila je l ai rectifié

tu n aurais pas une solution a mon probléme car j en ai besoin pour le travail

merci

josiane

Bonjour

le problème, vu d'ici est que les feuilles étant alimentées par des liaisons, il n'est pas possible de tester.

J'ai mis sur les feuilles janvier, février et mars un Code de feuille qui (si cela fonctionne) doit mettre les couleurs lorsque la feuille est activée. Auparavant, j'ai supprimé les MFC existantes sur ces 3 feuilles

Exemple pour la feuille janvier:

Private Sub Worksheet_Activate()
Dim MaCellule As Range
For Each MaCellule In Range("E15:AI30")
If MaCellule = "GV" Or MaCellule = "E" Then MaCellule.Interior.ColorIndex = 42
If MaCellule = "PT" Or MaCellule = "M" Then MaCellule.Interior.ColorIndex = 6
If MaCellule = "mt" Then MaCellule.Interior.ColorIndex = 40
If MaCellule = "cc" Then MaCellule.Interior.ColorIndex = 44
If MaCellule = "F" Then MaCellule.Interior.ColorIndex = 15
If MaCellule = "cl" Then MaCellule.Interior.ColorIndex = 3
If MaCellule = "" Then MaCellule.Interior.ColorIndex = xlNone
Next MaCellule
End Sub

Il faut donc, une fois les liaisons mises à jour venir d'une autre feuille avant de sélectionner la feuille janvier

Teste et dis-moi

Cordialement

bonsoir, génial sa fonctionne sauf pour 4 couleur

m; wk; R; PC

et aussi j ais saie de coller les couleur de la colonne R de 1 à 11 sur les autre feuilles et sa ne va pas.

Pourrais -tu essayer de m expliquer les formules si ce n est pas trop de demander comme ça la prochaine fois je saurais le faire.

et un grand merci encore

Josiane

Bonjour

et aussi j ais saie de coller les couleur de la colonne R de 1 à 11 sur les autre feuilles et sa ne va pas.

Comme les couleurs étaient différentes entre janvier et les autres feuilles, j'ai cru que tu voulais des couleurs différentes.

Donc, pour avoir les mêmes couleurs sur toutes les feuilles, un seul Code dans ThisWorkbook pour mettre les couleurs lors de la sélection de la feuille (toujours en venant d'une autre feuille)

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Dim Cel As Range
For Each Cel In Range("E15:AI30")
If Cel = "GV" Or Cel = "E" Then Cel.Interior.ColorIndex = 42
If Cel = "wk" Or Cel = "PC" Then Cel.Interior.ColorIndex = 2
If Cel = "PT" Or Cel = "m" Then Cel.Interior.ColorIndex = 6
If Cel = "mt" Then Cel.Interior.ColorIndex = 40
If Cel = "cc" Then Cel.Interior.ColorIndex = 44
If Cel = "F" Then Cel.Interior.ColorIndex = 15
If Cel = "cl" Then Cel.Interior.ColorIndex = 3
If Cel = "R" Then Cel.Interior.ColorIndex = 43
If Cel = "" Then Cel.Interior.ColorIndex = xlNone
Next Cel
End Sub

Cordialement

bonsoir, et un grand merci

sa fonctionne

bonne soirée