Macro pour mise en couleur de police

[klorane]

Bonsoir à tous,

j'ai en colonne "A" des nombres, je souhaiterai que chaque nombre en fonction de sa valeur soit mis dans une couleur que j'aurai spécifié.

exemple j'ai en A1:59, A2:48, A3:65, A4:59, A3:65 etc...

J'attribue à 59 la couelur de police bleue, j'attribue à 65 du vert et j'attribue à 48 du rouge.

Quelle macro faut il ecrire pour que chaque nombre prennent en couleur de carctères celle que j'ai attribué.

Merci

 

[porcinet82]

Re : Macro pour mise en couleur de police

Salut klorane,

Sans avoir testé (et avec quelques verres puisque c'etait mon anniv), je dirais quelque chose du genre :

Sub test()
Dim i&
For i = 1 To Range("A65536").End(xlUp).Row
    Select Case Cells(i, 1).Value
    Case 59
        Cells(i, 1).Interior.Color = vbBlue
    Case 65
        Cells(i, 1).Interior.Color = vbGreen
    Case 48
        Cells(i, 1).Interior.Color = vbBlue
    End Select
Next i
End Sub

@+

 

[klorane]

Re : Macro pour mise en couleur de police

Tout d'abord Joyeux anniversaire Porcinet.

T'as pas dû trop picoler car t'es pas loin du resultat! lol

C'est presque ça mais au lieu de l'interieur de la cellule il faudrait que se soit la couleur de la police.

Par quoi faut il remplacé : Interior.Color?

@+

 

[klorane]

Re : Macro pour mise en couleur de police

C'est bon.

avec un peu d'anglais ça fonctionne!lol

Font.color

Encore merci

 

[porcinet82]

Re : Macro pour mise en couleur de police

re,

Arffff, question picole, j'ai eu ma dose ce week pour l'anniv d'un copain alors ce soir j'y est été molo (je taf demain...)

Content que tu y sois arrivé tout seul,

@+

 

[bqtr]

Re : Macro pour mise en couleur de police

Bonsoir Klorane, porcinet82

Avec un peu de retard

Sub Couleur()

Dim cel As Range, plg As Range

Set plg = Range("A1:A" & Range("A65536").End(xlUp).Offset(1, 0).Row)

For Each cel In plg

Select Case cel
Case Is = 59
cel.Font.ColorIndex = 5
Case Is = 65
cel.Font.ColorIndex = 10
Case Is = 48
cel.Font.ColorIndex = 3
End Select

Next cel

End Sub

Bon anniversaire Porcinet82

P.O

 

[CBernardT]

Re : Macro pour mise en couleur de police

Bonsoir Klorane, porcinet82 et bqtr,

Bon anniversaire mon cher Porcinet82 🙂 Je lève ma coupe avec toi ! ik ik


Une macro un peu différente dans la forme :

Macro évènementielle à placer dans le module de la feuille concernée :


Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("A:A")) Is Nothing Then
Target.Font.ColorIndex= Switch(Target.Value = 48, 3, Target.Value = 59, 5, Target.Value = 65, 4, Target.Value = "", -4142)
End If
End Sub

Cordialement

Bernard

 

[porcinet82]

Re : Macro pour mise en couleur de police

re, Bonsoir Bernard, P.O,

Bernard, concernant la macro evenementielle, d'ahabitude, je suis le premier a les proposer, mais ce soir apparemnt, j'ai tout de meme fait quelques exces... De plus, je ne connaissais pas la fonction Switch, je me pencherai dessus demain

Merci a vous deux, et bonne nuit a tous,

@+