Boucle sur Combobox

[apdf]

Bonjour,

J'ai USF pour inscrire des adhérents qui fonctionne très bien, mais j'aimerais lui faire une petite modification
J'ai 100 TextBox et 100 Combobox à chaque combobox il y a la même info "Nord", "Sud", "Est", "Ouest" comment peut on faire une boucle pour éviter de remettre 100 fois le même code ?

Merci d'avance pour votre aide.

 

[Pierrot93]

Re : Boucle sur Combobox

Re,

J'ai 100 TextBox et 100 Combobox à chaque combobox il y a la même info "Nord", "Sud", "Est", "Ouest"

bah si 100 combo avec les mêmes infos, peut être revoir l'organisation de ton projet..... sinon comme précisé tout à l'heure, une petite recherche sur les modules de classe....

 

[apdf]

Re : Boucle sur Combobox

Re Pierrot,

Pas évidant de trouver une réponse....

 

[Pierrot93]

Re : Boucle sur Combobox

Re,

tu peux toujours "boucler" ainsi :

Dim Ctrl As Control
For Each Ctrl In Me.Controls
    If TypeName(Ctrl) = "ComboBox" Then
        'tes instructions
    End If
Next Ctrl

mais bon, sans plus de détails....

 

[apdf]

Re : Boucle sur Combobox

Re,

Peut-être comm ceci?

Dim Ctrl As Control
For Each Ctrl In Me.Controls
    If TypeName(Ctrl) = "ComboBox" Then
    End If
    For i = 1 To 100
  
    With Controls("ComboBox" & Ctrl)

        .AddItem "Nord"
        .AddItem "Sud"
        .AddItem "Esté"
        .AddItem "Ouest"
        End With

    End With
 
  
Next i

 

[Pierrot93]

Re : Boucle sur Combobox

Re,

essaye ceci, pour tous les combo de ton usf :

Dim Ctrl As Control
For Each Ctrl In Me.Controls
    If TypeName(Ctrl) = "ComboBox" Then
        Ctrl.List = Array("Nord", "Sud", "Est", "Ouest")
    End If
Next Ctrl

 

[apdf]

Re : Boucle sur Combobox

Re,

Oui Pierrot sa marche nickel et je te remercie, mais le problème est que le Combobox2 faudrait pas qu'il en fasse partie y a t-il moyen de lui dire de le programmer?

Private Sub UserForm_Initialize()

  'Nbre de joueur
 With ComboBox2
    For i = 1 To 100
        .AddItem i
    Next i
End With


Dim Ctrl As Control
For Each Ctrl In Me.Controls
    If TypeName(Ctrl) = "ComboBox" Then
        Ctrl.List = Array("Nord", "Sud", "Est", "Ouest")
    End If
Next Ctrl


End Sub

Merci d'avance

 

[Pierrot93]

Re : Boucle sur Combobox

Re,

comme ceci :

Dim Ctrl As Control
For Each Ctrl In Me.Controls
    If TypeName(Ctrl) = "ComboBox" Then
        If Ctrl.Name <> "Combobox2" Then Ctrl.List = Array("Nord", "Sud", "Est", "Ouest")
    End If
Next Ctrl

 

[apdf]

Re : Boucle sur Combobox

Re,

Non dans le Combobox2 on a toujours ceci ("Nord", "Sud", "Est", "Ouest")

 

[Pierrot93]

Re : Boucle sur Combobox

Re,

attention sensible à la case, il y a un B minuscule au lieu d'un B majuscule :

Dim Ctrl As Control
For Each Ctrl In Me.Controls
    If TypeName(Ctrl) = "ComboBox" Then
        If Ctrl.Name <> "ComboBox2" Then Ctrl.List = Array("Nord", "Sud", "Est", "Ouest")
    End If
Next Ctrl

 

[apdf]

Re : Boucle sur Combobox

re,

Je te remercie infiniment

Bonne journée