Cliquer glisser et relacher Label

Benoist28200

XLDnaute Nouveau
Bonjour le forum,

J'ai plusieurs labels dans un userform

Est-il possible de : -quand je clic sur un "label" celui se colorie et que si je glisse sur plusieurs "labels" , ceux-ci se colorie aussi jusqu'au relâchement de la souris.

Merci.
 

Pièces jointes

  • LABEL.png
    LABEL.png
    102.4 KB · Affichages: 30

Staple1600

XLDnaute Barbatruc
Bonsoir le fil, le forum

@Benoist28200 [Bienvenue sur le forum]
Les photos sont faites pour rester dans les albums photos.
Elles sont insensibles aux macros et donc ne servent à rien.

Par contre joindre un fichier Excel en guise d'exemple, là c'est une autre histoire ;)
(C'est d'ailleurs ce que conseille la charte du forum...encore faut-il l'avoir lue ?)
 

Benoist28200

XLDnaute Nouveau
Bonsoir le fil, le forum

@Benoist28200 [Bienvenue sur le forum]
Les photos sont faites pour rester dans les albums photos.
Elles sont insensibles aux macros et donc ne servent à rien.

Par contre joindre un fichier Excel en guise d'exemple, là c'est une autre histoire ;)
(C'est d'ailleurs ce que conseille la charte du forum...encore faut-il l'avoir lue ?)
 

Pièces jointes

  • Labels.xlsm
    15.5 KB · Affichages: 28

Staple1600

XLDnaute Barbatruc
Re,

Sans plus d'explications, ni détails, vois ce que cela t'inspire.
VB:
Private Sub Label1_Click()
Label1.BackColor = &HFF&
End Sub
Private Sub Label2_Click()
Label2.BackColor = &HFF&
End Sub
Private Sub Label3_Click()
Label3.BackColor = &HFF&
End Sub
Private Sub Label4_Click()
Label4.BackColor = &HFF&
End Sub
Private Sub Label5_Click()
Label5.BackColor = &HFF&
End Sub
Private Sub Label6_Click()
Label6.BackColor = &HFF&
End Sub
Private Sub Label7_Click()
Label7.BackColor = &HFF&
End Sub
Private Sub Label8_Click()
Label8.BackColor = &HFF&
End Sub
Private Sub UserForm_Initialize()
Dim c As Control
For Each c In Me.Controls
c.BackColor = &HFFFFFF
Next
End Sub
 

Benoist28200

XLDnaute Nouveau
Re,

Ce que je recherche à faire ressemble à ça, mais je souhaiterai que quand je clic sur un label et que je glisse sur d'autres, les labels survolés changent aussi de couleur. (en gros se serait sélectionner des labels comme on sélectionnerait des cellules).

Merci
 

Staple1600

XLDnaute Barbatruc

Lone-wolf

XLDnaute Barbatruc
Bonsoir tout le monde :)

Voici un simple module de classe, juste pour changer la couleur sur chaque label.

Lbl(1 To 64) et for k = 1 to 64 à modifier selon le nombre de labels. Clique sur l'un d'eux pour le mettre en rouge; reclique pour le remettre en blanc.
 

Pièces jointes

  • Labels.xlsm
    22.2 KB · Affichages: 25
Dernière édition:

Staple1600

XLDnaute Barbatruc
Re

@Lone-wolf
Personnellement, si j'étais moi, je m’attellerais déjà à exploiter les ressources existantes sur XLD
(cf second lien du message#8)

Pour répondre à la supputation* du demandeur.
Bonjour Staple1600
(sauf si meilleur solution) [*:la supputation]
Tu maîtrises les modules de classe?
Non mais je suis près à apprendre. [donc on commence par apprendre le *ba-à-ba ;)]
Cordialement

Il est pour le moins incongru de commencer le VBA par les modules de classes, avant le *ba-à-ba

Du tabouret où je suis assis j'entrevois déjà au loin l'usine à gaz vers lequel on commence à tendre alors qu'on a N plannings déjà prêts à l'emploi dans le section Ressources du forum...
 
Dernière édition:

Lone-wolf

XLDnaute Barbatruc
Re

Je sais que tu as raison. Et c'est comme celà que moi j'ai commencé. Mais sais juste pour qu'il aie une idée de ce qu'est un Module de classe. Moi déjà avec les macros j'ai du mal, imagine avec un module.
 
Dernière édition:
Haut Bas