Cliquer glisser et relacher Label

Staple1600

XLDnaute Barbatruc

• 27 Mars 2018

• #2

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

 

Vote positif 0 Vote négatif

B

Benoist28200

XLDnaute Nouveau

• 27 Mars 2018

• #3

Staple1600 à dit:

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

Cliquez pour agrandir...

 

Pièces jointes

• Labels.xlsm

  15.5 KB · Affichages: 28

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 27 Mars 2018

• #4

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

 

Vote positif 0 Vote négatif

B

Benoist28200

XLDnaute Nouveau

• 27 Mars 2018

• #5

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 27 Mars 2018

• #6

Re

Staple1600 à dit:

Sans plus d'explications, ni détails,

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

B

Benoist28200

XLDnaute Nouveau

• 29 Mars 2018

• #7

Staple1600 à dit:

Re


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

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 29 Mars 2018

• #8

Bonjour le fil, le forum

(sauf si meilleur solution)

Cliquez pour agrandir...

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/

 

Vote positif 0 Vote négatif

B

Benoist28200

XLDnaute Nouveau

• 29 Mars 2018

• #9

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 29 Mars 2018

• #10

Re

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

 

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 29 Mars 2018

• #11

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: 27

Dernière édition: 30 Mars 2018

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 29 Mars 2018

• #12

Bonsoir le fil, le forum

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

 

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 30 Mars 2018

• #13

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.

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 30 Mars 2018

• #14

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.

Benoist28200 à dit:

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

Cliquez pour agrandir...

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: 30 Mars 2018

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 30 Mars 2018

• #15

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: 30 Mars 2018

Vote positif 0 Vote négatif