UserForm + combobox

[afchartier]

bonjour le forum,

je souhaiterai ajouter à mon tableau des combox pour assurer une certaine uniformité dans le tableau.

le principe est que j'utilise 1 userform pour renseigner une base de données, et 1 autre pour les modifier.

et je cherche à remplir les combobox avec la colonne E de la page "Codes" (voir fichier joint)

help please

et un grands merci d'avance

a+

Alain

 

[BERRACHED said]

Re : UserForm + combobox

Salut,

tu ajoute ce code:

Private Sub UserForm_Initialize()
Dim Boucle As Integer
    Dim Ligne As Integer

    With Feuil2
        Ligne = .Range("E65536").End(xlUp).Row
        For Boucle = 2 To Ligne
            ComboBox1.AddItem .Range("E" & Boucle)
        Next Boucle
    End With

Cordialement

 

[koyot3]

Re : UserForm + combobox

edit : grillé lol

salut

'

ouverture du form, chargement de la liste des composants
Private Sub UserForm_Activate()

Dim i As Integer        
Dim valeur As String
     
     i = 95 'ligne de départ
        Do Until IsEmpty(Cells(i, 3).Value)
            valeur = Cells(i, 3).Value
            Combo.AddItem (valeur) 'ajoute la valeur à la liste
            i = i + 1
        Loop
        
        Combo.ListIndex = 0 'initialise la liste sur le premier item de la liste
        
End Sub

en modifiant ce code, tu devrais résussir à faire ce que tu souhaites

 

[afchartier]

Re : UserForm + combobox

c'est parfait, j'ai utilisé le premier code (excel 2003 PC), mais pas testé le second (excel 2004 mac).

un grand merci pour la réactivité, l'éfficacité et compétences !!