Discussion :

[bosk1000]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 ?

[jfontaine]

Bonjour,

Tu peux boucler sur les combobox

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Jean-Philippe André]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[bosk1000]

merci à vous deux

la methode de jpcheck est impecable

effectivement j'ai plusieurs combobox, donc je securise

merci