Discussion :

[manuseverine]

Bonjour,

je ne sais pas si c'est possible en fait

je voudrais savoir s'il est possible que quand on s'apprête à cliquer sur un bouton, et donc si on le survole, on est une infobulle.

J'ai trouvé dans la FAQ comment faire pour lier une info bulle à une cellule mais je n'arrive pas à l'applique à un bouton car dans la FAQ c'est en fonction de couleur.

Merci beaucoup

[Cyberseb87]

Si ton bouton est placé sur un Userform, tu as la possibilité d'utiliser la propriété "ControlTipText" du commandButton pour ajouter ton message.

Ainsi lorsque l'utilisateur survole le bouton il voit apparaitre le message que tu as saisi dans cette propriété ("ControlTipText") !

Je sais pas si c'est exactement ça que tu cherche mais j'aurais essayé

[manuseverine]

si c'est ça mais mon bouton n'est pas dans un userform. Merci quand-même pour l'info ça me servira peut-être ailleurs.

[patricktoulon]

bonjour manuseverine


tu pourrais peut etre essayer de metre un label ou meme un textbox invisible au depart
et a chaque passage sur un control de ta feuille(sheets) le textbox prend la valeur du nom de l'activecontrol.name et deviens visible avec les coordonnées de l'active control.top et left+activecontrol.width

je l'avais deja fait c'est meme plus rapide que le controltiptext


au plaisir

[manuseverine]

j'ai pas tout compris mais avec l'aide je vais essayer de concrétiser ce que tu viens de me suggérer. Si tu me dis que tu l'as déjà fais, je vais faire comme ça

Merci beaucoup

[ESVBA]

patrciktoulon, j'aimerais bien connaitre le genre d'API que tu utilises pour identifier le contrôle sur la feuille que tu survoles. Ca m'intéresse.

Si c'est possible.

ESVBA

[thugelife]

utilise la propriété caption.

[SilkyRoad]

bonsoir,

Ci joint une méthode qui utilise un module de classe pour identifier le passage de la souris sur les controles 'CommandButton' de la feuille de calcul et affiche un texte dans la barre de statut... créer une infobulle serait sans doute possible mais deviendrait tout de même un peu usine à gaz... ;o).

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
29
30
31
32
'--------------------------------------
'à placer dans le module objet ThisWorbook pour que la classe
'soit initialisée lors de l'ouverture du classeur.
 
Option Explicit
 
Private Sub Workbook_Open()
Dim Obj As OLEObject
Dim Cl As Classe1
Dim Ws As Worksheet
 
'Affiche la barre de statut
Application.DisplayStatusBar = True
 
Set Collect = Nothing
Set Collect = New Collection
 
'Boucle sur les feuilles du classeur
For Each Ws In ThisWorkbook.Worksheets
    'boucle sur les objets de la Feuil1
    For Each Obj In Ws.OLEObjects
        'verifie s'il s'agit d'un CommandButton
        If TypeOf Obj.Object Is MSForms.CommandButton Then
 
            Set Cl = New Classe1
            Set Cl.CmdGroup = Obj.Object
            Collect.Add Cl
        End If
    Next Obj
Next Ws
End Sub
'--------------------------------------

Code :

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

1
2
3
4
5
6
'--------------------------------------
'dans un module standard
Option Explicit
 
Public Collect As Collection
'--------------------------------------

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
'--------------------------------------
'dans un module de classe nommé "Classe1"
'
Option Explicit
 
Public WithEvents CmdGroup As MSForms.CommandButton
 
 
Private Sub CmdGroup_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, _
    ByVal X As Single, ByVal Y As Single)
 
    'Affiche le texte dans a barre de statut
    Application.StatusBar = "Le texte : " & CmdGroup.Caption
 
End Sub
 
'--------------------------------------

bonne soirée
michel

[manuseverine]

merci beaucoup SilkyRoad je vais essayer ça.

D'après vos MP et vos messages dans mes posts je pense que apparemment je post trop, j'arrête donc ce post et tous les autres et je m'excuse si j'ai pû gêner ce forum.

Merci en tout cas à tout ceux qui m'ont accordé de l'aide

[patricktoulon]

bonjour a tous

bonjour esvba je n'ai pas parler d'api pour identifier le contrôle survolé

simplement ces propriétés

[SaulEman]

Salut je reviens juste sur la routine de Patrick, qui marche très bien... SAUF lorsqu'on sélectionne toute la textebox, dans ce cas, ça efface le "/" et impossible de taper une date valide... et je ne parviens pas à voir dans le code la ligne qui contrôle cela... qqn a une idée?

Merci à vous!

[SaulEman]

Autre erreur : en fonction des 2 premiers chiffres, le code permet soit une date au format dd/mm/yyyy soit au format mm/dd/yyyy. Sauf que si on veut récupérer les informations dans excel, il faut utiliser la fonction CDate, qui ne marche, bien sûr que sur 1 seul cas sur les 2 !!