Formater fin de cellule

[Danielle444]

Formater fin de cellule par macro

Bonjour !

J'aimerai à l'aide d'une macro mettre en gras et dans une autre police les deux derniers caractères d'une cellule (texte et localisation variable)

Ex :le chat est blanc ok

Merci de m'aider.

Danielle444

 

[Pierrot93]

Re : Formater fin de cellule

Bonjour Danielle

peut être comme ceci, si j'ai bien compris :

Option Explicit
Sub test()
With Range("A1").Characters(Len(Range("A1").Value) - 1).Font
    .ColorIndex = 3
    .Name = "Time New Roman"
    .Bold = True
End With
End Sub

s'applique sur la feuille active.

bonne soirée.
@

 

[Danielle444]

Re : Formater fin de cellule

Merci pour la réponse mais ça ne marche pas 🙁

En fait j'aimerai ajouter en fin de cellule un V " 4" dans une autre couleur et une autre police quand le texte de la cellule est OK

soit :

Sub ok()
ActiveCell.Select
strg = " 4"
ActiveCell.Range("A1") = ActiveCell.Range("A1") & strg
ActiveCell.Select
End Sub

Jusque là c'est ok j'ajoute mon texte sans enlever l'ancien 😀

Mais après j'aimerai que le " 4" soit en rouge et dans une autre police ! 😱

c'est là que ça ne va plus !

Merci d'avance pour le coup de main !

Danielle444

 

[Pierrot93]

Re : Formater fin de cellule

Bonjour Danielle,

il me semble que le code donné hier, devrait fonctionner, regarde ci-dessous j'ai essayé de l'adapter à ton besoin, mais je ne vois pas trop quelle police de caractères du veux utiliser...

Option Explicit
Sub test()
Dim s As String
s = " 4"
With ActiveCell
    .Value = .Value & s
    With .Characters(Len(.Value) - 1).Font
        .ColorIndex = 3
        .Name = "Wingdings" 'nom de la police à adapter
        .Bold = True
    End With
End With
End Sub

bonne journée
@+

 

[Danielle444]

Re : Formater fin de cellule

Merci beaucoup ça marche !

Peux-tu m'expliquer le fonctionnement de cette macro que je puisse l'adapter à d'autres cas ?😱

par exemple plusieurs caractères ou un seul ?

Merci c'est super sympa

Danielle444

 

[Pierrot93]

Re : Formater fin de cellule

Re,

pour essayer de faire plus simple, dans cette ligne de code :

Range("A1").Characters(Len(Range("A1").Value) - 1).Font.ColorIndex = 3

"Range("A1").Characters" permet la mise en forme de texte, son premier argument est la position de départ de la mise en forme. Dans ce cas, elle est déterminée par la longueur de la chaîne, pour ce faire, la fonction "len" est utilisée. "Len(Range("A1").Value)" et on retranche 1 (le -1) pour démarrer à l'avant dernier caractère.

dans l'éditeur vba, place ton curseur sur les mots sur lesquels tu veux plus d'info et F1 te permettra d'accede à l'aide de la fonction concernée.

en espérant avoir été clair.

@+

 

[Danielle444]

Re : Formater fin de cellule

Merci beaucoup !

Danielle444