mise en forme

[David]

Salut le forum

Je voudrais que des lignes prennent des couleurs différentes en fonction d'une lettre dans cette ligne,et que la police change aussi de couleur.
Cela est-il possible avec VBA

Si vous avez des exemples merci d'avance

@+
David

 

[Bernard]

Bonjour David

Deux solutions dans un exemple joint :

1- La mise en forme conditionnelle sur les 50 premières lignes.
La condition est que la lettre "A" apparaisse au moins une fois dans l'une des cellules de la ligne.
La couleur est bleu mais peut être changée à souhait.

2- Par VBA une petite macro placée dans le module de la feuille qui fait la même chose.

Cordialement

Bernard

 

[andré]

Salut David et Bernard,

Petite précison : si la lettre recherchée se trouve à l'intérieur d'un mot la formule de la MFC devrait devenir : =NB.SI(1:1;"*A*")>0

Ândré.

 

[David]

Salut Bernard, andré

J'ai fais un petit exemple car je dois passer par VBA
J'ai 5 données différentes et avec la mise en forme conditionnelle je suis limité a 3

merci
@+
david

 

[Bernard]

Rebonjour David

Tes nouveaux souhaits n'ont pas grand chose à voir avec les précédents ?
Enfin !!!
Par VBA une macro qui prend en compte les six possibilités de coloration du fond et de la police.

Cordialement

Bernard

 

[Bernard]

Rebonjour David
une simplification de la macro .

Private Sub Worksheet_Change(ByVal Target As Range)
For Each C In Range("F1", "F6")
Select Case C
Case Is = "droite"
C.EntireRow.Range("A1:I1").Interior.ColorIndex = 7
Case Is = "gauche"
C.EntireRow.Range("A1:I1").Interior.ColorIndex = 4
End Select
For Each K In Range("C1", "C6")
Select Case K
Case Is = "jaune"
K.EntireRow.Range("A1", "I1").Font.ColorIndex = 6
Case Is = "bleue"
K.EntireRow.Range("A1", "I1").Font.ColorIndex = 5
Case Is = "rouge"
K.EntireRow.Range("A1", "I1").Font.ColorIndex = 3
End Select
Next K
Next C
End Sub

A+

Bernard

 

[David]

Salut Bernard

Merci beaucoup, désolé ce n'est pas toujours facile d'expliquer ce que l'on
veut faire.

@+

David