!besoin d'aide! info listbox dans textbox
Résolu
poufab
Messages postés
29
Date d'inscription
Statut
Membre
Dernière intervention
-
poufab Messages postés 29 Date d'inscription Statut Membre Dernière intervention -
poufab Messages postés 29 Date d'inscription Statut Membre Dernière intervention -
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
A voir également:
- !besoin d'aide! info listbox dans textbox
- Crystal disk info - Télécharger - Informations & Diagnostic
- Info pc - Guide
- Wifi info view - Télécharger - Divers Réseau & Wi-Fi
- Info free: votre encours sur le service internet est supérieur à 10 € ✓ - Forum iPhone
- I-info - Télécharger - Médias et Actualité
3 réponses
https://forums.commentcamarche.net/forum/affich-2254265-vba-excel-donnees-multiples-listbox#7
et voir "Meilleures réponses" ci -dessous.
et voir "Meilleures réponses" ci -dessous.
Salut 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)]
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)]
