Discussion :

[Raikko68]

Bonjour à toutes et à tous

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

Code :

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

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

[laetitia]

bonjour Raikko68 le forum pour repondre a la 2 question

Code :

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

1
2
3
4
5
Private Sub Label1000_Click()
  UserForm1.Show
ou 
nom user.show
End Sub

pour la question 1 je regarde!!

[sabzzz]

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 :

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

1
2
3
Private Sub CommandButton1_Click()
MsgBox "Ok"
End Sub

Code :

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

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 :

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

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

[laetitia]

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"

[laetitia]

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 :

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

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

[sabzzz]

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

[laetitia]

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

passe une bonne soirée a+ leti