[Toutes versions] Récupérer valeur du label cliqué [Résolu]

[AidezMoiSvp]

Bonjour,

Comment récupérer la valeur d'un label sur lequel on a cliqué ?

Pour l'instant je fonctionne avec ça :

Code :

msgbox me.label1

Mais je suis obligé de recopier le code dans chaque label et c'est chiant.

Mes labels sont numérotés de 1 à 30.

Merci

[patricktoulon]

bonjour

il va te falloir utiliser un classe gérant les évènement des controls

dans cette classe tu intégrera tout tes controls labels

ainsi la classe se substituera au évènement classique dans le module du userform

regarde dans ma signature en bas de mes messages il y a le lien sur l'effet mouse in out sur les boutons dans un userform
tu pourrais t'en inspirer

au plaisir

[patricktoulon]

maintenant en faisant une classe comme ceci:

dans un module standard

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Option Explicit
Public labelo() As New EFFET_label
Public ctrls As Variant    'variable qui va servir a memoriser tout les bouton
Public maform As Object    'variable qui va servir a memoriser l'userform
Public e As Long
Sub integration_des_labels_dans_la_classe()
    For Each ctrls In maform.Controls
        'on teste si le type de control est un bouton
        If TypeName(ctrls) = "Label" Then
            e = e + 1    'on incremente la variablee
            'on regroupe tout les bouton dans la classe
            ReDim Preserve labelo(1 To e)
            Set labelo(e).GroupeLabel = ctrls
        End If
    Next
End Sub

maintenant dans un module classe nommé EFFET_label

Code :

1
2
3
4
Public WithEvents GroupeLabel As MSForms.Label
Public Sub GroupeLabel_Click()
MsgBox GroupeLabel.Caption
End Sub

maintenant dans le activate de l'userform

Code :

1
2
3
4
Private Sub UserForm_Activate()
Set maform = Me
integration_des_labels_dans_la_classe
End Sub

maintenant a chaque click sur un label il aura le msgbox


au plaisir

[AidezMoiSvp]

Service de lux avec tous les codes fournis.

Merci beaucoup.
Répond parfaitement à ma demande.

[patricktoulon]

bonjour ya pas de quoi

seulement j'ose espéré que tu te contentera pas de copier coller

je l'ai fait le plus simple possible pour que tu puisse en comprendre le fonctionnement de base

au plaisir

[AidezMoiSvp]

C'est ce que je faisais au début dans l'empressement. Mais maintenant j'essaie de comprendre C'est mieux pour avancer !

Je vais essayer de la comprendre et de le modifier pour y intégrer d'autres éléments.

Encore merci.

[patricktoulon]

re

quel autre éléments veux tu ajouter

si tu parle d'autre type de controls il te suffit de répéter l'opération en changeant le type et les noms(variables)voir meme dans le meme modules

si tu a besoins d'aide n'hésite pas
au plaisir

[AidezMoiSvp]

Bonjour,

J'ai regardé un peu plus en détail le code.
Je l'ai modifié pour que quand on clique sur les boutons de USF1, USF2 s'affiche avec des valeurs différentes dans ses labels. Sans doute facile pour vous mais pour moi... Cela m'a permis de mieux appréhender le code.

Par contre, je n'arrive pas à boucler que sur certains boutons de USF1.
En effet, tous mes boutons génèrent USF2.

je voudrais que seuls les boutons 2 à 8 génèrent USF2.

Comment faire ?

Je comprends la logique des modules de classe mais j'avoue que le code du module standard m'interroge notamment cette partie

Code :

1
2
3
4
            e = e + 1    'on incremente la variablee
            'on regroupe tout les bouton dans la classe
            ReDim Preserve labelo(1 To e)
            Set labelo(e).GroupeLabel = ctrls

Merci

[patricktoulon]

bonjour

dans le module classe et dans la fonction tu met une condit io "if " tout simplement


au plaisir