formatage conditionnel

[bouboull]

Hello tout le monde!
j'espère que vous pourrez répondre à ma question;
En me baladant sur les forums, j'ai pu écrire un petit programme mais il ne fonctionne pas.
Donc je vous écris ce que j'ai mis et j'aimerai bien que l'on me corrige et que l'on m'explique ce qui ne va pas dans le programme.
je débute en VBA.
donc voici mon programme
Sub condition()
Select Case Range("a1:c5").Value
Case Is < 0
Range("a1:c5").Interior.ColorIndex = 10
End Select
End Sub

Je voudrai que la macro sélectionne une plage de cellules et que si une des valeurs est inférieure à 0, elle la colore.
En outre, je ne sais pas comment rajouter deux autres formatages :
je voudrai avoir mes valeurs en pourcentage et avec deux décimales après la virgule.
je sais comment ca s'écrit mais je ne sais pas comment le mettre dans le code.

Merci d'avance de votre aide les gens. ^^

 

[Robert]

Re : formatage conditionnel

Bonjour Bouboull, bonjour le forum,

Peut-être comme ça :

Sub condition()
Dim cel As Range

For Each cel In Range("A1:C5")
    cel.Value = cel.Value / 100
    cel.NumberFormat = "0.00%"
    Select Case cel.Value
        Case Is < 0
            cel.Interior.ColorIndex = 10
    End Select
Next cel
End Sub

 

[bouboull]

Re : formatage conditionnel

Hello Robert,
J'avais essayé avec for each cel, mais j'écrivais cell au lieu de cel.
je vérifie si tout fonctionne bien et je reviens à vous.
merci merci.

 

[bouboull]

Re : formatage conditionnel

Hello Robert,
j'ai pu répondre à mes questions moi même!
Merci de m'avoir mis sur la piste.