Discussion :

[Arkencia]

Voila j'essaye d'afficher sur une zone d'édition (qui se trouve elle même sur une feuille de dialogue microsoft excel 5.0) des texte de plus de 255 caractére... et la c'est le drame impossible.

Donc j'aimerais savoir si il serais possible de modifier le type de la valeur (genre la mettre en variant ^^)

ceci pour afficher un texte descriptif lié a un choix d'une zone de liste déroulante

Code :

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

1
2
3
Sub ChoixComp_QuandChangement()
    DialogSheets("DialComp").DrawingObjects("DescComp").Text = Sheets("Compétence").Cells(DialogSheets("DialComp").DrawingObjects("ChoixComp"), 2)
End Sub

[Singular]

Je n'ai pas d'exemple d'Excel 5.0 sous la main mais, plutôt que d'utiliser une zone d'édition normale, t'est-il possible d'utiliser quelque chose comme un RichTextBox?

En général, il y a deux sortes de zones éditables: celle appelée TextBox et limitée à 255 caractères et le RichTextBox qui peut afficher jusqu'à 65535 caractères.

[Arkencia]

Je n'ai pas accés a des RichTextBox, mais juste a un nombre trés limité de possibilité (j'ai office 2003, mais en fait j'insére dans mes onglets une "feuille de dialogue") qui sont souvent moins permisible que les "userform", mais j'aimerais quand même garder la feuille de dialogue.

Sinon y a t'il un moyen de faire apparaitre une richtextbox avec un code macro ? (et la possitionner)

[Singular]

Il n'y a malheureusement pas moyen.

Une solution possible pourrait consister à limiter ton texte à 255 caractères:

Code :

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

DialogSheets("DialComp").DrawingObjects("DescComp").Text = Left(Sheets("Compétence").Cells(DialogSheets("DialComp").DrawingObjects("ChoixComp"), 2),255)