[RÉSOLU] Modifs macro AjoutAnnee

un internaute

XLDnaute Occasionnel
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

VB:
 ' 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
 
Dernière édition:

Staple1600

XLDnaute Barbatruc
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 ? ;)
 

un internaute

XLDnaute Occasionnel
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

XLDnaute Barbatruc
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
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
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
 

Staple1600

XLDnaute Barbatruc
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

XLDnaute Occasionnel
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
 

Discussions similaires


Haut Bas