Discussion :

[arkorrigan]

Bonjour à tous !

Alors je sais, c carrément du niveau débutant, mais je ne me souviens plus du tout de la formulation pour les codes couleurs des polices ni rien !

En gros, ce que je voudrais faire : lorsqu'une valeur est négative (fonction IF, jusque là c bon) , mais comment faire pour que vba parcours le tableau et qu'il les affiche en rouge ??????

je ne m'en souviens plus du tout!

Merci d'avance !

[Bubale]

Coucou!
Remplace début colonne, fincolonne, debutlign et finlign par les coordonnées de ton tableau à parcourir...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
For i = DébutLign to Finlign
   For j = Debutcolonne to Fincolonne
      If cells(i,j).value<0 then
         Cells(i,j).select
         With Selection.Font
           .Color = -16776961
           .TintAndShade = 0
         End With
      End IF
   Next j
Next i

[fring]

Bonjour,

Est-ce vraiment nécessaire de passer par VBA ? Une MFC me parraît plus appropriée et plus rapide (non non...MFC n'est pas une vilaine maladie...MFC = Mise en Forme Conditionnelle)

[Commodore]

si c'est le fond de la cellule en rouge

Code :

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

Range("A1").Interior = vbRed

si c'est la police

Code :

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

Range("A1").Font.Color = vbRed

edit: grilled

[OrDonc]

Bonjour,

Fring, on peut passer aussi par Format --> Cellule --> Nombre ...
Autre procédure :

Code :

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

1
2
3
4
5
6
Sub negatif()
  Dim Cellule As Range
  For Each Cellule In Range("A1:B5") 'plage à adapter
    If Cellule.Value < 0 Then Cellule.Font.ColorIndex = 3
  Next
End Sub

[fring]

Oui Ordonc bonne remarque, il y a un format de cellule qui peut jouer ce rôle là aussi. Dans ton code tu devrais ajouter une ligne, sinon lorsque le nombre redeviendra positif, il restera en rouge

En VBA, le format de cellule donne ceci :

Code :

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

1
2
Sub test()
Range("A1:A50").NumberFormat = "0.00_ ;[Red]-0.00 "

ou sans décimale

Code :

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

1
2
Sub test()
Range("A1:A50").NumberFormat = "0_ ;[Red]-0 "

[arkorrigan]

Grace à un petit mix de toutes vos solutions , mon problème est réglé !!!!

Vraiment cool !!!!

A+