Probléme de listbox

[Mouchty85]

bonjour a tous, je réalise un petit programme et je suis confronté à un petit problème.
j'utilise un Listbox pour supprimer des information.

Mon code pour charger la listbox est actuellement celui ci :
SVESéléction.Clear
SVESéléction.List() = Range("PTableauVirementAutoExterne").Value

le probléme est que quand je décide de supprimer une ligne, elle n'est pas supprimer réellement, une valeur de la ligne passe de 1 à 0.

Comment puije faire pour que seul les ligne ayant la valeur 1 dans la première ligne soit charger dansla listbox.

Mreci de votre aide

Mouchty85

 

[Luki]

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+

 

[Luki]

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

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

 

[Mouchty85]

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

 

[Luki]

Re : Probléme de listbox

Re, combien de colonnes à ajouter à la listbox?

 

[Mouchty85]

Re : Probléme de listbox

20 au totale

 

[Luki]

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.

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

 

[Mouchty85]

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

 

[Luki]

Re : Probléme de listbox

Re,

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

A te lire

 

[Hervé]

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

 

[Hervé]

Re : Probléme de listbox

re 🙂

un exemple pour une listbox à 20 colonnes.

salut

 

[Mouchty85]

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

 

[Mouchty85]

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

 

[Luki]

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