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.................................
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.