!besoin d'aide! info listbox dans textbox
Résolu
Bonjour,
J'ai un code pour récupéré les infos de ma listbox et les mettre dans les textbox mais sa ne marche pas aidez moi svp...!!
Private Sub ListBox1_Click() 'au clic dans la ListBox1
If Me.Caption = "SUPPRESSION" Then Exit Sub 'si l'UserForm1 porte le titre "SUPPRESSION", sort de la procédure
'********************************
'récupère les données de la ligne
'********************************
With Me.ListBox1 'prend en compte la ListBox1
TextBox1.Value = .Column(1, .ListIndex) 'récupère le nom
TextBox2.Value = .Column(2, .ListIndex) 'récupère le prénom
TextBox3.Value = .Column(3, .ListIndex) 'récupère la chambre
End With 'fin de la prise en compte de la ListBox1
Me.TextBox1.SetFocus 'place le curseur dans la TextBox1
'sélectionne le texte de la TextBox1
Me.TextBox1.SelStart = 0 'début de la sélection
Me.TextBox1.SelLength = Len(Me.TextBox1.Value) 'longueur de la sélection
End Sub
Ensuite avec ce code j'ai les nom des colonnes qui s'affiche dans la listbox comment l'enlevé??
Private Sub UserForm_Initialize()
'si la dernière ligne est supérieure à 256 déclarer i et x en Integer
Dim i As Byte, x As Byte
i = Sheets("BASE DE DONNEE").Range("C1000").End(xlUp).Row
For x = 1 To i
With ListBox1
.AddItem Sheets("BASE DE DONNEE").Cells(x, 2)
.Column(1, .ListCount - 1) = Sheets("base de donnee").Cells(x, 3)
.Column(2, .ListCount - 1) = Sheets("base de donnee").Cells(x, 4)
.Column(3, .ListCount - 1) = Sheets("base de donnee").Cells(x, 5)
.Column(4, .ListCount - 1) = Sheets("base de donnee").Cells(x, 6)
.Column(5, .ListCount - 1) = Sheets("base de donnee").Cells(x, 7)
End With
Next x
End Sub
J'ai un code pour récupéré les infos de ma listbox et les mettre dans les textbox mais sa ne marche pas aidez moi svp...!!
Private Sub ListBox1_Click() 'au clic dans la ListBox1
If Me.Caption = "SUPPRESSION" Then Exit Sub 'si l'UserForm1 porte le titre "SUPPRESSION", sort de la procédure
'********************************
'récupère les données de la ligne
'********************************
With Me.ListBox1 'prend en compte la ListBox1
TextBox1.Value = .Column(1, .ListIndex) 'récupère le nom
TextBox2.Value = .Column(2, .ListIndex) 'récupère le prénom
TextBox3.Value = .Column(3, .ListIndex) 'récupère la chambre
End With 'fin de la prise en compte de la ListBox1
Me.TextBox1.SetFocus 'place le curseur dans la TextBox1
'sélectionne le texte de la TextBox1
Me.TextBox1.SelStart = 0 'début de la sélection
Me.TextBox1.SelLength = Len(Me.TextBox1.Value) 'longueur de la sélection
End Sub
Ensuite avec ce code j'ai les nom des colonnes qui s'affiche dans la listbox comment l'enlevé??
Private Sub UserForm_Initialize()
'si la dernière ligne est supérieure à 256 déclarer i et x en Integer
Dim i As Byte, x As Byte
i = Sheets("BASE DE DONNEE").Range("C1000").End(xlUp).Row
For x = 1 To i
With ListBox1
.AddItem Sheets("BASE DE DONNEE").Cells(x, 2)
.Column(1, .ListCount - 1) = Sheets("base de donnee").Cells(x, 3)
.Column(2, .ListCount - 1) = Sheets("base de donnee").Cells(x, 4)
.Column(3, .ListCount - 1) = Sheets("base de donnee").Cells(x, 5)
.Column(4, .ListCount - 1) = Sheets("base de donnee").Cells(x, 6)
.Column(5, .ListCount - 1) = Sheets("base de donnee").Cells(x, 7)
End With
Next x
End Sub
3 réponses
-
https://forums.commentcamarche.net/forum/affich-2254265-vba-excel-donnees-multiples-listbox#7
et voir "Meilleures réponses" ci -dessous. -
ContributeurSalut le forum
Pour ta première question
Essaye en remplacant
TextBox1.Value
par
TextBox1.Text
Pour ta deuxième question
Remplace
For x = 1 To i
par
For x = 2 To i
Mytå
Merci de donner suite à votre question, nous ne sommes pas des robots...
Versions installées [MsProject 2003(FR), Excel 2003-2007(FR)] -
Raymond j'avais déjà essayé avec sa et sa n'avais pas marché.
Merci quand même
Myta sa fonctionne merci.
