Bien-sûr.Est-t-il possible d'utiliser cette procédure avec des objets sur la feuille, checkbox par exemple ?
Option Explicit
Public WithEvents LeCheckBox As msforms.CheckBox
Private Sub LeCheckBox_Click()
MsgBox "le checkbox " & LeCheckBox.Name & " a été cliqué et a la valeur " & CStr(LeCheckBox.Value)
End Sub
Option Explicit
Private MesCheckBoxes() As Classe1
Sub initMesCheckBoxes()
Dim obj
Dim i As Integer
Erase MesCheckBoxes
For Each obj In Me.OLEObjects
If Left(obj.Name, 8) = "CheckBox" Then
ReDim Preserve MesCheckBoxes(0 To i)
Set MesCheckBoxes(i) = New Classe1
Set MesCheckBoxes(i).LeCheckBox = obj.Object
i = i + 1
End If
Next obj
End Sub
qui est ma préférenceIf TypeOf obj.Object Is MSForms.CheckBox Then
Je comprend bien ta position, sauf que je n'ai trouvé nulle part d'où ma question.Je suis grognon, mais pas méchant