Erreur chargement combobox

[sevy1]

Bonjour à tous et BONNE ET HEUREUSE ANNEE 2015
J'ai un problème je veux créer une combobox qui prend ses données à partir de la feuille 1. j'ai écris ce bout de code

Private Sub UserForm_Initialize()
Dim derligne, tablo As Long
With Feuil1
derligne = .Range("A" & Rows.Count).End(xlUp).Row
tablo = .Range("A2:A" & derligne)
ComboBox1.List = tablo
End With
End Sub

en exécutant j'ai un message d'erreur incompatibilité de type.
pouvez vous me dire ou se trouve mon erreur?
Merci d'avance

 

[Pierrot93]

Re : Erreur chargement combobox

Bonjour,

pas ouvert ton fichier, mais essaye peut être ainsi :

Dim tablo As Range
Set tablo = .Range("A2:A" & derligne)

bonne journée
@+

 

[bof]

Re : Erreur chargement combobox

Bonjour,
Autre solution :

Private Sub UserForm_Initialize()
Dim derligne, tablo()
With Feuil1
derligne = .Range("A" & Rows.Count).End(xlUp).Row
tablo = Range("A2:A" & derligne)
ComboBox1.List = tablo
End With
End Sub

A+

 

[sevy1]

Re : Erreur chargement combobox

bonjour
J'ai essayé ça ne marche pas

 

[Pierrot93]

Re : Erreur chargement combobox

Re,

quand tu affectes l'objet "range" :

ComboBox1.List = tablo.Value

 

[laetitia90]

Re : Erreur chargement combobox

bonjour tous 🙂🙂🙂

peut être comme cela

 

[sevy1]

Re : Erreur chargement combobox

Bonjour
Merci ça marche. Juste pour mieux comprendre avec mon premier code quand je défini derligne et tablo de type variant ça marche comment expliquer celà

 

[Pierrot93]

Re : Erreur chargement combobox

Re, salut Laetitia🙂

en la matière dans ton premier code, "tableau" était défini comme "long" et non "variant"....

 

[laetitia90]

Re : Erreur chargement combobox

re tous 🙂🙂🙂
c'est la declaration du tablo pas bonne toujours un variant ou string
donc

dim tablo as variant
ou dim tablo()

ou dim tablo simplement

oups j'avais pas vu ta reponse Pierrot 🙂🙂🙂

 

[sevy1]

Re : Erreur chargement combobox

Bonjour
Merci à tous