Définir des labels comme plage

Bonjour à vous tous,

je viens vers vous dans l'espoir de résoudre un problème que je rencontre.

Est-il possible de définir une série de "labels" comme étant une plage (ex. Label1 à Label10), comme nous le ferions avec une série de cellules dans une feuille (ex. Worksheets("Feuil1").Range(Cells(1, 2), Cells(10, 2))?

Merci.

Bonjour,

Non, tu ne peux pas mais par contre, tu peux utiliser un tableau dont voici un petit exemple en attendant plus d'explications :

Sub Test()

    Dim Tbl() As MSForms.Label
    Dim Ctrl As OLEObject
    Dim I As Integer

    For Each Ctrl In ActiveSheet.OLEObjects

        If TypeName(Ctrl.Object) = "Label" Then

            I = I + 1: ReDim Preserve Tbl(1 To I)
            Set Tbl(I) = Ctrl.Object

        End If

    Next Ctrl

    If Not (Not Tbl) Then

        'ici, tu peux choisir les index
        For I = 1 To UBound(Tbl)

            Debug.Print "Nom du contrôle : "; Tbl(I).Name; " Caption du contrôle : "; Tbl(I).Caption

        Next I

    End If

End Sub