Formater fin de cellule

Pierrot93

XLDnaute Barbatruc

• 1 Avril 2009

• #2

Re : Formater fin de cellule

Bonjour Danielle

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

Code:

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.
@

 

Vote positif 0 Vote négatif

D

Danielle444

Guest

• 1 Avril 2009

• #3

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

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 2 Avril 2009

• #4

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...

Code:

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
@+

 

Vote positif 0 Vote négatif

D

Danielle444

Guest

• 2 Avril 2009

• #5

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

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 2 Avril 2009

• #6

Re : Formater fin de cellule

Re,

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

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.

@+

 

Vote positif 0 Vote négatif

D

Danielle444

Guest

• 2 Avril 2009

• #7

Re : Formater fin de cellule

Merci beaucoup !

Danielle444

 

Vote positif 0 Vote négatif