Problème Erreur 70

j'ai un problème dans le code vba

Svp Quelqu'un peut-il m'aider

le problème dans le userform 2

Bonjour,

La listbox a déjà un paramètre "RowSource" dans ses propriétés > premier bogue, car ensuite tu tentes de l'alimenter via le code = conflit.

Ensuite, tu utilises une variable "NbCol" qui semble avoir la valeur de 11, ce qui semble poser problème. Si tu diminues la valeur de "NbCol", ça passe. Il faut donc s'interroger sur ce bout-là aussi ...

Sub LabelsTextBox()
   For c = 1 To NbCol         ' <<< Ici le bogue
      Me("textbox" & c).Width = [Trades].Columns(c).Width * 1.3
      tmp = Range(NomTableau).Offset(-1).Item(1, c)
      Me("label" & c).Caption = tmp
      lg = Len(tmp): If Len(tmp) > 11 Then lg = 11
      Me("label" & c).Width = lg * 6
   Next
End Sub

ric