Colorer cellule en fonction de son dernier caractère.

DoubleZero

XLDnaute Barbatruc

• 29 Février 2012

• #2

Re : Colorer cellule en fonction de son dernier caractère.

Bonjour, harzer, le Forum,

Une suggestion :

VB:

Sub MFC_F_M()
Dim c As Range
Application.ScreenUpdating = False
    For Each c In Range("a2:a" & Range("a65536").End(xlUp).Row)
        If Right(c.Value, 1) = "M" Then c.Interior.ColorIndex = 6
        If Right(c.Value, 1) = "F" Then c.Interior.ColorIndex = 3
    Next
Application.ScreenUpdating = True
End Sub

A bientôt 🙂

 

Pièces jointes

• 00 - harzer - Couleur selon dernier caractère.xls

  38.5 KB · Affichages: 42

Vote positif 0 Vote négatif

H

hoerwind

XLDnaute Barbatruc

• 29 Février 2012

• #3

Re : Colorer cellule en fonction de son dernier caractère.

Bonjour, salut 00,

Pourquoi une macro alors qu'une MFC (mise en forme conditionnelle) suffit, voir la pièce jointe ?

 

Pièces jointes

• MfcDernierCaractère.xls

  30.5 KB · Affichages: 56

Vote positif 0 Vote négatif

H

harzer

XLDnaute Nouveau

• 29 Février 2012

• #4

Re : Colorer cellule en fonction de son dernier caractère.

Bonjour doublezero et hoerwind,
Merci de vos réponses et des solutions proposées.
Un petit message pour doublezero : Je viens de tester votre code, il fonctionne bien à une exception près : (la ligne 64) qui n'est pas colorée.
Vous trouverez en pièce jointe le fichier de test.
Un petit message pour hoerwind : Merci de votre réponse, si j'ai demandé une macro, c'est pour lire et comprendre le code qui allait être proposé et pour m’inspirer pour l’utiliser ultérieurement.
Cordiale poignée de mains à tous les deux.

 

Pièces jointes

• 001 - harzer - Couleur selon dernier caractère.xls

  42 KB · Affichages: 46

Vote positif 0 Vote négatif

DoubleZero

XLDnaute Barbatruc

• 29 Février 2012

• #5

Re : Colorer cellule en fonction de son dernier caractère.

Re-bonjour, bonjour, hoerwind,

harzer à dit:

... Je viens de tester votre code, il fonctionne bien à une exception près : (la ligne 64) qui n'est pas colorée...

Cliquez pour agrandir...

Effectivement, la cellule A64 de votre fichier, déposé en #4, "échappe" à la macro ET à la mise en forme conditionnelle proposée par hoerwind.

Cela est, vraisemblablement, dû à la présence d'un caractère spécial 😕.

Je ne sais, malheureusement, comment résoudre le problème mais un autre membre du site trouvera certainement le remède.

A bientôt 🙂

 

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 29 Février 2012

• #6

Re : Colorer cellule en fonction de son dernier caractère.

Bonjour harzer, Bonjour hoerwind 🙂, bonjour 00 🙂

le "caractère spécial" est un espace, donc

Code:

Sub MFC_F_M()
Dim c As Range
Application.ScreenUpdating = False
    For Each c In Range("a2:a" & Range("a65536").End(xlUp).Row)
        If Right(Trim(c.Value), 1) = "M" Then c.Interior.ColorIndex = 6
        If Right(Trim(c.Value), 1) = "F" Then c.Interior.ColorIndex = 3
    Next
Application.ScreenUpdating = True
End Sub

devrait le faire

 

Vote positif 0 Vote négatif

H

harzer

XLDnaute Nouveau

• 29 Février 2012

• #7

Re : Colorer cellule en fonction de son dernier caractère.

Bonjour tototiti2008, hoerwind et 00,
C'est parfait, Bravo à tous, cette solution commune à résoulu le problème, merci à tous.

 

Vote positif 0 Vote négatif