affichez du texte à l'objet format automatique?

[news]

Bonjour à tous du forum,

j'utilise un objet de format automatique et je voudrais lorsqu'on va avec la souris sur cet objet, qu'ai affiché du texte "to verify",

On peut mettre des commentaires masqués sous Range(A1,B1,C1,B2),
mais lorsqu'on va directement sur l'objet, ces commentaires ne sont pas affichés.

Comment on peut ajouter à un objet un texte d'information est affiché ?,

ci-joint fichier "verify",

bonne journée encore,

 

[Staple1600]

Re : affichez du texte à l'objet format automatique?

Bonjour



Si ta forme automatique s'appelle toto

Sub test()
ActiveSheet.Shapes("toto").Select
Selection.Characters.Text = "to verify"
End Sub

 

[news]

Re : affichez du texte à l'objet format automatique?

oeh,
ne comprend pas,
la forme automatique n'a pas de nom, on ne pas nommer une forme automatique, et bien je ne vosi pas comment
un bouton de commande on peut modifier le nom: aulieu de CommandButton5
on met "forme05"

ce que j'aimerais utiliser, est si on va avec le pointeur/la souris sur la forme automatique, dont y est le texte "acceuil", est indiqué en plus comme un commentaire ou comme une image y est affiché en plus avec un texte "verify",

bonne soirée encore,

 

[Staple1600]

Re : affichez du texte à l'objet format automatique?

Bonsoir



Si on peut nommé une forme automatique


Tu la sélectionnes ta forme automatique

et tu saisis un nom ici:


et tu, valides par la touche Entrée

 

[news]

Re : affichez du texte à l'objet format automatique?

Bonsoir,

ah d'accord,
j'ai nommé la forme automatique,
en ajoutant la macro le texte va changer,

peut-être je me suis pas bien exprimé,
en fait ce que j'aurai besoin, c'est comme un move on with mouse,

dès qu'on va avec la souris sur cette forme automatique ( on ne clique pas encore sur le bouton de format automatique) (le texte ne change pas),
mais qu'est affiché en plus un commentaire ou une information pour indiquer qch,

bonne soirée encore,

 

[news]

Re : affichez du texte à l'objet format automatique?

Bonsoir à tous du forum,

merci Staple1600 pour réponse,

j'ai modifié avec bouton de commande et ajouté un mouse move on,
cela fonctionne, dont utilisé l'expression :

Private Sub CommandButton1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
[B1] = X
[B2] = Y

If X > 10 And X < CommandButton1.Width - 10 And Y > 10 And Y < CommandButton1.Height - 10 Then
info.Show
Me.CommandButton1.BackColor = RGB(200, 50, 200)
Else
Me.CommandButton1.BackColor = RGB(0, 255, 0)
Unload info
End If
End Sub

 

[Staple1600]

Re : affichez du texte à l'objet format automatique?

Re


Ok mais un CommandButton n'est pas une forme automatique! 😉

 

[news]

Re : affichez du texte à l'objet format automatique?

Bonsoir Staple1600 et à tous du forum,

c'est juste, code à utiliser pour forme automatique je n'ai pas encore trouvé,

avec forme automatique on peut y mettre une🙂 image ou différents format de couleurs, ce qui mieux qu'un button de commande,

autre expression que j'ai trouvé au forum, qu'on peut utiliser, mais toujours avec boutton de commande est:

Private Sub CommandButton2_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Me.Shapes("TipText").Visible = True 'TipText est un nom mis pour afficher un format de zone de texte "verfiy it"
End Sub

Private Sub Label1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Me.Shapes("TipText").Visible = False
End Sub
Private Sub CommandButton2_Click()
Me.Shapes("TipText").Visible = False
End Sub

bonne soirée encore,