Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel INFO BULLES EN VBA

INFO BULLES EN VBA

7 réponses
Avatar
daiman
bonjour,
comme tout le monde le sais lorsque l'on s'arrête sur un bouton de la barre
d'outil d' excel, sans cliquer, on a une info qui nous apprarais juste en
dessous de la flèche souris. est-il possible de reproduire la même chose sur
les bouton que l'on crée dans sa feuille excel? sur un bouton autre que ceux
des userform. je parle de se genre de bouton:

ActiveSheet.Buttons.Add(60, 30, 150, 30).Select
Selection.OnAction = "OuvrirFichier"
Selection.Characters.Text = "Rapatriment des Données Brut"
With Selection.Characters(Start:=1, Length:=30).Font
.Name = "Comic sans MS"
.FontStyle = "gras"
.Size = 10
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlNone
.ColorIndex = 5
End With
Signaler un problème avec ce contenu

7 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
papou
Bonjour
Non, pas de propriété ControlTipText ou équivalent pour ce type de contrôle.
Mais peut-être que quelqu'un ici te proposera un contournement ?

Cordialement
Pascal

"daiman" a écrit dans le message de news:

bonjour,
comme tout le monde le sais lorsque l'on s'arrête sur un bouton de la
barre d'outil d' excel, sans cliquer, on a une info qui nous apprarais
juste en dessous de la flèche souris. est-il possible de reproduire la
même chose sur les bouton que l'on crée dans sa feuille excel? sur un
bouton autre que ceux des userform. je parle de se genre de bouton:

ActiveSheet.Buttons.Add(60, 30, 150, 30).Select
Selection.OnAction = "OuvrirFichier"
Selection.Characters.Text = "Rapatriment des Données Brut"
With Selection.Characters(Start:=1, Length:0).Font
.Name = "Comic sans MS"
.FontStyle = "gras"
.Size = 10
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlNone
.ColorIndex = 5
End With




Avatar
cb60
Bonsoir,
Comme le dit Papou c'est du bidouillage, mais lorsque nous avions fais cela
sur un autre Forum on s'etait bien amusé!

http://cjoint.com/?liuQ0Yx6H8

Si ça peut te donner quelques idées.


Bonjour
Non, pas de propriété ControlTipText ou équivalent pour ce type de contrôle.
Mais peut-être que quelqu'un ici te proposera un contournement ?

Cordialement
Pascal

"daiman" a écrit dans le message de news:

bonjour,
comme tout le monde le sais lorsque l'on s'arrête sur un bouton de la
barre d'outil d' excel, sans cliquer, on a une info qui nous apprarais
juste en dessous de la flèche souris. est-il possible de reproduire la
même chose sur les bouton que l'on crée dans sa feuille excel? sur un
bouton autre que ceux des userform. je parle de se genre de bouton:

ActiveSheet.Buttons.Add(60, 30, 150, 30).Select
Selection.OnAction = "OuvrirFichier"
Selection.Characters.Text = "Rapatriment des Données Brut"
With Selection.Characters(Start:=1, Length:0).Font
.Name = "Comic sans MS"
.FontStyle = "gras"
.Size = 10
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlNone
.ColorIndex = 5
End With









Avatar
Misange
Bonsoir,
Comme le dit Papou c'est du bidouillage, mais lorsque nous avions fais cela
sur un autre Forum on s'etait bien amusé!


Très sympa !
Misange

Avatar
JB
Bonsoir,

Bouton BO contrôles:

Private Sub Bouton1_MouseMove(ByVal Button As Integer, ByVal Shift As
Integer, ByVal X As Single, ByVal Y As Single)
If X < 10 Or X > Bouton1.Width - 10 Or Y < 10 Or Y > Bouton1.Height
- 10 Then
ActiveSheet.Shapes("monshape").Visible = False
Else
ActiveSheet.Shapes("monshape").Visible = True
End If
End Sub

http://cjoint.com/?lixUnFGeVq

JB

On 8 nov, 15:35, "daiman" wrote:
bonjour,
comme tout le monde le sais lorsque l'on s'arrête sur un bouton de la barre
d'outil d' excel, sans cliquer, on a une info qui nous apprarais juste en
dessous de la flèche souris. est-il possible de reproduire la même ch ose sur
les bouton que l'on crée dans sa feuille excel? sur un bouton autre que ceux
des userform. je parle de se genre de bouton:

ActiveSheet.Buttons.Add(60, 30, 150, 30).Select
Selection.OnAction = "OuvrirFichier"
Selection.Characters.Text = "Rapatriment des Données Brut"
With Selection.Characters(Start:=1, Length:0).Font
.Name = "Comic sans MS"
.FontStyle = "gras"
.Size = 10
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlNone
.ColorIndex = 5
End With


Avatar
Misange
Bonsoir,

Bouton BO contrôles:
....


Plus sobre mais efficace !
Misange



Avatar
daiman
merci. je vais essayé tout de suite


"daiman" a écrit dans le message de news:

bonjour,
comme tout le monde le sais lorsque l'on s'arrête sur un bouton de la
barre d'outil d' excel, sans cliquer, on a une info qui nous apprarais
juste en dessous de la flèche souris. est-il possible de reproduire la
même chose sur les bouton que l'on crée dans sa feuille excel? sur un
bouton autre que ceux des userform. je parle de se genre de bouton:

ActiveSheet.Buttons.Add(60, 30, 150, 30).Select
Selection.OnAction = "OuvrirFichier"
Selection.Characters.Text = "Rapatriment des Données Brut"
With Selection.Characters(Start:=1, Length:0).Font
.Name = "Comic sans MS"
.FontStyle = "gras"
.Size = 10
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlNone
.ColorIndex = 5
End With




Avatar
daiman
sa fonctionne. c'est ce que je recherchais en mieux. merci
"daiman" a écrit dans le message de news:

bonjour,
comme tout le monde le sais lorsque l'on s'arrête sur un bouton de la
barre d'outil d' excel, sans cliquer, on a une info qui nous apprarais
juste en dessous de la flèche souris. est-il possible de reproduire la
même chose sur les bouton que l'on crée dans sa feuille excel? sur un
bouton autre que ceux des userform. je parle de se genre de bouton:

ActiveSheet.Buttons.Add(60, 30, 150, 30).Select
Selection.OnAction = "OuvrirFichier"
Selection.Characters.Text = "Rapatriment des Données Brut"
With Selection.Characters(Start:=1, Length:0).Font
.Name = "Comic sans MS"
.FontStyle = "gras"
.Size = 10
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlNone
.ColorIndex = 5
End With