Discussion :

[dmoluc]

Bonsoir à tous,

Afin de guider les futurs utilisateur du petit classeur que je viens de finir de coder, j'ai maintenant l'intention de mettre des zones de texte explicatives lorsque l'on passe la souris sur un objet.
Voilà ce que j'ai réussis à bricoler mais ça fonctionne que quand ça le veux bien

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
 
Private Sub CommandButton5_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
 
 
Dim txt, d!, i!, n%
 
txt = Array("coucou")
 
d = 2
i = 4 * Y / (Me.Text1.Height)
n = Int(i)
 
 Me.Text1.Visible = X > d And X < Me.Text1.Width - d And Y > d And Y < Text1.Height - d And i - n < 0.7
 
 
 
End Sub

le texte apparait parfois mais pas toujours et surtout il oublis souvent de disparaitre quand la souris s'en va plus loin...

Existe-t-il une solution à mon problème ?

merci pour votre aide

[BlueMonkey]

Bonjour,

Regarde du côté de la propriété ControlTipText des contrôles tel que les CommandButton.

[dmoluc]

Merci BlueMonkey
Je n'y avais pas pensé, maintenant ça fonctionne
hélas le fichier excel c'est corrompu et j'ai perdu 2 jours de travail, comme quoi il faut faire des sauvegarde même et peu être surtout avec la dernière version d'office...
à force de refaire les codes, je vais les connaitre par cœur

encore merci

[BlueMonkey]

Re.

S'il n'y a pas d'infos confidentielle, tu peux poster le fichier corrompu pour voir si avec XLS2010 la réparation est possible.

Sinon essaye de déactiver les macros pour Excel (des fois que la corruption vienne d'une macro qui s'exécute à l'ouverture).

[dmoluc]

j’envoie le fichier mais j'ai bien peur que ce soit mort, à l'origine il faisait 1,2 méga et il ne reste plus que quelques ko, d'ailleur j'ai déjà entrepris de refaire le code et je bute déjà sur des petits bugs

[BlueMonkey]

Sous XLS2010, le fichier s'ouvre sans problème, mais ne contient aucune macro.
Ci-joint le fichier ré-enregistré depuis XLS2010.