Message box sur UserForm avec le contrôle RichTextBox

Pour écrire et partager des tutoriels et des astuces (Excel, Calc et Google Sheets uniquement)
Avatar du membre
lermite
Membre impliqué
Membre impliqué
Messages : 1'599
Appréciation reçue : 1
Inscrit le : 5 février 2012
Version d'Excel : 2000/2007FR

Message par lermite » 20 mai 2012, 16:59

Démo pour disposer d' un MsgBox perso avec un UserForm et le contrôle RichTextBox
L'avantage de ce choix c'est que le texte peu être édité avec un traitement de texte comme Word et disposer de certaine de ses possibilités tel que grandeur, couleur et attribut de la police. Mais aussi d'y inclure une/des images.
Un exemple employant quelque possibilités.
Image
Si vous disposez du contrôle Microsoft RichTextBox.ocx vous pouvez l'employé directement sans télécharger la démo.
Créez un texte avec Word (ou autre) et sauvez le en mode rtf.
Avec Excel,
Créez un Userform, coller un bouton et le contrôle sur la fenêtre de l'UF
Dans le module code copiez,
Option Explicit

Private Sub CommandButton1_Click()
    Unload Me
End Sub

Private Sub UserForm_Initialize()
    With RichTextBox1
        .Enabled = False
        .LoadFile "c:\Répertoire\Fichier.rtf"
    End With
End Sub
Si vous n'avez pas le contrôle RichTextBox vous pouvez télécharger le classeur démo qui décrit la marche à suivre pour se procurer le contrôle et le mode d'emploi pour l'employer.
Classeur démo en xls
Tout problème a une solution, le vrai problème... c'est de la trouver.
Avatar du membre
grisan29
Membre impliqué
Membre impliqué
Messages : 1'265
Inscrit le : 26 janvier 2010
Version d'Excel : 2013 pro FR

Message par grisan29 » 4 février 2014, 21:51

bonjour lermite

Merci pour le fichier demo, mais pourquoi
With RichTextBox1
bug et affiche une erreur de compilation et demande la variable richtextbox
je suis sous win8.1 64 bits et office 2010 32 bits

Pascal
Avatar du membre
grisan29
Membre impliqué
Membre impliqué
Messages : 1'265
Inscrit le : 26 janvier 2010
Version d'Excel : 2013 pro FR

Message par grisan29 » 3 mai 2015, 16:21

bonjour Lermite et le forum

pour ma part c'est résolu l'accès au ruchtextbox, monthview et toute la clic qui n'est plus fourni avec microsoft

magnifique démo

Pascal
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message