monsieursapin
XLDnaute Nouveau
Bonjour à tous,
je suis tout nouveau sur ce forum et malgré la recherche soutenue que j'ai fait dans la journée, je n'ai pas trouvé de solution à mon problème.
Je vous l'explicite :
Dans le cadre de la création d'un formulaire avec une Userform ,dans mon fichier Excel, j'ai eu l'idée de placer une ListBox afin que les personnes accédant au fichier puissent sélectionné ce qu'il leur correspond. Cette ListBox est réglée afin d'accepter la multi-sélection et j'ai pu récupérer le résultat afin de l'insérer dans un cellule. Maintenant, et c'est là que ça se complique, j'ai crée une 2ne Userform pour modifier un profil et je n'arrive pas à faire figurer l'ancienne sélection de mon profil...
Tout est dans ma cellule mais je n'arrive pas à rappeler la sélection :/
Un peu d'aide ?
EDIT : Je vous joins le code pour que vous compreniez mieux !
ListBox6 est la la box qui m'intéresse pour la modification, elle est crée dans un Userform.
Merci d'avance !
je suis tout nouveau sur ce forum et malgré la recherche soutenue que j'ai fait dans la journée, je n'ai pas trouvé de solution à mon problème.
Je vous l'explicite :
Dans le cadre de la création d'un formulaire avec une Userform ,dans mon fichier Excel, j'ai eu l'idée de placer une ListBox afin que les personnes accédant au fichier puissent sélectionné ce qu'il leur correspond. Cette ListBox est réglée afin d'accepter la multi-sélection et j'ai pu récupérer le résultat afin de l'insérer dans un cellule. Maintenant, et c'est là que ça se complique, j'ai crée une 2ne Userform pour modifier un profil et je n'arrive pas à faire figurer l'ancienne sélection de mon profil...
Tout est dans ma cellule mais je n'arrive pas à rappeler la sélection :/
Un peu d'aide ?
EDIT : Je vous joins le code pour que vous compreniez mieux !
Code:
Dim Qualifications As String
Dim Qualifications_nothing As String
Qualifications_nothing = ""
For s = 0 To ListBox6.ListCount - 1
If ListBox6.Selected(s) = True Then
Qualifications = Qualifications & ListBox6.List(s) & ", "
Else
ListBox6.Selected(s) = False
End If
Next s
Merci d'avance !
Dernière édition: