Userform1.Label1 Besoin d'avoir une boucle pour mettre à jour 20 Labels.Caption

Question

J'ai une macro où j'ai besoin de mettre à jour 20 étiquettes en utilisant une boucle pour mettre à jour la gamme a1 à a20 comme légendes d'étiquettes, mais j'obtiens une erreur. Je reçois une erreur parce que j'utilise Label & j. S'il vous plaît proposer une alternative

Sub NameListAllocate() 
k = Range("Q65536").End(xlUp).Row 

For j = 2 To k 
UserForm1.Label&j.Caption = Range("q" & j).Value 
Next 

UserForm1.Show 
End Sub 

Answer 1

UserForm1.Controls("Label" & j).Caption = Range("q" & j).Value