Aide pour apparaitre les données par rapport à listbox

[bobylecoyote]

Bonsoir,

j'ai quasi fini une base pour une assoc de danse et je suis bloqué...

J'ai un USF avec des textbox et une listbox.

C'est listbox reprend le nom-prénom de chaque adhérent.

Ce que j'aimerais dans un 1er temps est que lorsque je cliques sur un nom , le sinfos contenues sur la même ligne que son nom soit affichées dans les textbox mais de façon à seulement pouvoir consulter la fiche.

En 2nd lieu, si je clique sur modifier, la partie info personnelle soit modifiable (active les textbox).

Merci pour votre aide

 

[Pierrot93]

Re : Aide pour apparaitre les données par rapport à listbox

Bonjour Boby,

Attention ce classeur bloque excel à la fermeture, c'est bien d'enlever la barre de titre de l'USF, encore faut il gérer la suite...

bon dimanche

 

[bobylecoyote]

Re : Aide pour apparaitre les données par rapport à listbox

exact, dans le modèle mis en ligne ça plantait mais chez moi c'est bon

ça devrait être bon maintenant.🙂

 

[Pierrot93]

Re : Aide pour apparaitre les données par rapport à listbox

Re

désolé mais pas envie de renouveller cette facheuse expérience, de toute facon code trop fort pour moi.

@+

 

[bobylecoyote]

Re : Aide pour apparaitre les données par rapport à listbox

comment remplir la listbox avec les valeurs de la colonne S (nom prénom) outre Rowsource dans la propriété de la listbox.

 

[Pierrot93]

Re : Aide pour apparaitre les données par rapport à listbox

Re

pour alimenter une listbox avec les donnnées de la colonnes s de la feuille 1:

With Sheets("Feuil1")
    ListBox1.List = .Range("S1:S" & .Range("S65536").End(xlUp).Row).Value
End With

 

[bobylecoyote]

Re : Aide pour apparaitre les données par rapport à listbox

cool, merci la FAQ


reste maintenant à donner les valeurs aux testox suivant la valeurs selectionné dans la listbox😱


dernière version du fichier

 

[bobylecoyote]

Re : Aide pour apparaitre les données par rapport à listbox

Re

pour alimenter une listbox avec les donnnées de la colonnes s de la feuille 1:

With Sheets("Feuil1")
    ListBox1.List = .Range("S1:S" & .Range("S65536").End(xlUp).Row).Value
End With

😱😱😱😱


merci à toi.c'est ceci que j'ai trouvé dans la FAQ. Je ne faisais qu'une recherche dans les nombreux post et je trouvais rien

 

[Pierrot93]

Re : Aide pour apparaitre les données par rapport à listbox

Re

un exemple pour alimenter des textbox à partir d'une listbox. J'ai placé les colonnes devant alimenter les textbox dans des colonnes non affichées de la listbox. Plus simple à mon avis à gérer.

@+

 

[bobylecoyote]

Re : Aide pour apparaitre les données par rapport à listbox

Merci

cependant si je mets ceci sur le bouton RECHERCHE

Private Sub CommandButton1_Click()
If adhérents.ListIndex <> -1 Then
Tbx_Nom.Value = adhérents.List(adhérents.ListIndex, -17)
Tbx_Prénom.Value = adhérents.List(adhérents.ListIndex, -16)
End If

End Sub

ça marches pas 🙁

Est-ce que ceci vient du fait que je demande d'aller chercher la 17ème colonne avant?

 

[Pierrot93]

Re : Aide pour apparaitre les données par rapport à listbox

Re

combien as tu mis de colonnes dans ta listbox ?

Dans le code donné :

TextBox1.Value = ListBox1.List(ListBox1.ListIndex, 1)

"ListBox1.ListIndex" represente le numéro de la ligne selectionnée et le 1 represente la colonne (la 2ème), et ce dans la liste de ta "listbox". Donc -16 ou -17 ne seront jamais des numéros de colonnes valides.

@+

 

[bobylecoyote]

Re : Aide pour apparaitre les données par rapport à listbox

Je n'ai mis qu'une colonne. La dernière de la feuille.

Je me pose donc la question à savoir si je dois pas la mettre en 1Er du coup

J'ai opté pour cette solution

Private Sub UserForm_Initialize()
With adhérents
.ColumnCount = 18
.ColumnWidths = "100;0;0"
End With

Dim Plage As String
With Sheets("T_Table_T")
Plage = .Range("a2:a" & .Range("a65536").End(xlUp).Row).Address
End With
adhérents.RowSource = "T_Table_T!" & Plage
End Sub

et sur click

Private Sub CommandButton1_Click()
If adhérents.ListIndex <> -1 Then
Tbx_Nom.Value = adhérents.List(adhérents.ListIndex, 2)
Tbx_Prénom.Value = adhérents.List(adhérents.ListIndex, 3)
End If

End Sub

ça bug sur la ligne rouge, même si je changes la valeur de la colonne a chercher

 

[Pierrot93]

Re : Aide pour apparaitre les données par rapport à listbox

Re

là je ne comprends plus...

 

[bobylecoyote]

Re : Aide pour apparaitre les données par rapport à listbox

cette partie là sert à quoi exactement?

.ColumnWidths = "100;0;0"

 

[Pierrot93]

Re : Aide pour apparaitre les données par rapport à listbox

Re

si tu n'as mis qu'une seule colonne, forcement il faut procéder différemment, et dans ce cas inutile de préciser une colonne.

cette partie là sert à quoi exactement?

Citation:
.ColumnWidths = "100;0;0"

à définir les largeurs de colonnes de ta listbox, mais si tu n'en mets qu'une, inutile.