programmation VBA

[inviteda9e6a4a]

Je vous en supplie aidez moi à finir un projet info de programmation VBA, programmation de base mais tout de même trop difficile pour moi!! Donc voilà je suis bien embarassée car je dois le rendre pour lundi!!!!
Si quelqu'un a la gentillesse de bien vouloir m'aider, contactez moi pour que je vous envoie le sujet en question et mon travail qui ne marche pas!....
Merci 1000 fois....

Modification du titre pour le rendre plus explicite. croyez vous vraiment qu'avec un titre pareil cela va inciter les internautes a vous repondre plus vite? Ne croyez vous pas qu'avec un titre plus explicite vous attirerez au contraire ceux qui sotn capables de repondre? a mediter...
Yoyo
Responsable du forum
-----

[invite84f7e699]

Je crois que tu reves là.
Dejà si on t'as demandé de faire un projet c'est que tu dois pouvoir le faire.
Sinon on va pas te faire ton boulot faut pas abuser.
Si t'as un problème particulier tu postes un bout de code et apres on voit ce qu'on peut faire.

[inviteda9e6a4a]

Non parce que je ne comprends pas ce qui ne marche pas. Alors est-ce que tu peux me dire si cette procédure a l'air normale ou si c'est là que le problème réside??

Private Sub cmd_actua_ep_Click()
Dim i As Integer

i = 2

Do While Sheets("Epreuves").Cells(i, 1).Value <> ""
lst_num_ep.AddItem Sheets("Epreuves").Cells(i, 1).Value
lst_nom_ep.AddItem Sheets("Epreuves").Cells(i, 2).Value
lst_portd_ep.AddItem Sheets("Epreuves").Cells(i, 3).Value
lst_porta_ep.AddItem Sheets("Epreuves").Cells(i, 4).Value
lst_date_ep.AddItem Sheets("Epreuves").Cells(i, 5).Value
Loop

'cmd_actua_ep.Enabled = False

[invite84f7e699]

Utilises la balise code ça sera plus lisible.

[A voir en vidéo sur Futura]

[inviteda9e6a4a]

[code:1:00ba9f5219]Private Sub cmd_actua_ep_Click()
Dim i As Integer

i = 2

Do While Sheets("Epreuves&quot ;).Cells(i, 1).Value <> ""
lst_num_ep.AddItem Sheets("Epreuves&quot ;).Cells(i, 1).Value
lst_nom_ep.AddItem Sheets("Epreuves&quot ;).Cells(i, 2).Value
lst_portd_ep.AddItem Sheets("Epreuves&quot ;).Cells(i, 3).Value
lst_porta_ep.AddItem Sheets("Epreuves&quot ;).Cells(i, 4).Value
lst_date_ep.AddItem Sheets("Epreuves&quot ;).Cells(i, 5).Value
Loop

'cmd_actua_ep.Enabled = False[/code:1:00ba9f5219][/code]