Listbox

[guevain]

Bonjour a tous ,
j'ai une liste variables dans une listbox(a choix multiple)
Je souhaiterai que chaque sélection arrive dans une cellule différente . Ex:choix1 en A1. , choix2 en C2 , etc...
J'arrive bien a extraire les données dans une meme cellule en ajoutant un séparateur mais impossible de mettre plusieurs choix dans plusieurs cellules.
Si besoin d'un extrait du fichier , je le mettrai demain. Car il est sur mon PC pro.

Merci a tous ceux qui se pencherons sur mon problème

 

[adel53]

Re : Listbox

Bonjour

Voici un fichier correspondant à ta demande pas d'utilisation de listbox par contre

Cordialement

 

[guevain]

Re : Listbox

bonjour adel 53
merci pour ta réponse , mais je suis novice sous VB et je ne connait pas encore toutes les subtilité du langage.

pourrais tu me renvoyer le fichier avec les fonctions non utilisés supprimer et me détaillé en commentaire a quoi correspond les différentes etapes.

merci d'avance

 

[adel53]

Re : Listbox

Bonjour

Serait-il possible de mettre un fichier exemple afin que j'adapte le code à ton fichier ce sera plus simple.
merci

 

[guevain]

Re : Listbox

Bonjour
Des mon retour de dejeuner je mets le fichier en partage
Merci

 

[job75]

Re : Listbox

Bonjour guevain, adel53,

En attendant le fichier réel, une solution simple dans le fichier joint :

Private Sub CommandButton1_Click()
Dim s, i&, t(), n&
s = [Liste] 'RowSource
For i = 0 To ListBox1.ListCount - 1
  If ListBox1.Selected(i) Then
    ReDim Preserve t(n)
    t(n) = s(i + 1, 1)
    n = n + 1
  End If
Next
Range("C2:C" & Rows.Count).ClearContents 'RAZ
If n Then [C2].Resize(n) = Application.Transpose(t)
End Sub

A+

 

[guevain]

Re : Listbox

bonjour job 75,

j'ai colle ton code dans mon fichier et cela ne fonctionne pas , elle me resort l'erreur 2029

je mets mon fichier en partage pour que se soit plus clair

 

[adel53]

Re : Listbox

bonjour guevain

Tu as du oublié de joindre le fichier

Cordialement

 

[job75]

Re : Listbox

Re,

elle me resort l'erreur 2029

Vous n'avez pas bien étudié mon fichier (qui lui ne beugue pas) :

- définissez le nom Liste comme je l'ai fait

- entrez "Liste" dans la propriété RowSource de la ListBox.

A+

 

[guevain]

Re : Listbox

Re
Effectivement ton fichier ne bug pas
C'est lorsque que je colle le code dans le mien que ca bug
Je vais regarder pour changer la valeur de la ligne row source

 

[job75]

Re : Listbox

Re,

Je vais regarder pour changer la valeur de la ligne row source

Très bien mais je vous ai aussi dit de regarder le nom défini Liste :

Onglet Formules, Gestionnaire de noms => Liste, formule =DECALER(Feuil1!$A$1;1;;NBVAL(Feuil1!$A:$A)-1)

Et vous n'avez toujours pas déposé votre fichier

A+

 

[guevain]

Re : Listbox

bonjour ,

désoler pour le fichier mais une réunion de crises m'est tombé dessus.

de plus mon fichier est trop lourds pour être poste (même en .ZIP)

il faut que je réduise mon fichier (il contient pas mal d'image).

au vu de l'heure avancée , je vais rentrer et posterai le fichier demain (ou se soir si j'ai du courage une fois a la maison !!!!!)

merci de tout les complément d'information que tu m'a mis

 

[guevain]

Re : Listbox

re bonjour ,

voici le fichier , j'ai bien defini le nom "Liste" et renseigner la ligne row source.

il me resort une nouvelle erreur 2023.je ne comprend pas ou est le bug.j'essai de basculer mes données et ma formule d'incrementation dans votre fichier pour voir !!!!

merci pour votre implication

 

[guevain]

Re : Listbox

Apres analyse , cela ne fonctionne pas car le nom defini fait appel directement a la lostbox tandis que la mienne est incrementer de facon aleatoire. Voila deja se que j'ai pu voir a mon niveau

 

[job75]

Re : Listbox

Bonsoir guevain,

Il s'agit de l'USF selecretiquette et il ne faut pas y faire n'importe quoi.

Soit vous remplissez la ListBox par la méthode RowSource soit vous la remplissez par la méthode AddItem.

J'ai donc viré toute votre macro UserForm_Initialize pour utiliser la méthode RowSource.

En plus vous n'aviez pas défini le nom liste correctement, il s'agit de Feuil4 !

Votre fichier corrigé joint.

PS. Je pars en week-end demain matin.

A+