Une listBox pour 2 affichages différents

[mfb]

Bonjour,
Le but recherché est de visualiser à l'aide d'une seule et même listBox (listBox1)
après choix d'après listbox2 :
soit la feuille 1 en traitant les cellules 1 à 1
soit la feuille 2 traitée sous forme de tableau
Le passage de la visu feuille1 à feuille 2 c'est OK par contre il y a erreur au passage feuille 2 vers feuille 1.
Le nombre et la largeur des colonnes, de la listBox, étant différents j'ai inséré sans résultat le bout de code ci après
With ListBox1
.ColumnCount = 6
.ColumnWidths = "40;40;40;40;40;40"
End With
Le ficher joint vous sera peut être + explicite.
Mes recherches sur ce forum n'ayant rien donné je m'en remets à vos bons
soins pour quelques conseils.
Tout en restant dispo
Merci par avance et
A+
Daniel

 

[Paritec]

Re : Une listBox pour 2 affichages différents

Bonsoir Mfb, le forum
pas compris grand chose dans tes explications mais bon une certitude
dans la listbox la première colonne est la 0 et non la 1 essaye et tu me rediras
a+
Papou 🙂

 

[mfb]

Re : Une listBox pour 2 affichages différents

Re,
Merci Paritec
Ta certitude doit être la solution car ça marche.
Après rectif sur le fichier joint je peux enchainer l'affichage des feuilles 1 et 2 dans n'importe quel sens (1,2 ou 2,1) sans problème.
Alors merci
A+
Daniel

 

[Paritec]

Re : Une listBox pour 2 affichages différents

Bonsoir Mfb le forum
Content que tu sois content, moi je reste sur ma faim car je n'ai toujours pas compris ce que tu veux, afficher ou une sélection de la feuille 1 ou de la feuille 2 mais le pourquoi de impérativement dans la même listbox là pas compris.
Enfin si c'est ce que tu cherchais c'est bien
bonne soirée
a+
papou 🙂

 

[mfb]

Re : Une listBox pour 2 affichages différents

Bonjour lParitec et le forum,
Apparemment je ne suis pas + doué pour VBA que pour les explications tant pis je poursuis.
Mon besoin n'est pas d'avoir impérativement 1 seule listBox mais plutôt
d'apprendre à alimenter une listBox de 2 façons.
C'est pourquoi pour la feuille 1 l'alimentation de la listbox ce fait avec,

----- With ListBox1
.AddItem
.Column(1, .ListCount - 1) = Sheets("Feuil1").Cells(x, z + 1)
.Column(2, .ListCount - 1) = Sheets("Feuil1").Cells(x, z + 4)
.Column(3, .ListCount - 1) = Sheets("Feuil1").Cells(x, z + 3)
.Column(4, .ListCount - 1) = Sheets("Feuil1").Cells(x, z)
.Column(5, .ListCount - 1) = Sheets("Feuil1").Cells(x, z + 2)
End With

et pour la feuille 2 avec,

----- With Sheets("feuil2")
Tablo = .Range(.Cells(6, 3), .Cells(14, 8))
End With

pour agrémenter le tout j'ai logé les 2 façons dans une même listbox.

Dans le fichier joint au premier post il y avait erreur lors de l'affichage de la feuille 1 après celle de la feuille 2, pas à l'aafichage de la 2 après la 1

"erreur execution 380"
"Impossiblede définir propriété columm ......"

J'avais résolu le PB avec la prise en compte de la remarque Paritec sur le numérotage des colonnes, cela avait eu pour effet de descendre d'un point le tous les N° de coLumm.
Depuis j'ai remarqué que le N° le + élevé de la columm à renseigner dans la listBox (5 dans le cas présent pour la feuille 1) doit être au + égal au nombre de colonnes défini dans le tablo (pour la feuille2)."

Y a surement cause à effet. Mais laquelle ?
A+
Daniel