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