ListBox

[LordZerty]

Bonjour,

Je me permet de vous déranger car malgré des recherches un peut partout je ne trouve pas de solution...

Je souhaiterais remplir une listbox avec des colonne de mon tableau que j'ai nommé, voici comment je m'y prend actuallement :

    Dim i As Integer

    Dim List_Eleve(1 To 14, 1 To 2) As String

    For i = 1 To 14

        List_Eleve(i, 1) = Range("Commentaire_Fraise2Tailles").Offset(i)
        List_Eleve(i, 2) = Range("B1").Offset(i)

    Next i
    ListBox_Fraise2Taille.List() = List_Eleve

Hors j'ai une erreur m'indiquant un problème de type qui ne serais pas compatible... Je ne comprend pas... Pourtant quand je veut remplir seulement une colonne j'y arrive avec le nom de ma colonne : Range("Commentaire_Fraise2Tailles").Value

Si quelqu'un à une solution je suis preneur ^^

Merci d'avance. 🙂

 

[titiborregan5]

Re : ListBox

Bonjour Lordzert, le forum,
je crois qu'il faut qqch après le .offset non? un .value ou qqch d'autre mais le .offset ne "se suffit pas à lui-même" de mémoire!
Après peut-être que je me trompe...

 

[LordZerty]

Re : ListBox

Bonjour Lordzert, le forum,
je crois qu'il faut qqch après le .offset non? un .value ou qqch d'autre mais le .offset ne "se suffit pas à lui-même" de mémoire!
Après peut-être que je me trompe...

Bonjour et merci pour ton aide. 🙂

Je ne pense pas que le problème vienne de là car quand j'essaye en tapant par exemple directement la colonne alors sa fonctionne. De plus j'ai bien tenter avec des .value... mais rien à faire.

 

[Pierrot93]

Re : ListBox

Bonjour,

vérifie peut être ce que te renvoie :

Range("Commentaire_Fraise2Tailles").Offset(i).select

A priori en dehors de ta plage non...

bonne journée
@+

Edition : bonjour Laetitia🙂

 

[laetitia90]

Re : ListBox

bonjour tous 🙂🙂
et si tu mettais un fichier exemple non??

edit salut l'ami pierrot🙂🙂

 

[LordZerty]

Re : ListBox

bonjour tous 🙂🙂
et si tu mettais un fichier exemple non??

edit salut l'ami pierrot🙂🙂

Je m'occupe d'en rédiger un tout de suite.

Merci à tous pour votre aide.

 

[LordZerty]

Re : ListBox

Voici le fichier en PJ


Je vous remercie d'avance 🙂

 

[titiborregan5]

Re : ListBox

Re,
j'ai triché un peu et j'ai écrit les valeurs concaténer à droite... ensuite j'ai nommé cette nouvelle plage et ça s'affiche correctement... ensuite tu fais effacer les cellules en fin de macro et c'est presque transparent...
Je ne connais pas trop tes méthodes et propriétés liées aux tableaux...
Pas sûr que ça aille donc mais bon...

 

[LordZerty]

Re : ListBox

Merci pour ton aide.

J'ai réussi autrement voici comment j'ai fait :

Private Sub B_Remplir_Click()
 Dim i As Integer
Dim List_Eleve(1 To 14, 1 To 2) As String

  With ListBox
    .ColumnCount = 2
  End With

  For i = 1 To 14
    List_Eleve(i, 1) = Range("Liste_Prenom").Cells(i, 1)
    List_Eleve(i, 2) = Range("List_Id").Cells(i, 1)
  Next i
  ListBox.List() = List_Eleve
End Sub

 

[Guest]

Re : ListBox

Bonjour,

Deux méthodes pour remplir la listbox:

1- en passant par une variable

  Dim List_Eleve
    List_Eleve = Range("Liste_Prenom").Resize(, 2).Value
    ListBox.List() = List_Eleve

2- plus directement en 1 ligne

ListBox.List = Range("Liste_Prenom").Resize(, 2).Value

A+

 

[LordZerty]

Re : ListBox

Je me permet de relancer le sujet car je rencontre à nouveau une difficulté...

Je n'arrive pas a sélectionner un champ de ma listbox1 en fonction d'un champ de ma listbox2...

Je ne trouve pas d'événement en rapport... Quelqu'un pourrais m'aider ?

Vous trouverez ci-joins un fichier excel avec mon avancement.

 

[Guest]

Re : ListBox

Re bonjour,

J'aurais aimé avoir un retour de mon post précédent, à moins que tu ne l'ai pas vu.

Pour ton problème: les listBox à choix multiples n'engendrent pas l'évènement click. Mais on peut contourner le problème de plusieurs façon dont celle-ci:

Private Sub ListBox1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
     '1 = bouton gauche
    If Button = 1 And ListBox2.ListCount = ListBox1.ListCount Then
        Dim i As Integer
        For i = 0 To ListBox1.ListCount - 1
            ListBox2.Selected(i) = ListBox1.Selected(i)
        Next
    End If
End Sub

A+

 

[LordZerty]

Re : ListBox

Re bonjour,

J'aurais aimé avoir un retour de mon post précédent, à moins que tu ne l'ai pas vu.

Pour ton problème: les listBox à choix multiples n'engendrent pas l'évènement click. Mais on peut contourner le problème de plusieurs façon dont celle-ci:

Private Sub ListBox1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
     '1 = bouton gauche
    If Button = 1 And ListBox2.ListCount = ListBox1.ListCount Then
        Dim i As Integer
        For i = 0 To ListBox1.ListCount - 1
            ListBox2.Selected(i) = ListBox1.Selected(i)
        Next
    End If
End Sub

A+

Bonjour et pardon je n'avais pas vue ton précédent post. En tout cas en ce qui concerne ton code celà fait exactement ce que je voulais et je t'en remercie ! 🙂