Combo Box

[PLOUC]

Bonjours à tous et à toutes

Comme je n'ai que des satisfactions quand j'interroge le forum je ne peux m'empecher d'y revenir.

Mon probléme est le suivant : dans le fichier joint je dois avoir une erreur d'écriture dans mon code car je n'arrive pas à faire apparaitre dans la combobox1 du USF2 les données qui se trouvent dans les cellules de la colone I de la feuille 'Petits travaux'. Comme le débogueur ne se met pas en 'route' je ne pige pas ou est l'erreur.

Merci de votre aide. [file name=test2_20060515161215.zip size=30776]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/test2_20060515161215.zip[/file]

 

[Nevil]

Bonjour,

Ton probleme est assez rapide a résoudre ..

voila ce qui ne va pas:

Private Sub Userform2_Initialize()
'Dim DL As Integer
DL = Sheets('Petits travaux').Range('i65536').End(xlUp).Row
plagelist = Sheets('Petits travaux').Range('i4:i' & DL).Address
ComboBox1.RowSource = 'Petitstravaux' & plagelist

End Sub


Plus précisement dés la 1ere ligne: il ne faut pas mettre le nom de ton UF qui est userform2 mais simplement Userform_initialize.

Ensuite pour ton ComboBox1.RowSource = 'Petitstravaux' & plagelist

je simplifierais par ComboBox1.RowSource = plagelist

Ce qui donne:

Private Sub Userform_Initialize()
'Dim DL As Integer
DL = Sheets('Petits travaux').Range('i65536').End(xlUp).Row
plagelist = Sheets('Petits travaux').Range('i4:i' & DL).Address

Sheets('Petits travaux').Activate

ComboBox1.RowSource = plagelist

End Sub

Voila, le probleme devrait etre résolu

 

[Nevil]

Nevil écrit:

Bonjour,

Ton probleme est assez rapide a résoudre ..

voila ce qui ne va pas:

Private Sub Userform2_Initialize()
'Dim DL As Integer
DL = Sheets('Petits travaux').Range('i65536').End(xlUp).Row
plagelist = Sheets('Petits travaux').Range('i4:i' & DL).Address
ComboBox1.RowSource = 'Petitstravaux' & plagelist

End Sub


Plus précisement dés la 1ere ligne: il ne faut pas mettre le nom de ton UF qui est userform2 mais simplement Userform_initialize.

Ensuite pour ton ComboBox1.RowSource = 'Petitstravaux' & plagelist

je simplifierais par ComboBox1.RowSource = plagelist

Ce qui donne:

Private Sub Userform_Initialize()
'Dim DL As Integer
DL = Sheets('Petits travaux').Range('i65536').End(xlUp).Row
plagelist = Sheets('Petits travaux').Range('i4:i' & DL).Address

Sheets('Petits travaux').Activate

ComboBox1.RowSource = plagelist

End Sub

Voila, le probleme devrait etre résolu

 

[PLOUC]

Re bonjour

Evidement comme çà cela fonctionne beaucoup mieux.

Un grand merci.

Quetsion subsidiaire : comme faire pour que l'on puisse utiliser la molette de la souris pour faire défiler la liste dans la combobox ? C'est dans les propriétés de la Cbx ?

A bientôt

Heureux les simples d'esprit, je suis donc un homme heureux

 

[Nevil]

nan ce n'est pas dans les propriétés de ta combobox. Pour utiliser la molette pour une listbox ou combobox c'est bien plus compliquer qu'on peut penser, c' est tout un code.

Tu dois pouvoir le trouver dans les archives je pense.

 

[PLOUC]

Bonsoir

Merci de l'info ,cela aurait été presque trop simple. Je vais fouiller les archives pour voir.

A bientôt sans doute.

 

[lio]

Bonsoir,

Tu trouveras sur le site VERITI3 un fichier qui s'appelle 'Molette-TI'. Attention, je pense aussi que c'est assez complexe.



Message édité par: lio, à: 15/05/2006 23:22

 

[Nevil]

Bonjour,

Moi meme, un temps, j'ai voulu faire fonctionner la molette mais quand j'ai vu le code, je me dis que c'était peut etre du 'luxe' alors j'ai vite abandonné l'idée lol

Bon courage


Julien

 

[PLOUC]

Bonjours Nevil, lio et les autres bien sur

Merci Lio pour le lien.
Je pense que je vais attendre d'être un peu plus chevronné pour me lancer sur le coup de la molette.

Je garde le lien en favoris on ne sait jamais ; car c'est vrai que c'est un peu du luxe mais je trouve çà sympa.

En atten,dant d'autre questions de ma part je vous remercie tous les deux.

A bientôt

Bien cool ce forum.