colorée les derniers caractères

[anthoYS]

Bonsoir -ou bonjour-,

En fait je souhaite insérer une macro permettant de colorée le dernier caractère, de la plage sélectionnée.

Voir fichier joint, merci par avance.

 

[anthoYS]

Re : colorée les derniers caractères

Le fichier.

 

[Etienne2323]

Re : colorée les derniers caractères

Salut Anthoys,
comme tu as oublié le fichier 😉, tu peux essayer quelque chose comme ceci (à adapter à ton fichier) :

Sub test()

Dim Cellule As Variant
Dim NombreCaracteres As Long

Application.ScreenUpdating = False

Cellule = ActiveCell
NombreCaracteres = Len(Cellule)
    With Activecell.Characters(Start:=NombreCaracteres, Length:=1).Font
        .ColorIndex = 41
    End With
    
End Sub

Cordialement,

Étienne

Edit : J'ai modifié un peu le code pour qu'il s'adapte à ta situation, vu ton fichier. Tu n'as qu'à mettre le raccourci toi-même en cliquanr sur ALT+F8 et options.

 

[anthoYS]

Re : colorée les derniers caractères

Bonjour,

Saches Etienne2323 que ça ne fonctionne pas.
J'ai bien créer la macro, mais rien n'y fait.

J'ai inséré en Feuille1 :

Sub test()

Dim Cellule As Variant
Dim NombreCaracteres As Long

Cellule = ActiveCell
NombreCaracteres = Len(Cellule)
With Cells(1, 1).Characters(Start:=NombreCaracteres, Length:=1).Font
.ColorIndex = 41
End With

End Sub

Avec un raccourci, Ctrl+V, or quand je l'exécute sur la plage sélectionné, rien y fait.

Merci, A+

 

[Minick]

Re : colorée les derniers caractères

Salut,

Essaie ceci:

Option Explicit

Sub ColoreDernierCaractere()
    Dim Cellule As Range
    
    Application.ScreenUpdating = False
        For Each Cellule In Selection
            If Cellule.Value <> "" Then
                Cellule.Characters(Start:=Len(Cellule.Value), Length:=1).Font.ColorIndex = 41
            End If
        Next Cellule
    Application.ScreenUpdating = True
End Sub

Par contre le Ctrl + v n'est peut etre pas un bon choix.
(C'est le raccourci pour coller)

++
Minick

 

[anthoYS]

Re : colorée les derniers caractères

Merci Minick, ça marche très bien.

 

[Etienne2323]

Re : colorée les derniers caractères

Salut Anthoys
c'est mon erreur, je crois que je commençais à être fatigué 😉 J'ai fait la modification dans mon code du message #6. Tu peux le réessayer comme ça. Ça devrait bien fonctionner !

Bonne fin de journée !

Étienne