listbox et index

bonjour a vous tous
comment puis je faire pour qu'une listbox se charge des données des

Citation:

---

col
D2.End(xlUp)nom
E2.End(xlUp)prénom
G2.End(xlUp)Adresse
H2.End(xlUp)code postal
I2.End(xlUp)ville
J2.End(xlUp)téléphone

---

de ma feuil client a l'ouverture de son usf
j'ai ce code mais il ne me fait pas ce que je veux

Code:

---

1 2 3 4 5 6

Private Sub Listclient_Click() Dim i As Variant i = Listclient.ListIndex select_cli= Sheets("client").Range("d" & i + 2).Value 'nom   End Sub

---

car

Citation:

---

select_cli plante

---

merci par avance de vos idées

Pascal

Bonjour grisan29,

Voici une solution

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25

Option Explicit Private Sub Listclient_Click() Dim LigneS As Integer Dim select_cli As String 'Récupération du contenu de la ligne sélectionnée. LigneS = Listclient.ListIndex select_cli = Listclient.List(LigneS) 'nom 'Affichage des données With Worksheets("client") MsgBox "Vous avez sélectionné le client " & select_cli & Chr(10) & _ "Prénom : " & .Range("E" & LigneS + 2) & Chr(10) & _ "Adresse : " & .Range("G" & LigneS + 2) & Chr(10) & _ "Code postal : " & .Range("H" & LigneS + 2) & Chr(10) & _ "Ville : " & .Range("I" & LigneS + 2) & Chr(10) & _ "Téléphone : " & .Range("J" & LigneS + 2) End With End Sub Private Sub UserForm_Initialize() Dim DerLig As Long 'Remplissage de la ListBox. With Worksheets("client") DerLig = .Range("D" & .Rows.Count).End(xlUp).Row Listclient.List() = .Range("D2:D" & DerLig).Value End With End Sub

---

Cordialement.

bonsoir gFZT82

merci de ta solution mais ce n'est pas dans un msgbox que je veux que les données clients viennent mais automatiquement dans la listebox.
il est vrai que si dans ma question

Citation:

---

comment puis je faire pour qu'une listbox se charge des données

---

j'oublie :('automatiquement' la réponse ne sera pas adéquate:(

cordialement

Pascal

Bonsoir grisan29,

Si tu cherches à créer une ListBox multicolonnes, la réponse est ici

http://silkyroad.developpez.com/VBA/...serForm/#LII-G

Cordialement ;).

bonjour grizan

un exemple tout simple

Code:

---

1 2 3

dim tableau as variant tableau=sheets(1).range("d2:j" & sheets(1).range("a65530).end (xlup).row) listbox1.list=tableau

---

voilivoilou

au plaisir

Bonjour Patrick

il y a une erreur de syntaxe a la ligne

Code:

---

tableau=sheets("client").range("d2:j" & sheets("client").range("a65530).end (xlup).row)

---

je te rassure il ne s'agit en aucune facon que j'intervienne de nouveau sur mon fichier facture a modules car je plane
la j'essaie de modifier un usf client d'un magasin qui est tenu par un ami

cordialement
Pascal

bonjour

mille excuse

j'ai taper un peu vite j'ai mis ("a65530) sans le guillemet et en plus je prend la colonne a comme référence de la dernière ligne utilisée ors c'est la colonne "D" :oops::oops: voila ce qui arrive quand on va trop vite


voila la version qui te donnera satisfaction

Code:

---

1 2 3 4 5 6 7 8

Private Sub UserForm_Activate() Dim tableau As Variant ListBox1.ColumnCount = 6 ListBox1.ColumnHeads = True tableau = Sheets(1).Range("d2:j" & Sheets(1).Range("d65530").End(xlUp).Row) ListBox1.List = tableau End Sub

---

au plaisir

bonsoir Patrick
merci :ccool:de ta réponse qui correspond a ce que je voulais:ccool:je pense que pour la suite j'arriverai avec ?
cordialement et encore MERCI:ccool:

Pascal