Exporter le contenu d'une listbox dans un autre fichier

Bonjour a tous je recréer un sujet car mon précédent n'étais pas très clair,

alors voila dans mon userform je possède un onglet appeler "Rechercher" celui ci permet d'effectuer une recherche multicritères pour trier les commandes

les commandes donc correspondantes aux critères sont affichées dans une Listbox.

Mon but est donc grâce au bouton exporter de récuperer les commandes affichées dans la Listbox et de retranscrire dans un autre fichier excel crée .

33gestion-stock.xlsm (117.85 Ko)

n'hésiter pas a me demander des précision ou si ma demande n'est pas réalisable ,

cordialement Nathan

Bonjour Natanexcel, bonjour le forum,

Comme ton fichier plante je t'ai créé un petit exemple vite fait que tu devrais adapter facilement.

Le code important est celui du bouton de l'UserForm1 :

Private Sub CommandButton1_Click()
Dim CS As Workbook
Dim CD As Workbook
Dim OD As Worksheet

Set CS = ThisWorkbook
Set CD = Workbooks.Add
Set OD = CD.Worksheets(1)
OD.Range("A1").Resize(Me.ListBox1.ListCount, Me.ListBox1.ColumnCount).Value = Me.ListBox1.List
Unload Me
End Sub

Le fichier :

Salut excusez moi pour mon fichier si il ne fonctionne pas pour vous en tout cas merci j'ai réussit a l'adapter et il fonctionne comme il faut un grand merci !

Edit: serait t'il possible de bloqué le bouton si la listbox est vide pour éviter une erreur ?

Re,

Si ta ListBox prend en compte la ligne de titre, rajoute au début du code :

If Me.ListBox1.ListCount = 1 Then Exit Sub

sinon, rajoute :

If Me.ListBox1.ListCount = 0 Then Exit Sub

Re

alors quand j'essaye de rajouter une des deux lignes cela me donne un message d'erreur du type : Erreur d'éxécution : -2147024809 objet spécifié introuvable

voici le code :

Private Sub btn_Exporter_Click()

If Me.LBxRecherche.ListCount = 1 Then Exit Sub

Else

Dim CS As Workbook
Dim CD As Workbook
Dim OD As Worksheet

Set CS = ThisWorkbook
Set CD = Workbooks.Add
Set OD = CD.Worksheets(1)
OD.Range("A1").Resize(Me.LBxRecherche.ListCount, Me.LBxRecherche.ColumnCount).Value = Me.LBxRecherche.List
Unload Me
End If
End Sub

LbxRecherche étant le nom de ma listbox

Re,

La ligne du Else est en trop !... Supprime la ou alors écrit :

Private Sub btn_Exporter_Click()
Dim CS As Workbook
Dim CD As Workbook
Dim OD As Worksheet

If Me.LBxRecherche.ListCount = 1 Then
   Exit Sub
Else
    Set CS = ThisWorkbook
    Set CD = Workbooks.Add
    Set OD = CD.Worksheets(1)
    OD.Range("A1").Resize(Me.LBxRecherche.ListCount, Me.LBxRecherche.ColumnCount).Value = Me.LBxRecherche.List
    Unload Me
End If
End Sub

P.S. Il est usuel de mettre les déclarations de variables au début d'un code...


cela marche très bien merci beaucoup

Rechercher des sujets similaires à "exporter contenu listbox fichier"