listbox : 2 colonnes

E

Eric C

Guest

• 18 Juin 2004

• #2

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

 

Vote positif 0 Vote négatif

P

petchy

Guest

• 18 Juin 2004

• #3

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

 

Vote positif 0 Vote négatif

E

Eric C

Guest

• 19 Juin 2004

• #4

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

 

Vote positif 0 Vote négatif

P

petchy

Guest

• 19 Juin 2004

• #5

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

 

Vote positif 0 Vote négatif

E

Eric C

Guest

• 19 Juin 2004

• #6

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

 

Vote positif 0 Vote négatif

M

Mytå

Guest

• 19 Juin 2004

• #7

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å

 

Vote positif 0 Vote négatif

M

myDearFriend

Guest

• 19 Juin 2004

• #8

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

 

Vote positif 0 Vote négatif

M

Mytå

Guest

• 19 Juin 2004

• #9

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å

 

Vote positif 0 Vote négatif

E

Eric C

Guest

• 19 Juin 2004

• #10

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...).............................................

 

Vote positif 0 Vote négatif

P

petchy

Guest

• 20 Juin 2004

• #11

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

 

Vote positif 0 Vote négatif

M

myDearFriend

Guest

• 21 Juin 2004

• #12

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

 

Vote positif 0 Vote négatif

P

petchy

Guest

• 21 Juin 2004

• #13

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

 

Vote positif 0 Vote négatif

M

Myta

Guest

• 21 Juin 2004

• #14

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å

 

Vote positif 0 Vote négatif

P

petchy

Guest

• 21 Juin 2004

• #15

Re

merci Mytå
c'est super
petchy

 

Vote positif 0 Vote négatif