Déclaration paramètres de procèdures (combobox)

Question

Bonjour,


Pourrait-on me dire comment faire en sorte que feuille qui est pr&#233;sent en gras dans le code ci-apr&#232;s prenne la meme valeur que le param&#232;tre feuille qui est un param&#232;tre donn&#233;e lors d'un appel de proc&#232;dure ?


A noter que c'est le code suivant qui est mauvais :frm_choixenergie.cbx_feuille
.AddItem ThisWorkbook.Worksheets(feuille).Range(colonne_cellule & i)


A titre d'exemple, j'ai une feuille qui s'appelle Toto et je voudrais qu'&#224; l'appel de la proc&#232;dure remplir_cbx que ma liste d&#233;roulante cbx_Toto soit remplie.


 


Public Sub remplir_cbx(ByRef feuille As String, ByRef colonne_cellule As String)


Dim i As Integer




i =  2


 


'Boucle afin de remplir les champs d'une liste d&#233;roulante


Do While ThisWorkbook.Worksheets(feuille).Range(colonne_cellule & i) <> ""


frm_choixenergie.cbx_ feuille
 .AddItem ThisWorkbook.Worksheets(feuille).Range(colonne_cellule & i)


i  = i + 1


Loop

End sub

Eijih

K_SoZe · Answer

Bonjour,



Il faut remplacer feuille par une variable string et faire une boucle sur tes sheets.





dim i as integer

dim x as integer

dim feuille as string



x =  1

i = 2





Do Until x = worksheets(x).count



    feuille = worksheets(x).name



    Do While ThisWorkbook.Worksheets(x).Range(colonne_cellule & i) <> ""



     
frm_choixenergie.cbx_ " & feuille  & ".AddItem ThisWorkbook.Worksheets(feuille).Range(colonne_cellule & i)



        i  = i + 1



    Loop



    x = x + 1



Loop



J'esp&#232;re avoir pu t'aider, si c le cas n'oublie pas d'accepter la r&#233;ponse merci 





        



    







    





K. SZe

Eijih · Answer

Pour la ligne de code ci-apr&#232;s ca m'ecrit "Erreur de compilation. Membre de m&#233;thode ou de donn&#233;es introuvable."

frm_choixenergie.cbx_feuille.AddItem ThisWorkbook.Worksheets(feuille).Range(colonne_cellule & i)
    i = i + 1

Pour la tienne ca me met : "Erreur de compilation.  Attendu : identificateur ou expression entre crochets

frm_choixenergie.cbx_" & feuille & ".AddItem ThisWorkbook.Worksheets(feuille).Range(colonne_cellule & i)

J'ai d&#233;j&#224; d&#233;clar&#233; les variables en param&#232;tres mais je pense que le probl&#232;me vient du fait que je mette une variable en plein milieu. C'est-&#224;-dire juste apr&#232;s le userform et avant le additem

frm_choixenergie.cbx_feuille
.AddItem

Je ne pense que la concat&#233;nation que tu m'as montr&#233; soit vraiment correcte (je me trompe peut-&#234;tre : p ) en tout cas ca ne marche pas : ).
Merci quand m&#234;me pour l'aide:). Si jamais quelqu'un a une id&#233;e, je suis prenneur :p.

Eijih

K_SoZe · Answer

Re bonjour,



il me semble que je me sois tromp&#233;e aussi dans cette ligne :



frm_choixenergie.cbx_" & feuille & ".AddItem ThisWorkbook.Worksheets(feuille).Range(colonne_cellule & i)



ce serait plutot




frm_choixenergie.cbx_(" & feuille & ").AddItem ThisWorkbook.Worksheets(x).Range(colonne_cellule & i)



pour la concat&#233;nation, g ajout&#233; des parenth&#232;ses. J'esp&#232;re que &#231;a va
fonctionner. au pire si tu veux tu peux m'envoyer ton fichier et je
regarderai.


K. SZe

Déclaration paramètres de procèdures (combobox)

3 réponses

Discussions similaires