Faire ces 2 lignes en 1 seule

[un internaute]

Bonjour le forum
Est-il possible de faire en une seule ligne ces 2 lignes?
Merci d'avance
Bien cordialement

     .Range("G54").Characters(Start:=18, Length:=16).Font.ColorIndex = 3
     .Range("G54").Characters(Start:=57, Length:=6).Font.ColorIndex = 3

 

[un internaute]

Bonjour le forum
Est-il possible de faire en une seule ligne ces 2 lignes?
Merci d'avance
Bien cordialement

     .Range("G54").Characters(Start:=18, Length:=16).Font.ColorIndex = 3
     .Range("G54").Characters(Start:=57, Length:=6).Font.ColorIndex = 3

Bonjour le forum,
Après avoir "gratté" ce n'est pas possible de réunir les 2 lignes en une.

Autre "problème".
Je suis dans la feuille Charges 2018
Lorsque je passe par macro sur la nouvelle année ça me donne ça

Charges 2019 mais c'est surligné entre Charges et 2019
Partie de macro ci-dessous:

With .Range("A1")

  .Characters(Start:=14, Length:=5).Font.ColorIndex = 3

  End With

Peut-on "jouer" sur cette partie de macro pour éviter ça?
Merci d'avance pour vos retours
Cordialement

 

[gosselien]

Bonjour,

start:=15 non ?
quel est l'intérêt de vouloir faire ça en une ligne ?

P.

 

[un internaute]

Bonjour,

start:=15 non ?
quel est l'intérêt de vouloir faire ça en une ligne ?
Bonsoir gosselien
Aucun intérêt.
C'est l'autre problème que je veux résoudre si c'est possible.
Supprimer le surlignage
Entre Charges et 2019.
Par Vba sinon manuel.
Voir fichier TOTO.xls
Réponse par téléphone alors si faute toutes mes excuses.
Cordialement

P.

 

[gosselien]

Bonsoir à 15:30.. tu n'est pas en Europe ?

j'ai dis 15 donc:

.Characters(Start:=15 Length:=5).Font.ColorIndex = 3 devrait aller non ?

P.

 

[un internaute]

Bonsoir Ce lien n'existe plus
Non ce n'est pas ça
Ça ne fait rien je le ferais manuellement.
Bonne fin de soirée
Cordialement

 

[un internaute]

Bonjour le forum
Voilà la solution

With .Range("A1")
.Characters(Start:=14, Length:=5).Font.ColorIndex = 3
.Characters(Start:=14, Length:=1).Font.ColorIndex = 15 'Pour qu'entre Charges et 2019 ne soit pas souligné mettre la mëme couleur que le fond soit 15
End With
Bonne fin de WE à tous
Cordialement