Excel macro mise en forme conditionnelle Résolu

Question

Bonjour,
Toujours débutante en programmation (j'avance à taton mais j'avance quand même), j'aimerai pouvoir appliquer une mise en forme conditionnelle à l'aide d'une macro.
 Les mises en formes conditionnelles n'en propose que 3 jusqu'à la version 2003 et c'est bien mieux depuis la version 2007 mais je dois travailler dans les deux versions et j'ai déjà des mises en formes créées dans mon classeur.

Donc, j'aimerai pouvoir appliquer un format police (une couleur) dès que :
si colonne F = "Vente" et colonne O = "" (vide) ==> je veux couleur bleue pour la ligne entière (ou les données de la ligne)
si colonne F = "Vente" et colonne O = variable (un numéro de facture : V071011)  ==> je veux couleur orange  pour la ligne entière (ou les données de la ligne)
sinon couleur automatique donc pas de changement.

Je pense que je peux appliquer le même type de condition pour 3 cellules différentes à comparer.

Je remercie tous ceux et celles qui pourront m'aider.
a+ 
Eve

néné · Accepted Answer

Bonjour, 

Voici une macro

Sub formatConditionnelle()
Application.ScreenUpdating = False

For Each c In [f1:f25] 'plage a testée
c.Select
Dim l As Long
l = ActiveCell.[Row]
If ActiveCell.Value = "Vente" And ActiveCell.Offset(0, 9) <> "" Then

Rows("" & l & ":" & l & "").Select
Selection.Font.ColorIndex = 45
Else
If ActiveCell.Value = "Vente" And ActiveCell.Offset(0, 9) = "" Then
Rows("" & l & ":" & l & "").Select
Selection.Font.ColorIndex = 5
Else
Rows("" & l & ":" & l & "").Select
Selection.Font.ColorIndex = 1
End If
End If

Next

Application.ScreenUpdating = True
Range("f1").Select
End Sub

Raymond PENTIER · Answer

Sois plus précise : 
* Tu veux une réponse pour la version 2003 ou la version 2007 ?
* Tu veux absolument une macro ou une manipulation normale te suffit-elle ?

eriiic · Answer

Bonoir,

Il est un peu tard donc je ne vais pas trop développer...
En macro, tu ne vas plus trop parler de mise en forme conditionnelle puisque c'est toi par programmation qui sélectionne les cellules et leur applique le format que tu veux.
Il n'y a donc plus de limitation.
Pour connaitre les propriétés qui t'interessent mets toi en enregistrement de macro et change la couleur de fond, de la police, change la police et sa taille et tu en auras déjà une bonne partie.
Pour les couleurs c'est souvent plus pratique de réserver des cellules où tu mets les couleurs, et tu récupères leurs valeurs :
couleur1 = [A1].Interior.ColorIndex
C'est plus facile à changer pour l'utilisateur sans toucher à ton code et sans t'embeter à retrouver le numéro de couleur.
Ensuite à toi de balayer ton tableau pour retrouver les cellules ayant les critères qui t'interessent et appliquer dessus les formats désirés.
Des methodes qui pourront te servir
.entirerow : 
la ligne entière     Ex:  [A1].EntireRow.Interior.ColorIndex = 6
et .offset(ligne,colonne) :
Si tu balayes ta colonne F .offset(0,9).value te ramene la valeur 9 colonnes plus loin (la colonne O donc)

Voilà pour que tu démarres un peu...
Bon courage :-)

eric

eriiic · Answer

Bonsoir,

Je répond à la place de néné s'il n'y voit pas d'inconvénient (il n'est pas là pour le dire de toute façon...)

Application.ScreenUpdating  te désactive le rafraichissement écran.
Ca évite les clignotements et les scrolling lors de tes select et surtout ça accélère considérablement ta macro.
Tout les calculs se font en arrière plan
Ne pas oublier de remettre Application.ScreenUpdating=true à la fin que l'utilisateur ait le résultat.

eric

STRIKER · Answer

bonjour en fait j'ai le meem probleme,je dois tester une ligne pour deerminer si une cas contient np np1 np2 sp sp1 sp2 et appliquer une couleur a la case mais je n'arrive pas a le faire qu'elqu'un peut m'aider j'utilise excel 2003
merci

Raymond PENTIER · Answer

Bonjour, STIKER.

Tu es nouveau, d'accord ... Alors quelques recommandations de bienvenue :

1) Ne pas t'introduire dans la discussion de quelqu'un d'autre, mais lancer ta propre discussion en cliquant, en haut de la page à droite (couleur orange, même ligne que Forum / Bureautique), sur "Posez votre question".
2) A fortiori, ne pas entrer dans une discussion où personne n'est venue depuis novembre 2007 : Qui veux-tu qui la consulte ? (Je suis tombé dessus par hasard parce que cherchais autre chose).
3) Sois clair et précis dans tes explications : "je dois tester une ligne pour deerminer si une cas contient np np1 np2 sp sp1 sp2 et appliquer une couleur a la case " veut dire quoi ? La cellule doit changer de couleur si elle contient la totalité de ces 6 valeurs (21 caractères) ? N'importe laquelle de ces 6 valeurs ? Et dans ce cas pour prendre une couleur fixe, ou variable selon la valeur saisie ?
4) Chaque fois que possible (taille / confidentialité) mets ton fichier à notre disposition en utilisant www.cijoint.fr/ ou www.cjoint.com/

Donc à bientôt !

Excel macro mise en forme conditionnelle

6 réponses

Discussions similaires

Newsletters