[RÉSOLU] Modifs macro AjoutAnnee

[un internaute]

Bonjour le forum
Dans le fichier joint lorsque je fais double clic dans cellule F2 ça affiche tous les onglets et c'est inscrit dans commentaires "Afficher tous les Onglets"
Lorsque je fais Nouvelle Année ça affiche toujours cellule F2 "Afficher tous les Onglets2020"
Or je veux que "Afficher tous les Onglets"
J'ai réussi à contourner le problème en mettant en commentaire dans macro AjoutAnnee

 ' If Not [F2].Comment Is Nothing Then _
'    [F2].Comment.Shape.TextFrame.Characters(35, 4).Text = An2

Mais je voudrais si c'est possible "jouer" sur les Characters ou autre si c'est possible
On va me répondre pourquoi faire compliqué quand on peut faire simple
Merci pour vos éventuels retours

 

[Staple1600]

Bonsoir

un internaute
N'y avait-il pas dans cet autre fil que tu initias en 2018, des éléments de syntaxe pouvant t'aider à résoudre cette question de 2019 ? 😉

[RÉSOLU] Renommer texte bouton sur un classeur entier

Bonjour le forum Me voilà de retour...depuis samedi!!! 1ère question: Dans le fichier joint serait-il possible de modifier le texte d'un bouton dans tout le classeur => Masquer les lignes Vides par: Onglets Nouvelle Année? 2ème question: J'ai une macro ci-dessous qui fonctionne bien mais il...

www.excel-downloads.com

 

[un internaute]

Bonjour Staple 1600
Oui c'était TOTALEMENT différent mais j'ai réglé le problème en mettant en commentaires ces 2 lignes.
Maintenant si c'est pas possible de faire autrement on laisse tomber.
Merci et bonne journée
Cordialement

 

[Staple1600]

Bonsoir

Dans la différence, on peut trouver l'inspiration...
C'est tout ce que je voulais signifier en citant cet ancien fil dans lequel on pouvait notamment lire

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

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

Ce qui rejoint (et donc peut inspirer/illustrer avec les modifications et adaptations idoines) ce que toi-même disait, non ?

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

 

[un internaute]

Bonjour Staple 1600
Erreur d’exécution 5
Cordialement

 

[Staple1600]

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

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

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

 

[un internaute]

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.

Bonjour
C'est résolu en MP
Bonne fin de soirée
Cordialement