Cliquer glisser et relacher Label

[Benoist28200]

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.

 

[Staple1600]

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]

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 ?)

 

[Staple1600]

Re,

Sans plus d'explications, ni détails, vois ce que cela t'inspire.

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]

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]

Re

Sans plus d'explications, ni détails,

Quel contexte?
Quelle utilité?
Tu maîtrises les modules de classe?

 

[Benoist28200]

Re


Quel contexte?
Quelle utilité?
Tu maîtrises les modules de classe?

Bonjour Staple1600

Quel contexte?
Je souhaite faire un planning perpétuel dans un userform.

Quelle utilité?
Je souhaite utiliser les " labels " comme des cellules . (sauf si meilleur solution)

Tu maîtrises les modules de classe?
Non mais je suis près à apprendre.

Cordialement

 

[Staple1600]

Bonjour le fil, le forum

(sauf si meilleur solution)

Bah basiquement, je dirais qu'Excel est un tableur
Et que par voie de conséquence, on a des cellules sur des feuilles dans lesquelles on peut mettre des formules
des formats, des bordures etc...
Et puisque je suis adepte de ce principe, je te conseille d'en prendre note 😉

Je te suggère également de faire un tour ici
https://www.excel-downloads.com/resources/categories/plannings-et-calendriers.26/

 

[Benoist28200]

Techniquement j'avais compris se qu'était Excel, je cherchais juste le moyen de faire via un userform.

 

[Staple1600]

Re

Tu as cliqué sur le lien (sur le mot principe)?
Si oui tu comprendras mieux le sens de mon précédent message 😉

 

[Lone-wolf]

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.

 

[Staple1600]

Bonsoir le fil, le forum

@Lone-wolf (bonsoir)
Réfractaire au K.I.S.S toi aussi ? 😉

 

[Lone-wolf]

Bonsoir Jean Marie 🙂

@Staple1600 : nooooon voyons 🙄, parcontre j'aimais bien le groupe. 😉

Tu maîtrises les modules de classe? Non mais je suis près à apprendre.

C'est juste une petite démo pour notre ami.

 

[Staple1600]

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...

 

[Lone-wolf]

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.