[RÉSOLU] Modifs macro AjoutAnnee

Staple1600 à dit:

Bonjour le fil, le forum

@un internaute
Regardes et testes ce petit exemple
Cela devrait t'aider pour ton coloriage 😉
Pour tester insére une forme automatique sur une feuille vierge
Puis lance la macro ci-dessous

VB:

Sub Test_OK()
'testé sur une forme automatique (ici un rectangle)
'syntaxe testé sur un Excel 2003
'NB: la feuille de test ne contient rien d'autre
'qu'une seule forme automatique
Dim sh As Shape, X, Y&, Z&, Intitulé$
Set sh = ActiveSheet.Shapes(1)
'ici juste pour le test
sh.TextFrame.Characters.Text = "Onglets" & Chr(10) & "Nouvelle Année"
Intitulé = sh.TextFrame.Characters.Text
MsgBox Intitulé 'pour vérification
X = Split(sh.TextFrame.Characters.Text, Chr(10))
Y = Len(X(0)): Z = Len(X(1))
With sh.TextFrame
    .Characters(1, Y).Font.ColorIndex = 3
    .Characters(Y + 2, Z).Font.ColorIndex = 5
End With
End Sub

Cliquez pour agrandir...

Mais je voudrais si c'est possible "jouer" sur les Characters ou autre si c'est possible

Cliquez pour agrandir...

Staple1600 à dit:

(et donc peut inspirer/illustrer avec les modifications et adaptations idoines)

Cliquez pour agrandir...

Staple1600 à dit:

Bonjour

Petites précisions:
Le propos de mon premier message n'était pas que tu réutilises tel quel les macros que j'ai postées à l'époque, mais que tu y puises inspiration pour ta problématique actuelle.
Et c'est ce que j'ai reprecisé dans mon second message

Nulle part je t'ai conseillé de réutiliser tel quel le code VBA du fil que je cite.

Cliquez pour agrandir...