krystof_ii
XLDnaute Occasionnel
Bonjour à tous :
j'ai créé un userform de la manière suivante :
J'ai créé un module de classe (Classe1) :
J'esperai qu'avec cela, je pourrai lors du clique sur le label en question : retourner la valeur dans une cellule puis fermer ma boite de dialogue.
Mais, rien ne se passe : le clic n'est pas capté par Excel.
Sauriez-vous m'indiquer où j'ai fauté ?
Par avance merci
j'ai créé un userform de la manière suivante :
Private Sub UserForm_Activate()
Dim Etiquette_PT() As New Classe1
Dim Poste_Technique As Control
Dim MaxPosX, PosX, PosY As Integer
Dim i As Integer
' Réactiver le rafraichissement d'écran
Application.ScreenUpdating = True
'Initialisation des positions
PosX = -125
PosY = 15
'CREATION DES COMBOBOX
ReDim Preserve Etiquette_PT(nb_Poste)
For i = 1 To nb_Poste
Set ctrl = Me.Controls.Add("Forms.Label.1")
With ctrl
.Caption = PT(i)
.Left = 10
.Top = PosY + 20
.Width = 200
.Font.Size = 10
.Font.Bold = False
.MousePointer = 10
End With
PosX = 10
PosY = PosY + 20
Set Etiquette_PT(i).C_Etiquette_PT = ctrl 'init du module de classe
Next i
End Sub
J'ai créé un module de classe (Classe1) :
Public WithEvents C_Etiquette_PT As MSForms.Label
Private Sub C_Etiquette_PT_Click()
Sheets("Cahier des Charges - FS").Range("S4") = C_Etiquette_PT.Caption
Unload Me
End Sub
J'esperai qu'avec cela, je pourrai lors du clique sur le label en question : retourner la valeur dans une cellule puis fermer ma boite de dialogue.
Mais, rien ne se passe : le clic n'est pas capté par Excel.
Sauriez-vous m'indiquer où j'ai fauté ?
Par avance merci
Dernière édition: