Forcer une mise en forme texte dans une cellule exel
phil040
Messages postés
3
Statut
Membre
-
phil040 Messages postés 3 Statut Membre -
phil040 Messages postés 3 Statut Membre -
Bonjour,
Je souhaite mettre en forme des données texte dans un tableau.
Ce texte comprends juste 3 caractères avec un espace entre le deuxième et le troisième caractère.
Je n'arrive pas à créer l'espace entre le deuxième et le troisième caractère.
Ma macro:
Sub FORMAT_Spé2()
With Selection.Characters(Start:=1, Length:=1).Font
.Name = "Calibri"
.Size = 17
.ThemeColor = xlThemeColorLight1
With Selection.Characters(Start:=2, Length:=1).Font
.Name = "Calibri"
.FontStyle = "Bold"
.Size = 15
.ThemeColor = xlThemeColorLight1
With Selection.Characters(Start:=3, Length:=1).Font
.Name = "Calibri"
.Size = 9
.Color = -16776961
End With
End With
End With
Une idée ?
Merci pour votre aide.
Phil
Je souhaite mettre en forme des données texte dans un tableau.
Ce texte comprends juste 3 caractères avec un espace entre le deuxième et le troisième caractère.
Je n'arrive pas à créer l'espace entre le deuxième et le troisième caractère.
Ma macro:
Sub FORMAT_Spé2()
With Selection.Characters(Start:=1, Length:=1).Font
.Name = "Calibri"
.Size = 17
.ThemeColor = xlThemeColorLight1
With Selection.Characters(Start:=2, Length:=1).Font
.Name = "Calibri"
.FontStyle = "Bold"
.Size = 15
.ThemeColor = xlThemeColorLight1
With Selection.Characters(Start:=3, Length:=1).Font
.Name = "Calibri"
.Size = 9
.Color = -16776961
End With
End With
End With
Une idée ?
Merci pour votre aide.
Phil
3 réponses
-
yg_be Messages postés 23437 Date d'inscription Statut Contributeur Dernière intervention Ambassadeur 1 588
Et ceci?Selection = Left(Selection, 2) & " " & Right(Selection, 1)
-
Merci yg_be,
J'ai placé ton code en tête sous "Sub", ça fonctionne lorsque l'on sélectionne qu'une cellule, pas pour une sélection multiple.....
Un complément s'il te plaît, merci -
Génial, c'est parfait...
Merci, merci.
Bonne soirée...au excellente année à tous.
Une dernière question: pour la dernière version d'Office, existe -il une aide autre que celle proposée en ligne en ligne ?
