listbox : 2 colonnes

[petchy]

bonjour le forum

voila dans USF j'ai une listbox qui récupère les infos de la colonne A dans une feuille:Ma question est : peut t'on récupéré dans la listbox les infos de 2 colonnes A et B.
merci
@ plus
Petchy

 

[Eric C]

Bonjour le forum
Bonjour Petchy

toujours sur ton projet ??
Pour la réponse c'est oui tu peux comme à l'instar d'une ComboBox, présenter X colonnes dans une ListBox. Pour ce faire => Propriétés
ColumnCount : valeur 2 puisque 2 colonnes - ColumnWidths : valeur
20 pt pour être visible (a adapter) - Si tu veux voir ton entête de colonne
ColumnHeads à True.

En espérant t'avoir utilement renseigné.
@ ++ Eric C

 

[petchy]

bonsoir Eric et le forum

eh oui,toujours sur mon projet,mais bientot la fin (j'espère)
merci pour cette info,mais je n'arrive pas à récupéré la seconde valeur dans la listbox.
pourrait tu me donner un peu plus d'infos.
merci,je file au boulot
bonne soirée
petchy

 

[Eric C]

Re le forum
Re Petchy

Donc, une liste de noms de A2 à A10 avec l'intitulé "Noms" en A1. Une liste de prénoms de B2 à B10 avec l'intitulé "Prénoms" en B1.
Un USF avec une ListBox.
Propriétés de la ListBox :
- RowSource Feuil1!A1:B1O
- ColumnCount => 2 car 2 colonnes
- ColumnWidths => 56,7 pt pour la visibilité de prénoms & noms
______________________________________
! Noms Prénoms !
! TATA Je !
!____RIRI______________Tu______________!

Voici que j' obtiens (Enfin en beaucoup mieux & heureusement) à l'écran

@ ++ Eric C

 

[petchy]

bonjour Eric et le forum

merci Eric,mais ça ne fonctionne pas car je n'alimente pas ma listbox par RowSource donc ça me met une erreur
@ plus
petchy

 

[Eric C]

Re le forum
Re Petchy


Je ne connais que 2 méthodes pour alimenter une ListBox : Additem & RowSource ?
Si tu veux récupérer les valeurs de 2 colonnes, tu dois passer par la dernière solution.
@+ EC

 

[Mytå]

Salut Petchy, Eric et le Forum

As-tu essayé avec le 'format' tableau pour ton ListBox (2 Colonnes)

Première item étant :

UserForm1.ListBox1.List(0, 0)=Cells(2,1) 'Pour A2
UserForm1.ListBox1.List(0, 1)=Cells(2,2) 'Pour B2

Deuxième item étant :

UserForm1.ListBox1.List(1, 0)=Cells(3,1) 'Pour A3
UserForm1.ListBox1.List(1, 1)=Cells(3,2) 'Pour B3

....

Mytå

 

[myDearFriend]

Bonsoir tout le monde,

Petchy, tu peux également alimenter la ListBox directement grâce à un tableau variant tout entier :

Private Sub UserForm_Initialize()
Dim TabTemp As Variant

TabTemp = Range("A1:B10").Value 'Chargement du tableau
ListBox1.ColumnCount = 2 '2 colonnes pour la liste
ListBox1.List() = TabTemp 'Chargement de la liste
End Sub

Cordialement.
Didier_mDF

 

[Mytå]

Re Petchy, Eric et Didier

Et en supplément pour ajouter une entrée dans la liste ici les cellules A5 et B5

With ListBox1

.AddItem ([A5])
.List(.ListCount - 1, 1) = [B5]

End With

Mytå

 

[Eric C]

Re le forum
Re Petchy,
Bonjour Myta, bonjour Didier

Trop fort, vous êtes trop. C'est grace à des personnes comme Vous que l'on avance @ Grand Pas. CONTINUEZ & SURTOUT RESTEZ TJRS A NOTRE ECOUTE (Cela, je n'en doute pas...lol...).............................................

 

[petchy]

Bonjour Myta Didier Eric et le forum

un grand merci à tous les participants de se fil vous etes géniaux,comme d'ab

Mais je rencontre un probleme en clickant sur un articles.
Avant, quant je clicker sur un article j'avais les informations liés à l'article qui aller sur des textbox,maintenant en récupérant les 2 colonnes sur la listbox j'ai une erreur.

Petchy

 

[myDearFriend]

Bonjour Petchy, Eric, Myta et le Forum.

M'étant absenté pendant 2 jours, je ne sais pas si le problème des pièces jointes est réglé sur XLD.

Cela dit, Petchy, il me semblerait souhaitable que tu postes ton fichier (ou une partie) afin que l'on puisse voir où est le problème d'autant que je ne comprends pas trop le lien entre les textbox et la listbox...

Cordialement.
Didier_mDF

 

[petchy]

bonjour Didier_mDF et le forum

voila une partie du fichier:
en fait je récupére dans la listbox:
les clients et les codes
et dans les textbox
je récuperé les infos liées aux clients et aux codes.
merci
@ plus
petchy

 

[Myta]

Re bonjour le Forum

Petchy, l'erreur vient de ton WsBase en le remplacant cela fonctionne bien.

Et j'ai diminue l'index de ton NomLBindex

NomLBindex = ListBox1.ListIndex + 1

TextBox1 = Sheets("Base").Range("C" & NomLBindex)
TextBox2 = Sheets("Base").Range("D" & NomLBindex)
TextBox3 = Sheets("Base").Range("E" & NomLBindex)

Mytå

 

[petchy]

Re

merci Mytå
c'est super
petchy