Prob mousemove + click sur label

Bonjour à toutes et à tous

J'ai un petit soucis sur excel. J'ai créer un label avec une propriété mousemove dessus

Code:

---

1 2 3

Private Sub Label1000_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) Label1000.ForeColor = vbYellow End Sub

---

Mes questions :

1ere question :
Comment faire pour que quand la souris quitte le label la couleur du texte devienne : BLANC

2ème question :
Tout en gardant le mousemove j'aimerais sur le même label pourvoir faire un click et au click ouvrir un userform


J'ai essayer en mettant Private Sub Label1000_Click()
Mais après il me dit nom ambigu trouvé


Pouvez vous m'aider

Merci d'avance

bonjour Raikko68 le forum pour repondre a la 2 question

Code:

---

1 2 3 4 5

Private Sub Label1000_Click() UserForm1.Show ou nom user.show End Sub

---

pour la question 1 je regarde!!

bonjour Raikko68, laetitia,

il n'y a pas d'événement MouseMouve pour une feuille alors
un truc est de mettre un autre controle sous le premier control,
je n'ai pas réussi à le faire avec deux label, mais avec un label et un commandbutton.
tu place un label sous le commandbutton, le label doit etre légèrement plus grand que le commandbutton.

http://cjoint.com/?forkTBR5tL

Code:

---

1 2 3

Private Sub CommandButton1_Click() MsgBox "Ok" End Sub

---

Code:

---

1 2 3 4

Private Sub CommandButton1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) CommandButton1.ForeColor = vbYellow ' jaune ActiveSheet.Shapes("Label1").Visible = True ' met background label visible (pour detect mouseoff) End Sub

---

Code:

---

1 2 3 4 5 6

Private Sub Label1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) If CommandButton1.ForeColor = vbYellow Then ' test si cb1 est jaune CommandButton1.ForeColor = vbWhite ' si la couleur est jaune, change pour blanc End If ActiveSheet.Shapes("Label1").Visible = False End Sub

---

re, bonjour isabelle pas simple je connaissais avec un commandbutton avec label effectivement cela marche pas bizarre........
une possibilitee quand meme entoure le label avec 4 labels tres fin avec proprietees back style a transparent mais bon si 50 labels c'est pas "gagne"

re, je viens d'essayer avec une image un peu plus grande que le label ca marche ???? si beaucoup de labels dans ce cas la je pense qu'on peut s'orienter sur un module de class pour simplifier le code

image proprietees back style a transparent

Code:

---

1 2 3 4 5 6 7 8

Private Sub Image1_MouseMove(ByVal Button As Integer _ , ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) Label1000.ForeColor = vbWhite End Sub Private Sub Label1000_MouseMove(ByVal Button As Integer _ , ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) Label1000.ForeColor = vbYellow End Sub

---

bonjour laetitia, et à tous,

je n'ai pas encore compris pourquoi l'événement Label1_Click ne fonctionnait pas la premiere fois que j'ai essayé avec 2 label, mais maintenant cela fonctionne, bizarre........

http://cjoint.com/?fosHJpzPWV

re, isabelle je viens de regarder ton fichier eh..:ccool: ca marche tres bien avec 2 labels

passe une bonne soirée a+ leti