Discussion :

[popsmelove]

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 :

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

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

[Zetophe]

Bonjour,

as-tu essayer de remplacer vbtab par chr(9) ?

[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

[ucfoutu]

Bonjour,

va dans la fenêtre des propriétés et affecte donc la valeur True à la propriété Multiline de ta Textbox...

[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

[ucfoutu]

Où se trouve ta textbox ?

Sur une feuille Excel ou dans un UserForm ?

[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)

[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 !

[popsmelove]

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 :

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

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

[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...

[popsmelove]

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 :

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

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