Sub ChercheControls(ByRef vF As Form, ByRef vsNames As String) Dim i As Long Dim o As Object Dim oCbo As ComboBox '# On parcoure chaque controle de la Form vF For Each o In vF.Controls '# Si l'itération courante porte sur un Combobox, on le traite... If TypeOf o Is ComboBox Then Set oCbo = o '# Si le nom du combobox correspond a notre demande... If InStr(1, oCbo.Name, vsNames, vbTextCompare) Then '# On effectue un traitement particulier sur ce contrôle For i = 0 To 40 oCbo.AddItem Str(i) Next i End If End If Next o End Sub
Set ObjCombo = Me.Controls(I).Name
Et peux-tu m'expliquer également ce que tu attends que fasse ton "Return" dans ta fonction ? (alors que je n'y vois aucun GoSub).
If TypeOf Me.Controls(I) Is ComboBox Then GoSub Suite
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionj'ai plus de 300 Combo, galère !
For i = 0 To combototo.Count - 1 For j = 0 To 40 combototo(i).AddItem j Next Next
For Each objCbo In combototo For j = 0 To 40 objCbo.AddItem j Next Next
Set ObjCombo = Me.Controls(I).Name