• Initiateur de la discussion Initiateur de la discussion gds35
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

gds35

XLDnaute Impliqué
Mes AMIS DU FORUM Bonjours , Bon Dimanche

Je desire alimenter dans un usf une listbox a partir d'une feuille , puis pouvoir alimenter des textbox avec la valeur selection (dans la feuille j'ai 5 colonnes)
qu'il me faut afficher dans la listbox , j'ai tenté ceci ....
For W = 1 To 30
LISTRUMODIFANUL.RowSource = "RU!" & Range("A" & W).Address & Range("B" & W).Address
W = W + 1
Next
Mais je tombe en erreur . Comment faut-il proceder pour afficher dans la listbox puis alimenter les textbox avec la valeur de chaque colonne dans le but ensuite de modifier mon fichier;

Merci de votre aide

GDS35
 
Re : pb listbox

Bonjour Gds35,

Pour alimenter la listbox avec plusieurs colonnes, tu définis d'abord le nombre de colonnes de la listbox:

Code:
ListBox1.ColumnCount = 5

Puis la source de données:

Code:
ListBox1.RowSource = "B2:E5"

Pas de boucle puisque tu dois définir une seule fois la source de données. Dans ton exemple, tu le fais 30 fois🙄

@+

Gael
 
Re : pb listbox

Bonjour gds35, Gael,

1- Un exemple d'initialisation d'une ListBox à plusieurs colonnes (ici deux) avec la largeur à leur donner. La feuille des données est ici nommée "RENSEIGNEMENTS".

Private Sub UserForm_Initialize()
With Sheets("RENSEIGNEMENTS")
DerLigne = .Range("B1002").End(xlUp).Row
' Boucle sur les lignes de la feuille renseignement
ReDim Tablo(1 To DerLigne - 1, 1 To 2)
k = 1
For Lig = 2 To DerLigne
If .Cells(Lig, 1) <> "" Then
Tablo(k, 1) = .Cells(Lig, 2)
Tablo(k, 2) = .Cells(Lig, 1)
k = k + 1
End If
Next Lig
ListBox1.ColumnCount = 2
ListBox1.ColumnWidths = "70;70"
ListBox1.List() = Tablo
End With
End Sub

2- Le renvoi des données présentes dans une lignes de la lisbox dans des TextBox :

Private Sub ListBox1_Click()
IndexList = ListBox1.ListIndex + 2
With Sheets("RENSEIGNEMENTS")
For k = 1 To 11
Me.Controls("Textbox" & k) = .Cells(IndexList, k)
Next k
End With
End Sub


Cordialement

Bernard
 
Re : pb listbox

bONJOUR ? Gael , CBERNARDT , le Forum ,

Tout d'abord merci de votre aide ,

qui fonctionne jusqu'à l'initialisation de l'USF , une chose que je ne comprends dans le code de CBERNARDT , c'est cette partie :

Private Sub ListBox1_Click()
IndexList = ListBox1.ListIndex + 2
With Sheets("RENSEIGNEMENTS")
For k = 1 To 11
Me.Controls("Textbox" & k) = .Cells(IndexList, k)
Next k
End With
End Sub

Indexlist=listbox1.Listindex + 2 (Textbox1 = le nom de ma box)
et Me.controls("Textbox" & k ........

Je ne peux remplir mes 3 text box NOM PRENOM et TRI , j'ai adapter le code avec 3 Colonne.

Pourrais je avoir un eclaircissement supplémentaire .

D'avance Merci Cordialement GDS35
 
Re : pb listbox

Salut Bernard

Voila comment j'ai adapte ton code

Private Sub LISTRUMODIFANUL_Click()
IndexList = LISTRUMODIFANUL.ListIndex + 3
With Sheets("RU")
For k = 1 To 11
Me.Controls("LISTRUMODIFANUL" & k) = .Cells(IndexList, k)
Next k
End With

End Sub

et sur cette ligne

Me.Controls("LISTRUMODIFANUL" & k) = .Cells(IndexList, k)

Je tombe en erreur "OBJET SPECIFIE INTROUVABLE"

Cela confirme que je n'ai ps compris l'ensemble de ton code

et comprends pas pourquoi for 1 to 11

Encore merci Cordialement gds35
 
Re : pb listbox

Re Salut bernard ,

Je viens de tester ta modif , j'ai tj la meme erreur .
je ne comprends pas l'erreur
"OBJET SPECIFIE INTROUVABLE"
lorsque dans ton code original tu mets"textbox" , c'est bien le nom de ma textbox que jr doid indiquer et en + je ne vois pas sans spécification de textbox comment elle vous se remplir.
La j'avoue que je ne comprends pas le code , pas soucis on y arriverra....

Bonne soirée cordialement
Gérard
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
7
Affichages
462
Retour