[RÉSOLU] Modifs macro AjoutAnnee

un internaute · 25 Avril 2019

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

Staple1600 · 25 Avril 2019

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 · 26 Avril 2019

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 · 26 Avril 2019

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

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

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 · 27 Avril 2019

Bonjour Staple 1600
Erreur d’exécution 5
Cordialement

Staple1600 · 27 Avril 2019

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

Staple1600 à dit:
(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 · 27 Avril 2019

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.

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

[RÉSOLU] Modifs macro AjoutAnnee

un internaute

XLDnaute Impliqué

Staple1600

XLDnaute Barbatruc

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

un internaute

XLDnaute Impliqué

Staple1600

XLDnaute Barbatruc

un internaute

XLDnaute Impliqué

Staple1600

XLDnaute Barbatruc

un internaute

XLDnaute Impliqué

Discussions similaires