Discussion :

[morobaboumar]

Code VBA
Salut Membre du Forum!
Comment peut-on adapter le code suivant au textbox d'une Userform de Word?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Sub exemple_codes_mise_en_forme()
With ActiveSheet.PageSetup
'en-tête de page
.LeftHeader =
Sheets(1).Range("A1") '<-- contenu de la cellule A1 (sans précision = style par défaut)
.CenterHeader = "&G&12&""Comic Sans Ms""fring" '<-- texte (style gras + taille 12 + style police)
.RightHeader = "P.WQ.156&Yind.A" '<-- texte + indice
'pied de page
.LeftFooter = "&I&D / &T" '<-- date / heure (style italique)
.CenterFooter = "&G&A" & Chr(10) & "&G&F" '<-- nom feuille (activation style gras) + saut de ligne + nom fichier .RightFooter = "&8&P/&N" '<-- numéro de page / nombre de pages (taille 8)
End With
End Sub

Merci de me répndre.

[Heureux-oli]

Salut,

Désolé, mais j'ai rien compris à ta question !

Tu nous parles d'un UserForm et ton code traite de la mise en page d'une feuille Excel.

[morobaboumar]

SALUT MEMBRE DU FORUM!

J'ai créé une Une UserForm dans Word où j'ai placé des Contrôles:

1°) Un TextBox pour la saisie de données. J'airais bésoins de faire la mise en forme des ces données (soit en Gras, Italique, Souligner, Ajuster, Centrer, mettre en Couleur, etc).

2°) Des boutons de Commande qui doivent contenir les Différents Codes de mise en Forme des données contenues dans le TextBox de la UserForm de Word.

Nb: Ces données seront inserées grace à une commande sur le formulaire Word qui doit les garder avec toutes les mises en forme.

3°) Je joins à ma discussion un exemplaire de mon projet Word afin de faciliter la suite.

Merci de me répondre.

[morobaboumar]

Bonsoir membres du forum,
Pourriez vous m'indiquer comment activer les macros dans Word afin que les UserForm et commandes puissent marcher ?
Ensuite m'aider dans ma requête post#3 ?
Cordialement.