Pages

XL 2013 remplissage combobox via données implémentables sujet

vendredi 31 janvier 2014




Bonjour,
mon premier poste sur le forum ! Que d'émotion. Mon post est donc hyper basique, mais je débute juste VBA, comme je dois réfléchir sur la BDD de ma boite.
je cherche à remplir ma liste de ma combobox avec une colonne qui changera en fonction des nouveaux ajouts, ici sur un autre onglet qui s'intitule "entreprise"
voici ce que j'ai déjà écris, rien ne se déclenche dans la liste déroulante :

Private Sub entreprise_Initialize()
'implémentation de la liste déroulante entreprise

Dim tablo, derligne As Integer
With whorksheets("Entreprises").Select

derligne = .Range("A65536").End(x1Up).Row
tablo = .Range("A2:A" & derligne)
ComboEnt.List = tablo

End With
End Sub

merci !




Aucun commentaire:

Enregistrer un commentaire