Ecrire avec VBA dans une TextBox

Version imprimable

Bonjour,

je rencontre un problème en saisissant un text dans une text box avec VBA : lorsque j'utilise vbTab (tabulation) ou vbClrf j'ai un carré qui se génère à l'affichage. J'ai essayé plusieurs choses mais sans succés, voici mon code qui s’intègre à l’évènement mousemove d’un graphique.
Code:

1 2 3 4 5 6 7 8 With ActiveChart.Shapes("Text Box 1") .Visible = msoTrue .TextFrame.Characters.Text = _ vbTab & " " & Range("Graphe").Offset(Arg2, 0) & " " & vbCrLf _ & vbTab & " Ret0Eqty : " & Format(Range("Graphe").Offset(Arg2, 3), "0.00%") & " " & vbCrLf _ & vbTab & " Prc2Bk : " & Format(Range("Graphe").Offset(Arg2, 2), "0.00x") & " " & vbCrLf _ & vbTab & " Quintile : " & Range("Graphe").Offset(Arg2, 1) End With
Merci d’avance

20/02/2008, 08h49
Zetophe

Bonjour,

as-tu essayer de remplacer vbtab par chr(9) ?
20/02/2008, 08h52
popsmelove

Salut,
yes ça fait la même chose, j'ai même essayé de passer par un str as string et de faire des replace mais sans succés...sniff

Thanks
20/02/2008, 08h55
ucfoutu

Bonjour,

va dans la fenêtre des propriétés et affecte donc la valeur True à la propriété Multiline de ta Textbox...;)
20/02/2008, 09h16
popsmelove

je sais pas si j'ai une version trop ancienne d'excel (version 2000) mais je n'ai pas cette propriété de disponible, je n'ai que la possibilité de verrouillé ou devrouiller le texte....sniffff
20/02/2008, 09h18
ucfoutu

Où se trouve ta textbox ?

Sur une feuille Excel ou dans un UserForm ?
20/02/2008, 09h26
popsmelove

En fait elle se trouve dans un graphique, je la fait apparaître dés que je passe sur un point (graphique en nuage de point)
20/02/2008, 09h30
ucfoutu

Je ne sais pas à quoi tu te réfères exactement, mais ce n'est pas à une textbox ...

Je viens de vérifier sur mon portable (avec Excel 2000) : Les TextBoxes de Excel 2000 sont bien dotées de la propriété Multiline !

En fait VB ne m'affichait pas la propriété multiline mais quand je la force elle estn reconnue, par contre ça n'a rien changé à mon bins ...

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
 Private Sub chart_MouseMove(ByVal Button As Long, ByVal Shift As Long, _
                    ByVal x As Long, ByVal y As Long)
 
Dim ElementID As Long
Dim Arg1 As Long, Arg2 As Long
 
On Error Resume Next
ActiveChart.GetChartElement x, y, ElementID, Arg1, Arg2
 
ActiveChart.Shapes("Text Box 1").Visible = msoFalse
 
If (Arg1 = 1 And ElementID <> 15 And ElementID <> 21) Then
    If Arg2 = 0 Then
        ActiveChart.Shapes("Text Box 1").Visible = msoFalse
        Else
 
        With ActiveChart.Shapes("Text Box 1")
            .MultiLine = True
            .Visible = msoTrue
            .TextFrame.Characters.Text = _
                vbTab & "  " & Range("Graphe").Offset(Arg2, 0) & "  " & vbCrLf _
                & vbTab & "  Ret0Eqty : " & Format(Range("Graphe").Offset(Arg2, 3), "0.00%") & "  " & vbCrLf _
                & vbTab & "  Prc2Bk : " & Format(Range("Graphe").Offset(Arg2, 2), "0.00x") & "  " & vbCrLf _
                & vbTab & "  Quintile : " & Range("Graphe").Offset(Arg2, 1)
        End With
    End If
End If
End Sub

20/02/2008, 09h40
popsmelove

je vien de comprendre à koi sert la propriété, mais elle ne peut marcher pour moi car mon text est dynamique et donc pas toujours de la même taille. je suis obligé de fixer moi même le retour à la ligne pour que ce soit propre en affichage...

Bon, en utilisant la propriété multiline et en faisant un truc un peu crade (blinder d'espace mon code ) ça marche

Alors un grand merci à toi et désolé de t'avoir souler avec ça

ciao

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
 Private Sub chart_MouseMove(ByVal Button As Long, ByVal Shift As Long, _
                    ByVal x As Long, ByVal y As Long)
 
Dim ElementID As Long
Dim Arg1 As Long, Arg2 As Long
 
On Error Resume Next
ActiveChart.GetChartElement x, y, ElementID, Arg1, Arg2
 
ActiveChart.Shapes("Text Box 1").Visible = msoFalse
 
If (Arg1 = 1 And ElementID <> 15 And ElementID <> 21) Then
    If Arg2 = 0 Then
        ActiveChart.Shapes("Text Box 1").Visible = msoFalse
        Else
 
        With ActiveChart.Shapes("Text Box 1")
            .MultiLine = True
            .Visible = msoTrue
            .TextFrame.Characters.Text = _
                Range("Graphe").Offset(Arg2, 0) & "                                                 " _
                & "Ret0Eqty : " & Format(Range("Graphe").Offset(Arg2, 3), "0.00%") & "                                                  " _
                & "Prc2Bk : " & Format(Range("Graphe").Offset(Arg2, 2), "0.00x") & "                                                    " _
                & "Quintile : " & Range("Graphe").Offset(Arg2, 1)
        End With
    End If
End If
End Sub