Excel 2003 - Mise en forme conditionnelle Fermé

Question

Bonjour,

Sous Excel 2003, j'ai un tableau avec des noms de personnes dans la colonne B. Dans la colonne C, j'ai des catégories (ami, collègue...)

Avec la fonction "Format - Mise en forme conditionnelle - La formule est", j'aimerais dire au système en B3 si C3 = ami alors Format - Police - Couleur : Vert, si C3 = collègue alors Format - Police - Couleur : Bleu.

Y a-t-il moyen de faire cette procédure avec cette fonction?

Y a-t-il moyen de faire cette procédure pour toute la colonne avec cette fonction ou devrais-je tirer la cellule?

Je ne sais pas comment lui dire si B3 + 1 colonne = … alors …

De plus, j'ai essayé de construire ma formule dans une cellule normale, mais avec un SI, on ne sait pas mettre comme condition un changement de Format.

Au pire je le ferai avec les filtres automatiques, mais comme je voulais l'appliquer aussi à d'autres tableaux où il risque d'y avoir des changements, j'aurai préféré une méthode automatique.

MERCI

PS: je suis chez un ami donc je n'ai pas mon classeur Excel avec moi.

Vaucluse · Answer

Bonjour
sélectionnez le champ complet (évitez toute la colonne car excel perd un peu ses repères de départ):
format / Mise en forme conditionnelle
la formule est:
=1° cellule du champ, non bloquée="ami"
chosissez vos format en cliquant sur format

revenez avec OK cliquez sur ajouter et recommencer, même adresse avec le texte suivant
faites ceci encore une fois,pour le troisième cas et fermer la fenêtre
le formatage va s'incrémenter automatiquement ligne par ligne dans le champ sélectionné.
Nota: sur 2003 vous n'avez que trois possibilités en plus du format d'origine.
si votre formatage comporte plusieurs cellules sur la même ligne, bloquez la colonne dans la formule, mais pas la ligne.

Crdlmnt

dragondoré · Answer

Bonjour Vaucluse,

Je vous remercie pour votre réponse. J’ai réussi à résoudre le problème. Néanmoins, dans un autre tableau, j’ai plus de 4 formats à appliquer.

Y a-t-il une solution pour un résultat automatique s’il y a un changement ou faut-il réaliser l’opération par les filtres automatiques et en cas de changements devoir modifier manuellement?

Enfin de compte pour mon premier message, la formule était simple, je pensais qu’il fallait passer par des SI…

MERCI

Vaucluse · Answer

Bonsoir
il y a des solutions en passant par des macro, mais là, je suis hors compétences. Vous trouverez sans doute des tuyaux en passant par la recherche de CCM bureautique, sinon, il est préférable que vous ouvriez un autre fil en précisant bien le titre pour que les compètences (et il y en a) prennent ça en compte.
Crdlmnt

Mike-31 · Answer

Salut,

Je mange et je t'écris un bout de code, combien de mise en forme conditionnelle, fond de cellule ou police as tu besoin !

A+
Mike-31

Un problème sans solution est un problème mal posé  (Einstein)

dragondoré · Answer

Bonsoir Vaucluse,

Tout doit être réalisable avec des macros ou presque, mais il faut pouvoir maîtriser ce domaine.

J’ai commencé à apprendre un peu les macros et le langage VBA mais bon, à mon avis, il faut du temps pour les maîtriser, surtout si on ne les utilise pas régulièrement.

Après, il faut voir la complexité du codage. Par exemple, pour renommer des feuilles suivant un ordre numérique (1, 2, 3, 4, 5…), on m’avait fourni le codage et j’ai pu l’adapter à mes besoins. Maintenant, de là à pouvoir réécrire le codage seul, il y a un grand pas.

Je vous remercie pour votre aide en tout cas. Je laisse le sujet en non résolu au cas où quelqu’un aurait une solution pas trop compliquée mais j'ai des doutes.

Bonne soirée

Mike-31 · Answer

Re, un code simple facile à modifier Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim Tabl As Range Dim Cellule As Variant For Each Cellule In Range("C2:C20") 'condition 1 If Cellule = "ami" Then Cellule.Offset(0, 1).Font.ColorIndex = 4 'condition 2 ElseIf Cellule = "collègue" Then Cellule.Offset(0, 1).Font.ColorIndex = 5 'condition 3 ElseIf Cellule = "ennemi" Then Cellule.Offset(0, 1).Font.ColorIndex = 3 'condition 4 ElseIf Cellule = "voisin" Then Cellule.Offset(0, 1).Font.ColorIndex = 44 'condition 5 ElseIf Cellule = "connaissance" Then Cellule.Offset(0, 1).Font.ColorIndex = 7 'condition 6 ElseIf Cellule = "famille" Then Cellule.Offset(0, 1).Font.ColorIndex = 22 'Pour annuler la couleur si la valeur est différente ElseIf Cellule <> "ami" <> "collègue" <> "ennemi" <> "voisin" <> "connaissance" <> "famille" Then Cellule.Offset(0, 1).Font.ColorIndex = 0 End If Next Cellule End Sub avec ce lien un petit exemple https://www.cjoint.com/?iovcUf8TAs A+ Mike-31 Un problème sans solution est un problème mal posé (Einstein)

Excel 2003 - Mise en forme conditionnelle

6 réponses

Discussions similaires