Donnees excel dans combo suite

Description

cette source va chercher des donnees dans une feuille excel et les place dans le combo d une Form VB. Cette source a ete modifie suite a quelques remarques dont je remercie les auteurs.

Source / Exemple :


Private Sub Form_Load()

Dim NumLigne As Integer

Dim ValCell As String

Dim monclasseur As Excel.Workbook
Set monclasseur = Workbooks.Open("c:\test.xls")

Sheets("données").Select
Range("A1").Activate

    Do While Not ActiveCell.Value = ""
    Combo1.AddItem ActiveCell.Value
'on ajoute l element de la cellule active dans combo1

    ActiveCell.Offset(1, 0).Activate
'activecell.offset(1,0)=increment de 1 la ligne de la cell active

    Loop
                                              
Workbooks.Close
    
End Sub

Conclusion :


Suite a differentes remarques j'ai modifie mon code dont voici les lignes.
    • Remerciements à jmlucienvb et à robbynaze **


C'est avec des remarques que l'on avance

http://perso.club-internet.fr/pierronce
c'est l'adresse de mon site.
Soyez indulgent ... je débute.................................

Codes Sources

A voir également

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.