Discussion :

[chubak62]

Bonjour la communauté,

Je reviens vers vous pour un soucvis dont je ne trouve malheueusement pas de solution...

J'ai creer une userform sur excel 2003 dans laquelle se trouve des combobox mais un souvis apparait des son utilisation sur excel97.

Voici le code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private sub Userform_initialize
 
Me.combobox1.rowsource= "ab3:" &"ab" &[ab65000].end(xlup).row

Je repete ce code pour chaque cb de la userform en readaptant les plages et les colonnes.

Mais ce message d'erreur apparait:
Erreur de compilation pojet ou bibliotheque introuvable.

Pourriez vous m'eclairer sur ce probleme?

Merci

Ps: Je suis sur internet avec mon telephone d oú quelques soucis de majuscule et une synthese du code au maximim ainsi que l impossibilité de mettre des balises... Desole.

Yoann.

[casefayere]

bonjour le forum, chubak62,

essaies comme ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Private Sub UserForm_Initialize()
Dim nbl As Long
With Sheets("feuil1")
    nbl = .Range("ab" & .Rows.Count).End(xlUp).Row
    MsgBox nbl
    Me.ComboBox1.RowSource = "ab3:ab" & nbl
End With
End Sub

a +

[chubak62]

Merci bcp. Ce code correspond exactement au principe dela combobox. J'ai juste retiré la msgbox.

Merci encore.

A bientôt.

Yoann

[casefayere]

j'avais mis la msgbox pour controle

bonne journée