mise en forme conditionnelle

[beliser]

Bonsoir à toi chèr forum,

Les cellules C12 à C42 ont une formule et chaque fois que je fais une macro pour un format conditionel de couleur pour les différentes valeurs cela ne marche pas.

Ce que j'aimerai c'est que quand R est en C12 celle-ci devienne bleu ainsi que B12 et ainsi de suite pour les autres valeurs.

D'avance merci.

beliser. [file name=Couleursplanning.zip size=17497]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Couleursplanning.zip[/file]

 

[Moa]

Salut !

Vite fait en passant :

A Finir :

Sub Macro1()

Dim Cell As Range

For Each Cell In Range('C12:C42')

If Cell = 'R' Or Cell = 'r' Then
Cell.Interior.ColorIndex = 8
Cell.Offset(0, -1).Interior.ColorIndex = 8

ElseIf Cell = 'V' Then
Cell.Interior.ColorIndex = 4
Cell.Offset(0, -1).Interior.ColorIndex = 4

ElseIf Cell = 'M' Then
Cell.Interior.ColorIndex = 7
Cell.Offset(0, -1).Interior.ColorIndex = 7


ElseIf Cell = 'F' Then
Cell.Interior.ColorIndex = 24
Cell.Offset(0, -1).Interior.ColorIndex = 24

End If
Next Cell

End Sub


@ +++

Moa

 

[JeanMarie]

Bonsoir

Moa, regarde ce lien la solution de DiderLien supprimé.

@+Jean-Marie

 

[beliser]

Re-Bonsoir Moa, Jean-Marie et le forum,

Jean-Marie le fichier qui est au bout du lien que tu m'a laissé ne correspond pas à mes attentes.
Moa pour ce qui est de ta macro tu la pose ou? Dans le WorkSheet de la feuille concerné ou dans ThisWorkBook?

Est ce que le fait d'avoir une formule dans les cellules peut arreter le Sub d'une macro?

Bonne soirée et Merci.

beliser.

 

[Moa]

Salut Jean-Marie !

Comment vas-tu ?

Oui j'ai u ce post et j'en avais pris note dans un coin, mais en fait je l'avais seulement survolé.

Mais maintenant que tu m'y interesses de nouveau je vais tâcher d'y regarder de plus près.

Bonne soirée à toi et à tous !

@ +++

Moa

 

[beliser]

Bonjour le forum,

J'ai aplliqué la macro suivante aux cellules (B12:C42) :

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range('C:C')) Is Nothing Then
Select Case Target.Value
Case Is = 'R': Target.EntireRow.Range('B1:C1').Interior.ColorIndex = 8
Case Is = 'r': Target.EntireRow.Range('B1:C1').Interior.ColorIndex = 8
Case Is = 'V': Target.EntireRow.Range('B1:C1').Interior.ColorIndex = 4
Case Is = 'M': Target.EntireRow.Range('B1:C1').Interior.ColorIndex = 7
Case Is = 'F': Target.EntireRow.Range('B1:C1').Interior.ColorIndex = 24
Case Is = '': Target.EntireRow.Interior.ColorIndex = 0
End Select
End If
End Sub

Mais pour qu'elle fonctionne comme pour les cellules (B12:C12) je suis obligé de selectionner une cellule en Colonne C ce qui
m'affiche la formule dans la barre des formules, ensuite je clic à coté de la dernière parenthèse dans la formule et enfin je clic n'importe où dans le tableau et les cellues se colorent.

Que dois je changer dans la macro pour que cela se fasse de manière normale et evité ces manipulations?

D'avance merci.

beliser. [file name=Couleurs planning_20050507124224.zip size=19700]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Couleurs planning_20050507124224.zip[/file]