[XL-2007] listbox et index [Résolu]

[grisan29]

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

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

select_cli plante

merci par avance de vos idées

Pascal

[gFZT82]

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.

[grisan29]

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

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

[gFZT82]

Bonsoir grisan29,

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

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

Cordialement .

[patricktoulon]

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

[grisan29]

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

[patricktoulon]

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" 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

[grisan29]

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

Pascal