Ecrire dans une text Box avec une mouseMove

Version imprimable

1 pièce(s) jointe(s)

Bonjour,

j'ai créé une textbox dans un graphique, une textbox qui s'affiche lorsque je passe sur un de mes points de mon nuage de points. Mon soucis est de réussir à faire un retour à la ligne. En effet quand j'utilise Vbclrf dans la macro il me fait bien un retour à la ligne mais me rajoute un carré...je n'arrive pas à trouver s'il sagit dun problème de format ou autre ???

Le projet est joint

Important, toutes les données sont dynamiques et la propriété Multiline est déjà activée. J'ai essayé avec une méthode bourrin en rajoutant plein de " " mais ça me créé d'autre soucis.

Merci d'avance

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
29
30
31
32
33
34
35
36
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
Dim c As Long
Dim r As Long
 
c = Range("Graphe").Column
r = Range("Graphe").Row
 
 
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) & "" _
                & " " & Worksheets("Plot").Cells(r, c + 4) & " : " & Format(Range("Graphe").Offset(Arg2, 4), "0.0000x") & "" _
                & " " & Worksheets("Plot").Cells(r, c + 3) & " : " & Format(Range("Graphe").Offset(Arg2, 3), "0.0000x") & "" _
                & " " & "Quintile : " & Range("Graphe").Offset(Arg2, 1) & "" _
                & " " & "Percentile : " & Range("Graphe").Offset(Arg2, 1)
        End With
    End If
End If
End Sub

1 pièce(s) jointe(s)

Peut-être plus claire avec cette pièce jointe et ce code

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
29
30
31
32
33
34
35
36
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
Dim c As Long
Dim r As Long
 
c = Range("Graphe").Column
r = Range("Graphe").Row
 
 
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) & "" _
                & " " & Worksheets("Plot").Cells(r, c + 4) & " : " & Format(Range("Graphe").Offset(Arg2, 4), "0.0000x") & vbCrLf _
                & " " & Worksheets("Plot").Cells(r, c + 3) & " : " & Format(Range("Graphe").Offset(Arg2, 3), "0.0000x") & vbCrLf _
                & " " & "Quintile : " & Range("Graphe").Offset(Arg2, 1) & vbCrLf _
                & " " & "Percentile : " & Range("Graphe").Offset(Arg2, 1)
        End With
    End If
End If
End Sub

03/03/2008, 11h53
ucfoutu

Bonjour,

Moi, j'aime bien le On Error Resume Next .... qui fait qu'une erreur éventuelle est ainsi sautée ...;)

Admettons, (au hasard, tiens...) que la propriété MultiLine ne soit qu'en lecture seule, en mode exécution ... (au hasard, hein, pour le cas où il ferait ... euh... bien les choses !!!)
Que va-til se passer ?
Tout simplement : elle restera en "monoline" et on n'y verra que du feu (because On Error Resume Next ...:lol:)....==>> et on obtiendra des "petits carrés" au lieu de retours à la ligne ...

Le On Error Resume Next, une fois de plus !!!!!
03/03/2008, 12h02
popsmelove

Une fois enlever le On error resume next, effectivement je vois que la prorpriété ne marche pas car pas gérée par l'objet,... donc au final j'ai toujours le même problème avec des petits carrés à l'affichage , alors ?
03/03/2008, 12h04
ucfoutu

T'as pas compris ?

C'est en mode Design, que tu dois mettre cette propriété Multiline = True !!!!
Depuis la fenêtre des propriétés) !!!!
03/03/2008, 12h25
ouskel'n'or

Je réponds juste à ça :

Citation:

Envoyé par popsmelove

En effet quand j'utilise Vbclrf dans la macro il me fait bien un retour à la ligne mais me rajoute un carré

Dans Excel, un saut de ligne, c'est vblf tout seul
Dans un msgbox, c'est vbcr
Dans un textbox, je ne sais pas mais teste les deux séparément...
A toutes fins utiles ;)
03/03/2008, 13h06
popsmelove

Merci à toi ouskel'n'or, en effet vblf marche super bien, je ne connaissais pas. Encore merci

Ucfoutu : je ne dispose pas de cette propriété dans le design, je ne sais pas si ça vient de ma version d'excel. Juste une chose, je pense que ce n'est pas à la porter de tout le monde d'aider les autres (moi même je manque de patience), tu devrais donc t'en abstenir.
03/03/2008, 14h00
ucfoutu

Juste pour ne pas m'abstenir ...;)

VBNewLine est une constante bien présente ...

et retiens que le demandeur ne souhaite plus que je le conseille (il restera avec ses On Error Resume Next) ...