eviter une repetition de code

bonjour a tous

dans un formulaire, j'ai 10 box qui porte le nom :
nom1, nom2, etc jusqu'à nom10

lors de l'iinitialisation du formulaire, je met ce code

Code:

---

1 2 3 4

nom1.RowSource = "source!n2:n" & Range("source!n65536").End(xlUp).Row nom1.MatchEntry = fmMatchEntryComplete ' permet d'ecrire les nom dans une zone de liste deroulante nom1.MatchRequired = True 'pour forcer une saisie correct

---

existe-t-il un moyen de ne pas repeter 10 fois ce code ?

Bonjour,

Tu peux boucler sur les combobox

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Dim obj As Object   For Each obj In Me.OLEObjects   If TypeOf obj.Object Is MSForms.ComboBox Then obj.RowSource = "source!n2:n" & Range("source!n65536").End(xlUp).Row obj.MatchEntry = fmMatchEntryComplete ' permet d'ecrire les nom dans une zone de liste deroulante obj.MatchRequired = True 'pour forcer une saisie correct End If   Next

---

salut,
si tu as d'autres combobox dans ton formulaire, la méthode de jfontaine risque d'être bloquante, essaie avec :

Code:

---

1 2 3 4 5 6

For i = 1 To 10 With Me.Controls("nom" & i) .RowSource = "source!n2:n" & Range("source!n65536").End(xlUp).Row .MatchEntry = fmMatchEntryComplete ' permet d'ecrire les nom dans une zone de liste deroulante .MatchRequired = True 'pour forcer une saisie correct End With

---

merci à vous deux

la methode de jpcheck est impecable

effectivement j'ai plusieurs combobox, donc je securise

merci