Complilation de plusieurs macro

Bonjour a tous,

je bug sur une macro qui regroupe plusieurs macro ( je ne sais pas si c'est possible)

j'ai 8 combobox liée a 8 autres combobox.

les 8 premieres font la meme choses ( le remplissage via la feuille "BASE" par le biais de UserForm_Initialize() )

j(ai pu les remplir les 8 avec 2 boucles dans le UserForm_Initialize()

est ce possible de remplir les 8 autres avec une seule macro???? ( ou plutôt réduire

la taille des macros du combobox_change 1 a 8)

merci d'avance pour celui qui me donne une aide

Bonjour

C'est pas clair ton truc....

Tu veux remplir 16 combobox avec un tableau de 10 colonnes (dont 2 vides)

A+ François

Bonjour a tous

Merci fanfan38 pour ta prise en consideration

non, je remplie que 6 colonnes, les autres j'ai du es vider car il y a des infos particulières.

mon problème, c'est que les combobox de 1 a 8 se remplissent normalement.

les combobox de 9 a 16 ons chaque une une privatesub ( ca fonctionne très bien.

ma question est la suivante, y a t il une façons pour alléger cela ( peu être mettre les privatesub dans une boucle!!!

comme je l'ai fait avec les combobox de 1 à 8

Private Sub UserForm_Initialize()
Application.ScreenUpdating = False
col = Sheets("BASE").Range("A" & Rows.Count).End(xlUp).Row
    For i = 2 To col
    For j = 1 To 8
        With Capillaire.Controls("ComboBox" & j)
        .AddItem Sheets("BASE").Cells(i, 1)
        End With
    Next j
    Next i
Application.ScreenUpdating = True
End Sub

Merciiiiiiiiiiiii

Bonsoir,

ci-jointe une proposition

Bonjour a tous

Bonjour thev,

c'est du loud, je ne suis pas encore arrivé ac e point de VBA

merci beaucoup ca fonctionne magnifiquement bien

merci

Bonjour a tous, Bonjour thev,

je reprend mon probleme, malgré le fil cloturé.

le fichier fonctionne tres bien ( en l'ayant intergré dans mon fichier principale)

mais...... il y a toujours un petit mai....

je n'arrive pas a vider les textbox et combox apres validation,

merci pour ton aide

Bonjour,

ci-dessous code pour le vidage :

    Dim ctrl As Control

    For Each ctrl In Me.Controls
        If TypeOf ctrl Is MSForms.ComboBox Or TypeOf ctrl Is MSForms.TextBox Then ctrl = Empty
    Next ctrl

et ajouter une instruction de sortie dans cette procédure :

Private Sub charger_combobox_liée(combobox_sel As Control)
    Dim combobox_liée As Control

    If combobox_sel = Empty Then Exit Sub

    Set combobox_liée = Me.Controls(combobox_sel.Tag)

que puis-je dire

c'est parfait

merciiiiiiiiiiiiiii thev