combox

[laplayast]

Bonjour,

J'ai le code suivant:

Private Sub userform_initialize()
Dim dercell As String
dercell = Range("a3,b3").End(xlDown).Address
cbcombox.RowSource = "a3:b3" & dercell
end sub

et je voudrai qu'il m'affiche la liste des noms des cellules A3 B3 de la feuille"toto";mais je n'arrive pas à le faire afficher dans le combox1.
Est-ce quelqu'un peut me corriger.
Merci à tous

 

[kjin]

Re : combox

Bonsoir,
A quoi sert dercel dans ton cas ?

Private Sub userform_initialize()
cbcombox.AddItem Range("A3")
cbcombox.AddItem Range("B3")
end sub

A+
kjin

 

[laplayast]

Re : combox

Bonsoir,
Dercell va de la cellule A3,à la dernière cellule de la colonne A.
Mais il ne se passe rien dans le combox1,pas d'affichage.
merci de l'aide.

 

[kjin]

Re : combox

Bonsoir,

et je voudrai qu'il m'affiche la liste des noms des cellules A3 B3 de la feuille"toto";mais je n'arrive pas à le faire afficher dans le combox1.

Dercell va de la cellule A3,à la dernière cellule de la colonne A.

Peut-être qu'un fichier exemple nous aiderait à sortir de la brume, toi et moi !
A+
kjin