Selection de lignes listbox

Bonjour,

Je viens de nouveau vers vous pour un problème de listbox.

L'utilisateur du formulaire sélectionne plusieurs lignes sur la listbox (alimentée par un worksheet). Puis il clic sur un bouton "export".
Cette procédure ouvre un autre fichier excel gardant les entêtes et affichant la date.

J'arrive à faire ceci avec une méthode range et des cellules fixes. Mais comment le faire pour que ce soit les lignes sélectionnées (et donc cette sélection peut varier) qui soient exportées?

Voici où je bloque:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25

Private Sub Exportxls_Click() 'Sélection de la plage à copier et copie(de a à j (1 à 10): Dim LigneSelectionnee As Integer 'cherche les lignes sélectionnées: LigneSelectionnee = Me.L_Fournisseurs.ListIndex + 2 If Me.L_Fournisseurs.ListCount >= 0 Then _ Range("LigneSelectionnee,A1:j1").Select Selection.Copy 'Ouverture d'un nouveau classeur et sélection de la feuil1 Workbooks.Add Sheets("Feuil1").Select 'Collage des données + sélection ligne 1 ActiveSheet.Paste ActiveSheet.Rows("1:1").Select 'insertion de 2 lignes et écriture en cellule A1 la date Selection.Insert Shift:=xlDown Selection.Insert Shift:=xlDown ActiveCell = "Export réalisé le " & Now 'police en gras ActiveCell.Font.Bold = True 'Nommer la feuille Sheets("Feuil1").Name = "Export"     End Sub

---

Bien sur mon erreur se situe au niveau du range:

Code:

---

Range("LigneSelectionnee,A1:j1").Select

---

Merci pour votre aide.

Elumastebit

Bonjour,

Je n'y connais pas grand chose, mais est-ce qu'il ne manque pas des guillemets?

Code:

---

Range("LigneSelectionnee","A1:J1").Select

---

Bonjour macat,

J'ai essayé comme tu as dit, j'ai même essayé en plaçant les guillemets à différents endroits et le problème est toujours le même.

De plus le problème est le même si je veux imprimer; En gros ce que je recherche à faire c'est comment selectionnér le contenu de cellules d'un worksheet en ayant sélectionné les lignes d'une listbox?

Merci.

Elumastebit

Pour info:

Grâce à cette procédure:

Code:

---

1 2 3 4 5 6 7 8

Private Sub Exportxls_Click() Dim i As Byte   'boucle sur les éléments de la listbox For i = 0 To ListBox.ListCount - 1 If ListBox.Selected(i) = True Then MsgBox ListBox.List(i) Next i End Sub

---

On a bien une msgbox qui nous indique toutes les lignes sélectionnées, il doit donc être possible de faire un "copy/paste" avant le next i?

Elumastebit

Sans avoir testé, je dirais de remplacer

Code:

---

1 2	Range("LigneSelectionnee,A1:j1").Select Selection.Copy

---

par

Code:

---

Range(Cells(LigneSelectionnee, 1), Cells(LigneSelectionnee, 10).Copy

---

Bonjour à tous, Bonjour AlainTech,

Merci pour ce code il fonctionne mais me renvoi uniquement la dernière ligne sélectionnée et non toutes les lignes sélectionnées.

Peut-être une boucle for i du style:

Code:

---

1 2 3 4 5 6 7 8

Dim LigneSelectionnee As Integer LigneSelectionnee = Me.L_Fournisseurs.ListIndex + 2 For i=??? to listcount If Me.Listbox.ListCount >= 0 Then _ Range(Cells(LigneSelectionnee, 1), Cells(LigneSelectionnee, 10)).Copy sheets(feuil1).Paste end if next i

---

J'ai bien du mal à mettre ça en forme...

Merci de votre aide.

Elumastebit