bonsoir a tous

à l'initialisation d'un formulaire, j'ai beaucoup de combobox qui vienne cherchez la meme source de liste.

comme elle commence toutes par "cbo_nom_" la suite étant colis ou noel ou scolaire, etc... et ensuite un numéro de 1 à 10

voici un des code
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
 
For i = 1 To 10
Me.Controls("cbo_nom_colis" & i).RowSource = "source!a2:a" & Range("source!a65536").End(xlUp).Row
     Me.Controls("cbo_nom_colis" & i).MatchEntry = fmMatchEntryComplete ' permet d'ecrire les nom dans une zone de liste deroulante
     Me.Controls("cbo_nom_colis" & i).MatchRequired = True 'pour forcer une saisie correct
Next i
 
For i = 1 To 10
Me.Controls("cbo_nom_noel" & i).RowSource = "source!a2:a" & Range("source!a65536").End(xlUp).Row
     Me.Controls("cbo_nom_noel" & i).MatchEntry = fmMatchEntryComplete ' permet d'ecrire les nom dans une zone de liste deroulante
     Me.Controls("cbo_nom_noel" & i).MatchRequired = True 'pour forcer une saisie correct
Next i
je met ici colis et noel, mais est-il possible de ne créer qu'une fois ce code de manière a ce qu'il soit valable pour toutes les combobox qui débute par "cbo_nom_"