OVH Cloud OVH Cloud

MMNS pour AMIS

5 réponses
Avatar
Lola
Modèle de macro non superfétatoire
bricolé à la va-comme-je-te-pousse par une forumiste reconnaissante :

Sub ActionInitial()
'
' ActionInitial Macro
' Macro créée le 29/10/2004 par Lola
End Sub
Sub MMNS()
'
' MMNS Macro
' Macro enregistrée le 29/10/2004 par Lola
'
NormalTemplate.AutoTextEntries("Bonjour !").Insert
Where:=Selection.Range
Selection.TypeParagraph
Selection.TypeText Text:="J'ai un gros problème :"
Selection.TypeParagraph
Selection.TypeText Text:="........................................"
Selection.TypeParagraph
NormalTemplate.AutoTextEntries("Merci aide").Insert
Where:=Selection.Range
End Sub

--
Lola
« Mon modèle, c'est moi-même ! Je suis mon meilleur modèle parce que
je connais mes erreurs, mes qualités, mes victoires et mes défaites.
Si je passe mon temps à prendre un autre modèle comme modèle, comment
veux-tu que ce modèle puisse modeler dans la bonne ligne ? »
J.-C. Vandamme

5 réponses

Avatar
Geo
Bonjour Lola

La première macro me semble un peu superfétatoire,
mais la deuxième indispensable.

:-)
Avatar
Anacoluthe
Bonjour !

'Lola' nous a écrit ...
Sub MMNS()
'
' MMNS Macro
' Macro enregistrée le 29/10/2004 par Lola
'
NormalTemplate.AutoTextEntries("Bonjour !").Insert
Where:=Selection.Range



Alors là Lola
ça c’est de la super macro !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
Super et pas faite à Thouars
Bravo !

Et j'apprécie tout particulièrement la citation - rigoureusement
authentique ! - de Jean-Claude VANDAMME destinée à tous ceux
qui viennent sur ce forum en quête d'un modèle ....

A++ :-)
Anacoluthe


Lola
« Mon modèle, c'est moi-même ! Je suis mon meilleur modèle parce que je

connais mes erreurs, mes qualités, mes victoires et mes défaites. Si je
passe mon temps à prendre un autre modèle comme modèle, comment veux-tu
que ce modèle puisse modeler dans la bonne ligne ? »
J.-C. Vandamme

Avatar
Lola
Anacoluthe wrote:

Et j'apprécie tout particulièrement la citation - rigoureusement
authentique ! - de Jean-Claude VANDAMME destinée à tous ceux
qui viennent sur ce forum en quête d'un modèle ....

A++ :-)
Anacoluthe


J'humblementise celles qui suivent, ami Anacoluthe (ravie si certaines
d'entre elles peuvent t'être utiles) :

« Le modèle, c'est un soi idéalisé ». Édouard Baer
« Tout portrait d'un peint avec âme est un portrait non du modèle,
mais de l'artiste. » Oscar Wilde
« Pour peindre les portraits, observez les modèles. »
Charles-Guillaume Étienne
« Dans une société bien réglée, les bons doivent servir de modèle et
les méchants d'exemple. » Louis de Bonald
« Les plus belles vies sont à mon gré celles qui se rangent au modèle
commun, sans merveille. » Montaigne
« La douleur est le grand peintre des portraits. Il est bien rare que
le modèle aime son peintre. » André Suarès
« Il en est ici comme de tous les autres arts : le modèle qui réussit
le mieux en petit souvent ne peut s'exécuter en grand. » Buffon
« Le poète ne doit avoir qu'un modèle, la nature ; qu'un guide, la
vérité. » Victor Hugo
« Pour un artiste, il est aussi fatal d'épouser son modèle que pour un
gourmet d'épouser sa cuisinière : le premier est privé des séances de
pose et le second de dîner. » Oscar Wilde
« Peut-être la cravate est-elle le modèle pour adulte du bavoir ? »
Christiane Rochefort

(j'aime tout particulièrement la dernière...)

Bonne soirée à tous

--
Lola
Ich hab' ein Pianola
Zuhaus in mein' Salon.

Avatar
JièL Goubert
Bonjoir(c) Lola

c'est gentil ça, mais n'est-ce pas superfétatoire quand même ? ;-)))
Surtout la 1ère
quand à la seconde, y'a du superfétatoire à enlever, c'est sur ;-)))

--
JièL compte de point AMIS

Le 29/10/2004 18:37 vous avez écrit ceci :
Modèle de macro non superfétatoire
bricolé à la va-comme-je-te-pousse par une forumiste reconnaissante :

Sub ActionInitial()
'
' ActionInitial Macro
' Macro créée le 29/10/2004 par Lola
End Sub
Sub MMNS()
'
' MMNS Macro
' Macro enregistrée le 29/10/2004 par Lola
'
NormalTemplate.AutoTextEntries("Bonjour !").Insert
Where:=Selection.Range
Selection.TypeParagraph
Selection.TypeText Text:="J'ai un gros problème :"
Selection.TypeParagraph
Selection.TypeText Text:="........................................"
Selection.TypeParagraph
NormalTemplate.AutoTextEntries("Merci aide").Insert
Where:=Selection.Range
End Sub


Avatar
Lola
JièL Goubert wrote:

Bonjoir(c) Lola

c'est gentil ça, mais n'est-ce pas superfétatoire quand même ? ;-)))
Surtout la 1ère
quand à la seconde, y'a du superfétatoire à enlever, c'est sûr ;-)))

Bonjour J.-L.

Je n'avais fait que copicoller mes élucubrations telles qu'elles
apparaissaient dans "enregistrer une macro".
Mais je ne demande qu'à apprendre ! :-)
Et j'ai déjà trouvé plein de bonnes choses sur mpfw...

--
Lola
Ich hab' ein Pianola
Zuhaus in mein' Salon.