Problème listbox multiselect

Version imprimable

15/01/2017, 14h02
mimicor15

Problème listbox multiselect

Bonjour le forum

je vous expose mon probleme:

J'ai 3 feuilles "Feuil1, Feuil2, Feuil3)
La feuille 1 contient un tableau à 3 colonnes de données (des actions à réalisées)
La feuille 3 contient un tableau à 3 colonnes de données aussi ( des noms, etc)

La feuille 2 me sert à recupérer les données actions/noms.

J'ai créé un userform (essai) contenant un combo multi colonnes pour le tableau actions et une listbox multi colonne multiselect pour les noms et un bouton valider.

L'objectif est de sélectionner une action dans le combo, un ou plusieurs noms dans la listbox et de copier l'ensemble sur la feuil2.
En fait je veux faire une boucle sur les noms sélectionnés et créer une nouvelle ligne à chaque fois.
Ex: pour la list box col A "nom" col b "prenoms" col C"age" et pour la combo col A "module" col b "uv" col C "thème"

quand je clic sur valide

Sur la feuille 2 j’incrémente des lignes en bouclant sur les noms selectionnés
col A "nom", col b "prenoms" col C"age" col c "module" col d "uv" col, e "thème"
Boucle sur list colle sur feuil 2

1er noms et combo et ainsi de suite

Quelqu'un peut il m'aider merci, soit je n'ai qu'une colonne qui s'incremente soit je n'ai rien qui se passe

1 pièce(s) jointe(s)

Bonsoir,

Pour être + rapide, on peut utiliser un Array

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
Private Sub UserForm_Initialize()
  Set f = Sheets("bd")
  Set plg = f.Range("a2:b" & f.[a65000].End(xlUp).Row)
  Me.ListBox1.List = plg.Value
  Me.ListBox1.MultiSelect = fmMultiSelectMulti
End Sub
 
Private Sub CommandButton1_Click()
   Sheets("recup").[A2:B1000].ClearContents
   ligne = 2
   For i = 0 To Me.ListBox1.ListCount - 1
     If Me.ListBox1.Selected(i) = True Then
       For k = 0 To Me.ListBox1.ColumnCount - 1
         Sheets("recup").Cells(ligne, k + 1) = Me.ListBox1.List(i + k)
       Next k
       ligne = ligne + 1
     End If
  Next i
End Sub

Boisgontier
http://boisgontierjacques.free.fr

15/01/2017, 20h00
mimicor15

re

bonjour

merci pour votre réponse, j'étais justement sur votre blog à regarder vos exemples. Vraiment super pour des novices comme moi, je comprend pas tout mais j'essaye de bidouiller des truc pour me faciliter la vie au boulot (j'étais précisément sur cet exemple)
Concernant mon problème je viens de coller le code, ça ne colle que la valeur de la première colonne du listbox.
J'ai retiré la remise a zéro car je souhaite que les lignes se collent les une après les autres.

Code:

Ligne = Feuil2.Cells(Feuil2.Rows.count, 1).End(xlUp).Row + 1