[VBA-W] Conserver Mise en Forme

[Manudibango]

Bonjour à tous

je reviens vers vous car j'ai bô chercher chercher... piou, je trouve pas...

alors voilà, dans un formulaire de saisie sous Word (UserForm), je souhaiterais donner la possibilité à l'utilisateur de faire un coller dedans (vie une zone de saisie type TextBox), à partir d'une source autre mais qui a une certaine mise en forme (du gras, de l'italique...).

Je souhaiterais ensuite récupérer ce contenu et l'afficher dans le document actif. Je fais ça avec d'autres champs de type TextBox associé à des signets, et c'est impeccable.

Mais pour cette histoire de conserver la mise en forme, je ne sais pas. J'ai cru voir des choses avec un contrôle qui s'appelle "RichTextBox" mais celui n'est pas disponible dans la liste des contrôle que me propose le VBA...

Une idée, siouplait ...

[Jipété]

Yop !

(...) "RichTextBox" mais celui n'est pas disponible dans la liste des contrôle que me propose le VBA...

Tu sélectionnes une form, histoire que la "Boîte à outils" soit visible, puis
Menu Outils, Contrôles supplémentaires... et tu coches "Microsoft Rich TextBox Control, version [pour moi]6.0",
et zou !

HTH,
--
jp

[ouskel'n'or]

Envoyé par Manudibango

je souhaiterais donner la possibilité à l'utilisateur de faire un coller dedans (vie une zone de saisie type TextBox), à partir d'une source autre mais qui a une certaine mise en forme (du gras, de l'italique...).

Si tu copies du texte depuis un document Word, tu peux également connaître son format, la police et la couleur. Tu peux alors affecter les uns et les autres à un textbox. Par contre, ces propriétés seront identiques pour tout le texte inséré dans ton textbox.
Les richtextbox ne sont, me semble-t-il, pas gratuits et doivent être "installés" sur le poste.
Pour lire le format du texte sélectionné :

Code :

1
2
3
4
5
6
7
    With Selection.Font
        Police = .Name
        Taille = .Size
        Gras = .Bold 'boolean
        Inclinaison .Italic ' boolean
        .ColorIndex = wdBlue
    End With

Pour les autres caractéristiques, enregistre une macro en le faisant, tu les auras toutes mais toutes ne sont pas des propriétés des textbox. Vérifie.
pour affecter ces propriété, un exemple :

Code :

Testbox1.ForecolorTextBox1.ForeColor = RGB(255, 255, 0)

Regarde à Forecolor, size, bold,... dans l'aide, tu as un grand nombre d'exemples
A+