Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Changer la couleur d'un label au survol de la souris

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion maval
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire

maval

XLDnaute Barbatruc
Bonjour,
Sur un Userform j'ai plusieurs Label "Label1, label2, label3 ect..." j'aimerais Changer la couleur des labels au survol de la souris. J'ai mis comme code ceci:
Code: 
Private Sub Label1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
 Label1.BackColor = &HFF&
 End Sub

Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
 Label1.BackColor = &H0&       
 End Sub
Qui fonctionne très bien mais comment ajouter les autre label dans ce code?
Je vous remercie d'avance
 

Pièces jointes

Trier par date Trier par votes
Re : Changer la couleur d'un label au survol de la souris

Bonsoir maval,

Peut-être comme cela :

Private Sub Label2_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
'Label1.BackColor = enlever la couleur si label1 survoler et mettre le code couleur voulu
'Label3.BackColor = enlever la couleur si label2 survoler et mettre le code couleur voulu
Label2.BackColor = &HFF&
End Sub

Cougar
 
Vote positif 0 Vote négatif
Re : Changer la couleur d'un label au survol de la souris

bonjour,

Avec module de classe

http://boisgontierjacques.free.fr/fichiers/Formulaire/FormMousemoveLabel.xls

Code: 
Dim Lbl(1 To 4) As New ClasseLabels
Private Sub UserForm_Initialize()
  For i = 1 To 4
   Set Lbl(i).GrLabels = Me("Label" & i)
  Next i
End Sub

Module de classe

Code: 
Public WithEvents GrLabels As Msforms.Label
Private Sub Grlabels_MouseMove(ByVal Lbl As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
  For i = 1 To 4
    GrLabels.Parent("Label" & i).BackColor = 0
  Next
  GrLabels.BackColor = RGB(255, 0, 0)
End Sub

jb
 

Pièces jointes

Dernière édition:
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

P
  • Résolu(e)
Microsoft 365 Dateur Patricktoulon
2 3
Réponses
41
Affichages
705
Piment
P
  • Question Question
Microsoft 365 datepicker dynamique intra userform(frame dynamique)(toute version d'excel )
3 4 5
Réponses
63
Affichages
906
Cousinhub
  • Résolu(e)
XL 2010 [RESOLU]Adapter Module de Classe
2
Réponses
29
Affichages
2 K
cp4
  • Question Question
Autres Petite mise a jour (exceptionnellement pour cp4) du calendar V4.1(OLDVERSION)
2
Réponses
21
Affichages
1 K
patricktoulon
XLS : Evènements souris 'click' sur la grille & astuces
Réponses
3
Affichages
163
Lu76Fer
H
  • Question Question
XL 2013 Evènement "MouseMove" dans une module de classe pour plusieurs userform
Réponses
6
Affichages
901
patricktoulon
Y
  • Résolu(e)
XL 2019 Besoin d'aide "Erreur d'execution '424' : Objects requis"
Réponses
2
Affichages
485
YAP32
Y
B
  • Résolu(e)
Microsoft 365 affecter des valeurs dans un tableau de noms de variable
Réponses
4
Affichages
843
bérylion
B
E
  • Résolu(e)
Microsoft 365 Couleur Police sur grand nombre de cellules
2
Réponses
22
Affichages
1 K
TooFatBoy
C
  • Question Question
XL 2013 baisser le sons progressivement sur Windows media player VBA
Réponses
5
Affichages
925
Jacky67
  • Résolu(e)
XL 2010 Masque de saisie textbox Téléphone Public
Réponses
8
Affichages
837
cathodique
  • Résolu(e)
XL 2016 Label itération
Réponses
3
Affichages
524
marg55
Génération de QR Codes
Réponses
5
Affichages
1 K
mromain
  • Question Question
XL 2016 Calculer la position sur l'écran d'une position sur la grille (XL 2003)
2
Réponses
27
Affichages
4 K
Nicolas JACQUIN
  • Suggestion Suggestion
Texte Définir les propriétés d'une cellule ou d'un Range (couleurs, fonte, ..., valeur) dans une formule
Réponses
0
Affichages
1 K
Dudu2
  • Résolu(e)
XL 2016 VBA - Comment activer un UserForm vbModeless
Réponses
3
Affichages
1 K
Dudu2
F
  • Résolu(e)
Microsoft 365 Textbox en mode False ou True survol curseur sur un bouton.
Réponses
8
Affichages
1 K
farid
F
B
  • Question Question
XL 2019 Agrandir le Fenêtre et la taille de la police même changer la couleur d'un Messagebox
Réponses
6
Affichages
1 K
bauerjackob
B
L
  • Question Question
empêcher le clic droit de la souris/l'affichage du menu contextuel dans Excel
Réponses
2
Affichages
953
Lorenzini
L
L
  • Résolu(e)
XL 2019 Formulaire Excel - TxtBox avec couleur de la celle associée
Réponses
4
Affichages
684
Lindsay_RBD
L
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…