Probléme de listbox

Luki

XLDnaute Accro

• 16 Novembre 2006

• #2

Re : Probléme de listbox

Salut,

Tu dois dans ce cas passer par une boucle qui vérifie si la cellule contient 1 et la méthode addItem de la listbox.

A+

 

Vote positif 0 Vote négatif

Luki

XLDnaute Accro

• 16 Novembre 2006

• #3

Re : Probléme de listbox

Re,

L'exemple : ta plage avec 2 colonnes, la 1ère sert de test , la 2ème à remplir la listbox

Code:

Private Sub UserForm_Initialize()

Dim Rg As Range, i%
Set Rg = Range("PTableauVirementAutoExterne")

For i = 1 To Rg.Rows.Count
    If Rg(i, 1) = 1 Then ListBox1.AddItem Rg(i, 2)
Next i

End Sub

A te lire

 

Vote positif 0 Vote négatif

M

Mouchty85

XLDnaute Occasionnel

• 16 Novembre 2006

• #4

Re : Probléme de listbox

la probléme que j'ai c'est quen utilisant cette méthode, il ne charge dans la listbox que la cellule, alors que je voudrais qi'il charge toute la ligne.

Merci de votre aide

 

Vote positif 0 Vote négatif

Luki

XLDnaute Accro

• 16 Novembre 2006

• #5

Re : Probléme de listbox

Re, combien de colonnes à ajouter à la listbox?

 

Vote positif 0 Vote négatif

M

Mouchty85

XLDnaute Occasionnel

• 16 Novembre 2006

• #6

Re : Probléme de listbox

20 au totale

 

Vote positif 0 Vote négatif

Luki

XLDnaute Accro

• 16 Novembre 2006

• #7

Re : Probléme de listbox

re,

exemple pour une plage de 3 colonnes (tu feras les autres!)

ATTENTION: la première col d'un listbox est la col 0, idem pour la première ligne.

Code:

Private Sub UserForm_Initialize()

Dim Rg As Range, i%, j%
Set Rg = Range("PTableauVirementAutoExterne")

j = 0
ListBox1.ColumnCount = 3 ' pour afficher 3 colonnes dans ListBox

For i = 1 To Rg.Rows.Count
    If Rg(i, 1) = 1 Then
        With ListBox1
            .AddItem
            .List(j, 0) = Rg(i, 1)
            .List(j, 1) = Rg(i, 2)
            .List(j, 2) = Rg(i, 3)
        End With
        j = j + 1
    End If
Next i

End Sub

Vois si c'est ça

 

Vote positif 0 Vote négatif

M

Mouchty85

XLDnaute Occasionnel

• 16 Novembre 2006

• #8

Re : Probléme de listbox

ca fonctionne mais seulement pour une valaur inférieur a 10.
voici le code

With SélectionVAEModifier
.AddItem
.List(j, 0) = Rg(i, 1)
.List(j, 1) = Rg(i, 2)
.List(j, 2) = Rg(i, 3)
.List(j, 3) = Rg(i, 4)
.List(j, 4) = Rg(i, 5)
.List(j, 5) = Rg(i, 6)
.List(j, 6) = Rg(i, 7)
.List(j, 7) = Rg(i, 8)
.List(j, 8) = Rg(i, 9)
A partir de la il me marque un message d'erreur : Imposible de défoinir la propriété List. valeur de la proriété non valide.
.List(j, 9) = Rg(i, 10)
'.List(j, 10) = Rg(i, 11)
'.List(j, 11) = Rg(i, 12)
'.List(j, 12) = Rg(i, 13)
'.List(j, 13) = Rg(i, 14)
'.List(j, 14) = Rg(i, 15)
'.List(j, 15) = Rg(i, 16)
'.List(j, 16) = Rg(i, 17)
'.List(j, 17) = Rg(i, 18)
'.List(j, 18) = Rg(i, 19)
'.List(j, 19) = Rg(i, 20)
End With
j = j + 1

j'ai essayer de tout retourner mais ca me marque ca a chaque fois

 

Vote positif 0 Vote négatif

Luki

XLDnaute Accro

• 16 Novembre 2006

• #9

Re : Probléme de listbox

Re,

zippe ton fichier allégé sans données confidentiellles, ça sera plus simple.

A te lire

 

Vote positif 0 Vote négatif

Hervé

XLDnaute Barbatruc

• 16 Novembre 2006

• #10

Re : Probléme de listbox

bonjour

en effet la méthode additem ne fonctionne que pour 10 colonnes.

pour remplir une listbox à 20 colonnes il faut passer par la méthode list, donc une variable tableau

salut

 

Vote positif 0 Vote négatif

Hervé

XLDnaute Barbatruc

• 16 Novembre 2006

• #11

Re : Probléme de listbox

re 🙂

un exemple pour une listbox à 20 colonnes.

salut

 

Pièces jointes

• mouchty.zip

  13.1 KB · Affichages: 35

Vote positif 0 Vote négatif

M

Mouchty85

XLDnaute Occasionnel

• 16 Novembre 2006

• #12

Re : Probléme de listbox

je ne paux pas envoyer mon fichier il est trop grox même zipper.
ce que je comprend pas c'est qu'avant je pouvais mettre toutes les 20 colonne dans la listbox, mais j'en affichais que 7. je souhaiterai faire la même chose mais pouvoir utilidé les colonne 8, 9, 10 ... apprès.
Merci de votre iade

 

Vote positif 0 Vote négatif

M

Mouchty85

XLDnaute Occasionnel

• 16 Novembre 2006

• #13

Re : Probléme de listbox

je fais un petit récapitulatifs,

j'ai une listbox qui reprend les information d'un tableau ayant 20 colonnes. pour charger cette listbox mon code était :

SélectionVAIModifier.Clear
SélectionVAIModifier.List() = Range("PTableauVirementAutoexterne").Value

Cependant, j'aimerai que les ligne qui soit chargé est la valeur 1 dans la 8éme colonne.

Et voila un autre code qui me permet de remettre dans les différent textbox checkbox et autre les inforamtion de la ligne que j'aurai séléctionné dans ma Listbox.

j'espère que c'est assez clair.

Je vous remercie de votre aide, c'est sympas moi je bloque vraiment

 

Vote positif 0 Vote négatif

Luki

XLDnaute Accro

• 16 Novembre 2006

• #14

Re : Probléme de listbox

Salut Hervé,

C'est sympa de prendre le relais, je jongle entre les posts et l'atelier! Et merci pour l'info sur la limite à 10.

Mouchty, la solution d'Hervé fonctionne.

D'autre part, pourrais tu exposer L'ENSEMBLE de tes contraintes... Au lieu d'en ajouter à chaque post ?
L'approche et la solution ne seront pas forcément les mêmes, le temps pour y répondre non plus....

Merci

 

Vote positif 0 Vote négatif