Incrémentation automatique userform.label.name

Onjour à tous,

J'ai un userform avec plus de 200 labels auxquels j'aimerais donner un nom spécifique & i (integer). Est-il possible d'incrémenter automatiquement les noms ou faut-il le faire manuellement?

Userform dans le fichier joint.

Merci beaucoup.

Dams

bonjour,

si j'ai bien compris ce que tu cherches à faire

tu peux donner un nom qui apparait sur tes labels au moment de l'initialisation de ton userform, ces noms apparaîtront lorsque l'userform sera affiché.

Private Sub UserForm_Initialize()
For i = 1 To 200
Controls("emplacement" & i).Caption = "emplacement " & i
Next i
End Sub

hello h2so4,

déjà, merci pour ton autre réponse d'il y à 4-5 ans (t'ai envoyé un mail).

En fait il ne s'agit pas du caption mais bien du name. Pour le moment ceux-ci s'appellent Label1, Label2,... mais je souhaite les renommer en function de la colonne dans laquelle ils se trouvent. c'est plus clair?

bonsoir,

un essai

Sub aargh()
    colonne = 6    ' position 1ere colonne des labels à renommer
   k = 1
    With ThisWorkbook.VBProject.VBComponents("entree_march").designer
        For i = 1 To 200
        On Error GoTo terreur1
            With .Controls("Emplacement" & i)
                On Error GoTo 0
                If .Left = colonne Then
                    .Name = "position" & k
                    k = k + 1
                End If
            End With
ici1:
        Next i

    colonne = 324 ' position 2eme colonne des labels à renommer

        For i = 1 To 200
        On Error GoTo terreur2
            With .Controls("Emplacement" & i)
                On Error GoTo 0
                If .Left = colonne Then
                    .Name = "position" & k
                    k = k + 1
                End If
            End With
ici2:
        Next i
    End With

    Exit Sub
terreur1:
    Resume ici1
terreur2:
   Resume ici2
End Sub