Info bulle "controlTipText"

Bonsoir à tous, salut Manu.

avec excel, le retour chariot dans une cellule c'est Ctrl Alt Enter..
cela répond-il à ta question... Tiens moi au courant, j'ai pas trouvé de machine à écrire pour vérifier ta demande.. Désolé..

A+ Christian

Salut a toi, et merci de ta réponse, mais ......

en fait je vais préciser ma question, voila la ligne de commande que j'utilise :


Private Sub Clientname_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
'
'spécifie ce qui arrive lorsque l'utilisateur reste sur certains elements plus longtemps
ctt = 'dte de création :' & tab_sais_1(14)
Clientname.ControlTipText = ctt

End Sub

je souhaite aller à la ligne apres la date de création et écrire la date de derniere modification, mais pour cela j'ai besoin du retour chariot, hors chr(10), chr(13), chr(20) ne me permettent pas de le faire, du moins, je n'ai pas encore trouver la bonne combinaison .....

Quelqu'un la connaitrait il ???

encore merci de vos nombreuses réponses ;-)

Re:Info bulle \"controlTipText\"

Re:

je n'ai pas réussi à reproduire ton exemple mais je me souviens que alt et une touche du pavé numérique renvoi le carractére dans la chaine... si tu fais alt 165 tu écris le A majuscule... (table ascii) le alt 13 pour le CR... ext...

as-tu essayé ça ?
A+ Christian


erreur...! le A c'est alt 65...!

Message édité par: N_Christian, à: 12/09/2005 22:23

Bonsoir Christian, Manu, le Forum

A ma connaissance dans un UserForm, les controls ActiveX la librairie MS Forms 2.0 ne permettent pas de MultiLines sur un ControlTipText, que ce soit en mode DEsigh ou en mode RunTime...

Voici un Barbatruc à essayer sur un UserForm muni d'un CommandButton1 et d'un Label1 suffisamment grand et disposé un peu à l'écart du CommandButton....

Private Sub UserForm_Initialize()
    Me.Label1.Visible = False
End Sub

Private Sub CommandButton1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    With Me.Label1
        .TextAlign = fmTextAlignCenter
        .Visible = True
        .BackColor = 12648447
        .BorderStyle = fmBorderStyleSingle
        .Caption = 'Hello Le Forum XLD' & vbCrLf & 'Ici le CommandButton1' & vbCrLf & _
                    'qui a été activé par' & vbCrLf & Application.UserName & vbCrLf & _
                    'en ce ' & Format(Date, 'DDDD DD MMMM YYYY')
       
    End With
End Sub

Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    Me.Label1.Visible = False
End Sub

Cliquez pour agrandir...

Bonne Soirée
[ol]@+Thierry[/ol]

ça ne réponds pas vraiment a mon attente (délai avant d'afficher inexistant....), mais si c pas possible..... même un excellien doit se plier à la dure loi des limites del'informatique .........

En tous les cas merci beaucoup .....

Manu