remplissage combobox via données implémentables

[qoqo]

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 !

 

[Pierrot93]

Re : remplissage combobox via données implémentables

Bonjour,

remplace ceci :

Private Sub entreprise_Initialize()

par cela :

Private Sub UserForm_Initialize()

bon après midi
@+

 

[qoqo]

Re : remplissage combobox via données implémentables

Merci Pierrot,
mais j'ai une erreur d'éxecution 9...

 

[Pierrot93]

Re : remplissage combobox via données implémentables

Re,

mais j'ai une erreur d'éxecution 9...

sur quelle ligne de code ?

 

[Paf]

Re : remplissage combobox via données implémentables

Bonjour à tous

With whorksheets("Entreprises").Select

il faut : With Worksheets("Entreprises") et sans .select

Bonne suite

 

[Paf]

Re : remplissage combobox via données implémentables

Re,

derligne = .Range("A65536").End(x1Up).Row

a priori dans (x1Up) on trouve un 1 (un) . il faut un l (lettre après le k) :(xlUp)

 

[qoqo]

Re : remplissage combobox via données implémentables

je dois t'avouer que je découvre VBA et j'essaie de m'y frotter pour comprendre. Mais je suis largué et des trucs hyper simples me passent 3000 bornes au-dessus.
Je viens de rassembler ces lignes là et j'ai maintenant une erreur 424

Private Sub UserForm_Initialize()




civilité.AddItem "Monsieur"
civilité.AddItem "Madame"
'implémentation de la liste déroulante entreprise


Dim tablo, derligne As Integer

With Worksheets("Entreprises").Select


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


End With
End Sub

 

[Pierrot93]

Re : remplissage combobox via données implémentables

Re,

voir post #6... quand tu signales une erreur, indique nous la ligne concernée, en jaune lors du deboggage...

 

[qoqo]

Re : remplissage combobox via données implémentables

ok pas de soucis pardon. Les lignes concernées sont fléchées


=>Private Sub UserForm_Initialize()


Dim tablo, derligne As Integer
'implémentation de la liste déroulante entreprise

=>With Worksheets("Entreprises")

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

End With
End Sub

 

[Pierrot93]

Re : remplissage combobox via données implémentables

Re,

et le nom de la feuille est strictement identique à celui présent sur l'onglet ??

 

[qoqo]

Re : remplissage combobox via données implémentables

Mon programme semble tourner finalement, je ne sais pas pourquoi ! merci à tous