ListBox ne prend pas en compte mes valeurs

[mikael2235]

Bonjour à tous,

Ma ListBox ne me prend pas en compte mes valeurs.

J'ai fait :

ListBox1.List() = Range ("E30:AE30").Value

Mes cellules de E30 à AF30 sont fusionnées par 2. (ex E30 & F30, G30& H30,...)
Il ne prend en compte que la valeur de la cellule "EF30".

Merci

 

[mikael2235]

Re : ListBox ne prend pas en compte mes valeurs

Re Bonjour,

Vous n'avez pas d'idée ? ou peut-être que mon explication n'était pas assez claire !

J'ai essayé ceci pour tester :

Private Sub UserForm_Initialize()

Dim i As Byte

For i = 1 To 5

  ListBox1.AddItem E & i
  
Next i

End Sub

mets la il me met dans ma liste E1, E2, ...

Moi je voudrais qu'il me mette, les valeurs des cellules E30 à AE30
Est-ce que ça marche pour une plage de cellule horizontale ? Les cellules sont fusionnées par 2 de E30 à AE30 (ex : E30 avec F30, G30 avec H30, ...)

J'ai aussi essayé :

ListBox1.List() = Range("E30:AE30").Value

Mais il ne met que la première valeur qui se trouve en E30

Merci pour votre aide. Je ne sais pas comment faire.

 

[Efgé]

Re : ListBox ne prend pas en compte mes valeurs

Bonjour mikael2235,
Peut être avec :

ListBox1..RowSource = "Ma_Feuille!E30:AE30"

Mais il est toujours préférable de joindre un exemple.
Cordialement

 

[spidernono]

Re : ListBox ne prend pas en compte mes valeurs

Bonjour,

Peut être une piste :

A priori, vous êtes dans un user form. Dans les propriétés de l'objet liste, 2 éléments à renseigner :

1/ RowSource : La plage de cellules contenant les valeurs (personnellement, j'utilise des plages nommées, plus simple ^^)

2/ ColumnCount : la valeur est à 1 par défaut, mettez là à 2.

Ensuite, pour récupérer la seconde valeur sélectionnée dans un autre champ, on peut mettre ce code :

Private Sub ListBox1_Click()

TextBox1 = ListBox1.Column(1)

End Sub

Où listbox1=votre objet liste
et textbox1=le champ texte destinataire.

En espérant que cela peux, vous aider,

Bonne journée !

 

[mikael2235]

Re : ListBox ne prend pas en compte mes valeurs

Bonjour,

Peut être une piste :

A priori, vous êtes dans un user form. Dans les propriétés de l'objet liste, 2 éléments à renseigner :

1/ RowSource : La plage de cellules contenant les valeurs (personnellement, j'utilise des plages nommées, plus simple ^^)

2/ ColumnCount : la valeur est à 1 par défaut, mettez là à 2.

Ensuite, pour récupérer la seconde valeur sélectionnée dans un autre champ, on peut mettre ce code :

Private Sub ListBox1_Click()

TextBox1 = ListBox1.Column(1)

End Sub

Où listbox1=votre objet liste
et textbox1=le champ texte destinataire.

En espérant que cela peux, vous aider,

Bonne journée !

Bonjour spidernono,

J'ai bien essayé ce que tu m'as dis, la plage nommé ne change pas mon problème, et le fait de remplacer le 1 par 2 dans ColumnCount, me rajoute un scrollbar horizontal en bas de ma listbox mais toujours que la 1ere valeur.

 

[spidernono]

Re : ListBox ne prend pas en compte mes valeurs

Ah !

J'ai oublié de joindre le fichier qui m'a servi de test

J'ai peut être omis / pas saisi un élément ?

 

[Efgé]

Re : ListBox ne prend pas en compte mes valeurs

Re spidernono, mikael2235,
spidernon, votre fichier est en xlsm donc impossible de l'ouvrir pour moi (Excel 2003). Si vous utilisez des options de 2007 il serait préférable,pour vous, de poster sur le forum prévu à cet effet... Si non enregistrez le en mode compatible 2003 (xls).
Cordialement

 

[spidernono]

Re : ListBox ne prend pas en compte mes valeurs

Oups !

Toutes mes excuses pour cette erreur

Le voici en fichier 2003

 

[mikael2235]

Re : ListBox ne prend pas en compte mes valeurs

Re spidernono, mikael2235,
spidernon, votre fichier est en xlsm donc impossible de l'ouvrir pour moi (Excel 2003). Si vous utilisez des options de 2007 il serait préférable,pour vous, de poster sur le forum prévu à cet effet... Si non enregistrez le en mode compatible 2003 (xls).
Cordialement

Je ne comprenais pas pkoi je ne pouvais pas l'ouvrir !!!

 

[mikael2235]

Re : ListBox ne prend pas en compte mes valeurs

J'ai vu le principe de fonctionnement de ta list box.

En fait, moi je ne veux qu'une seule colonne mais par contre mes valeurs sont en ligne.
Je renvoie le fichier ou j'ai mis un exemple de mes données en Feuil2

Merci

 

[Robert]

Re : ListBox ne prend pas en compte mes valeurs

Bonjour le fil, bonjour le forum,

Enfin tu as daigné mettre un fichier exemple !!! Quel temps perdu pour tout le monde...

 

[Fo_rum]

Re : ListBox ne prend pas en compte mes valeurs

salut

à voir :

Private Sub UserForm_Initialize()
  Dim n As Byte
  For n = 2 To 24 Step 2
    ListBox1.AddItem Cells(2, n)
  Next
End Sub

 

[mikael2235]

Re : ListBox ne prend pas en compte mes valeurs

salut

à voir :

Private Sub UserForm_Initialize()
  Dim n As Byte
  For n = 2 To 24 Step 2
    ListBox1.AddItem Cells(2, n)
  Next
End Sub

Je crois qu'on tient le bon bout. Quelques "réglages" et je vous tiens au courant.

Merci Fo_rum, ça fonctionne avec ton code,je l'ai adapté à ma plage de cellule.

Encore une question, j'ai mis dans les propriétés MultiSelect = Single. Comment faire pour que la valeur choisie dans ma ListBox soit renvoyé et que je puisse l'utiliser pour la suite de ma macro en tant que variable par exemple.
Pour que vous compreniez mieux, je vous envoie un fichier !

(exemple : Si je choisi L2 soit 18h00 dans ma ListBox, je voudrais qu'il me recopie les lignes 14,15,16 de la colonne choisie (ici P,Q,R), et me recopie ces 3 valeurs en B30)

Merci encore pour votre aide.