Discussion :

[moilou2]

Bonjour, je voudrais savoir quelle procédure utiliser pour gérer l'évenement click de l'ensemble des labels d'une feuille Excel.

Je veux en fait avoir une procédure, qui quand je clic sur n'importe quel label de ma feuille m'ouvre un UserForm et me met dans une variable public le caption du label sur lequel j'ai cliqué!


[EDIT]

J'ai mis un petit fichier si certains ne voient pas ce que je veux faire.

[casefayere]

Bonjour,

Pour ce que j'ai compris, tu mets :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

public i as string

dans ton module1 qui apparemment est vide, pour l'instant, et pour chaque label

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Private Sub Label1_Click() 'label1 ou 2 ou 3
i = Label1.Caption
MsgBox i 'pour vérifier, tu pourras enlever après
UserForm1.Show
 
End Sub

[moilou2]

Re, j'ai mis:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

public i as string

mais je ne sais pas si cela s'utilise comme cela.

Si tu veux : J'ai des labels sur une feuille, mais imaginons que je peux en avoir dans plusieurs feuilles. Je peux en ajouter autant que je veux ou en retirer autant que je veux.

Ce que je veux faire:

Je voudrais avoir une procédure qui me permette d'executer un code sur clic de n'importe quel label. Après clic sur un label x:

-Je veux récupérer dans une variable i = au caption du label x
-Ouvir un formulaire qui est en fait un UserForm avec 3 boutons
-Et en fonction de n'importe quel bouton 1, 2 ou 3 sur lequel je vais cliquer je veux pouvoir récupérer ma variable i pour effectuer des tests. C'est pourquoi je l'avais mis en public, mais la procédure, je veux quelque chose de général. C'est à dire que à la place de:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Sub Label1_click()
 
Dim i as integer
 
i=Label1.caption
Userform1.show
 
end sub

Je veux:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

PUBLIC i as integer

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Sub NimporteQuelLabelDeMaFeuille_click()
 
i=LeCaptionDuLabelSurLequelJaiCliqué
UserForm1.show
 
end sub

Merci

[casefayere]

j'ai cherché et n'ai pas trouvé un code qui permette de renvoyer le nom du label actif, mais si tu nommes tes labels "label1", "label2", il doit y avoir un moyen de contourner le problème, à moins que tu ne trouves.......

Bonne recherche

[laetitia]

bonjour moilou2 casefayere le forum je crois que la tu peus passer par un module de classe j insiste un peu vu les anciens posts mais c est une solution viable

[laetitia]

re le fil le forum bah!! je vais etre gentille je t es fait un petit exemple a adapter
attention chaque fois que tu ajoute un label lance la macro Initialisation
autrement regarde bien le code dans thisworkbook
j envoi l info dans une msgbox a adapter ta variable

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Private Sub Workbook_Open()
Initialisation
End Sub
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Initialisation
End Sub

macro dans module

Option Explicit

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Public Buttons() As New Classe1
Public ButtonCount As Byte
Sub Initialisation()
    Dim Obj As OLEObject, Ws As Worksheet
     ButtonCount = 0
        For Each Obj In ActiveSheet.OLEObjects
        If TypeOf Obj.Object Is MSForms.Label Then
                ButtonCount = ButtonCount + 1
                ReDim Preserve Buttons(1 To ButtonCount)
                Set Buttons(ButtonCount).ButtonGroup = Obj.Object
        End If
    Next Obj
    End Sub

code module de classe

Option Explicit

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Public WithEvents ButtonGroup As MSForms.Label
Private Sub ButtonGroup_Click()
UserForm1.Show
MsgBox ButtonGroup.Caption
End Sub

je peus pas envoyer de zip histoire de quota moi pas comprendre si quelqu un as une idee!!!!!!!!!!!!!!!!!!!!!!!!!!!

[moilou2]

Re, laetitia.

Bon nikel sa marche.

Je vais essayé maintenant de récupérer mon caption dans une variable.

Sa je pense que je vais y arriver, mais comment réutiliser cette variable, si je veux la récupérer ensuite dans le code des boutons sur lequels je vais cliquer dans mes UserForm?