mise en forme d'un texte

[kali]

Bonjour,

Je souhaiterais mettre en forme un texte d'après une condition.

ex: Pour le texte suivant,

"adresse : 11 av, de la République"

je voudrais
- avant le ":" un caractère gras et une couleur rouge et le texte
- après ":" un texte en arial et une couleur verte

Merci de votre aide

 

[Bernard]

Bonjour Kali

pour changer les couleurs et polices d'un texte, tu sélectionnes la partie de texte sur laquelle tu veux apporter des changements puis faire FORMAT/CELLULE et choisir la police et la couleur de police.

Salut

Bernard

 

[michel]

bonjour Kali , bonjour Bernard

ci joint une version par macro

bon apres midi
michel

 

[kali]

Merci Michel,


C'est exactement que je voulais mais étant donné que je suis débutante,
n'y aurait il pas un code plus simple pour que les prochaines fois je puisse modifier mes formats (taille,police, couleurs, style...) moi meme

Merci encore

 

[michel]

rebonjour Kali

comme je n'ai pas réussi à faire plus simple , j'ai essayé d'apporter quelques annotations à la macro
j'espere que cela pourra t'aider

Sub ModificationAdresse()
Dim DeuxPoints As Byte ' position ":" dans la cellule
Dim Cellule As Range ' boucle des cellules contenant les adresses

For Each Cellule In Range("A1:A" & Range("A65536").End(xlUp).Row)
DeuxPoints = InStr(Cellule, ":") ' recupere la position de ":" dans la chaine de caracteres de la cellule

With Cellule.Characters(Start:=1, Length:=DeuxPoints - 1).Font 'mise en rouge et en gras de la partie gauche de ":"

.FontStyle = "Gras" 'style
.ColorIndex = 3 ' couleur caractere rouge
.Name = "Arial" 'type de police
.Size = 10 ' taille de caractere
.Strikethrough = True 'barré
.Underline = xlUnderlineStyleNone 'soulignement caracteres
End With

With Cellule.Characters(Start:=DeuxPoints + 1, Length:=Len(Cell) - DeuxPoints).Font 'mise en vert et "arial de la partie droite ":"

.Name = "Arial"
.ColorIndex = 10 'vert
End With
Next Cellule

'pour avoir une explication plus détaillée de chaque terme , positionnes toi sur le mot et appuyes sur la touche F1

End Sub

bonne soirée
michel