listbox a deux colonnes

Marsh Posté le 03-05-2005 à 18:57:54

:hello: Bonjour le forum, :hello:
J'ai un petit problème : sur une userform j'ai une liste boxe a deux colonnes (nom+prénom). L'utilisateur choisit dans cette listbox un nom+prénom et ensuite une procédure me permet de supprimer une feuille a son nom+prénom. J'utilise le code suivant :
Sheets(LB.Value).Select
avec LB=nom de ma liste box
Ce code devrait me permettre de selectionner la feuille. Le problème c'est que le .value renvoi uniquement le nom et pa le prénom alors que celui ci s'affiche bien dans la liste box, du coup je ne peux pas supprimer ma feuille car elle est nommée par le nom+prénom...
Comment faire???
merci de votre aide :pt1cable:

Reply

Marsh Posté le 03-05-2005 à 18:57:54

Reply

Marsh Posté le 03-05-2005 à 19:50:30

Ne travaille pas en 2 colonnes dans ta listBox, concatène les nom et prénom.
Plus simple à gérer à tous points de vue.

---------------
Si on vous donne une info qui marche, DITES-LE!!!! ------ Si vous trouvez seul, AUSSI, votre solution peut servir à d'autres! ------ Je dois la majorité de mes connaissances à mes erreurs!

Reply

Marsh Posté le 03-05-2005 à 19:54:59

merci c'est pas mal comme idée mais le probleme c'est que le row source de ma listbox s'étendent sur 2 colonnes (nom et prenom)et je ne voit pas comment faire en concaténant

Reply

Marsh Posté le 03-05-2005 à 20:47:35

Private Sub UserForm_Activate()
Dim rSource As Range
Dim vI As Variant
Sheets("Feuille" ).Activate
Set rSource = Range([A1], [A1].End(xlDown))
Me.ListBox1.Clear
For Each vI In rSource
Me.ListBox1.AddItem (vI & " " & vI.Cells(1, 2))
Next vI
End Sub

---------------
Si on vous donne une info qui marche, DITES-LE!!!! ------ Si vous trouvez seul, AUSSI, votre solution peut servir à d'autres! ------ Je dois la majorité de mes connaissances à mes erreurs!

Reply

Marsh Posté le 04-05-2005 à 08:18:19

meri beaucoup ;-)

---------------
Arkancylla

Reply

listbox a deux colonnes

Sujets relatifs:

Leave a Replay