Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Exporter dans une feuille le contenu d'une listbox

Exporter dans une feuille le contenu d'une listbox

7 réponses
Avatar
Marco38
Bonsoir,

J'ai une liste box avec 5 colonnes et je cherche =E0=20
exporter le contenu de ma liste box dans une feuille=20
Excel. Avez vous une solution je suis sur Ex2000 mais je=20
voudrais aussi que cela fonctionne sur Ex97.

Voici mon code pas au top =E0 priori vu le r=E9sultat.

Dim Nb As Integer, A As Integer, Ligne As Integer

Range("A2").Select
ListBox6.BoundColumn =3D 5
ListBox6.ColumnCount =3D 5
Nb =3D Me.ListBox6.ListCount - 1
For I =3D 0 To Nb
Sheets("Feuil1").Cells(1, I).Value =3D Me.ListBox6.Column
(0, I - 1)
Next I
Range("B2").Select
For I =3D 0 To Nb
Sheets("Feuil1").Cells(1, I).Value =3D Me.ListBox6.Column
(1, I - 1)
Next I
Range("C2").Select
For I =3D 0 To Nb
Sheets("Feuil1").Cells(1, I).Value =3D Me.ListBox6.Column
(2, I - 1)
Next I
Range("D2").Select
For I =3D 0 To Nb
Sheets("Feuil1").Cells(1, I).Value =3D Me.ListBox6.Column
(3, I - 1)
Next I
Range("E2").Select
For I =3D 0 To Nb
Sheets("Feuil1").Cells(1, I).Value =3D Me.ListBox6.Column
(4, I - 1)
Next I

Merci pour vos r=E9ponses
Bonsoir,
Marc
Signaler un problème avec ce contenu

7 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Denis Michon
Bonjour Marco,

Admettons que tu aies un combobox sur ta feuille 1 et que ce combobox provienne de la barre d'outils "Contrôle" et que tu
veuilles exporter tout le contenu (5 colonnes) de ton combobox dans la feuille 2 de ton classeur.

Voici un exemple comment faire : Version 97 ou version 2000 ou plus récent.

'-----------------------------
Sub ExporterMaListeVersAutreFeuille()

Dim Tblo As Variant, Rg As Range
Tblo = Me.ComboBox1.List

'Version Excel 97, fonctionne aussi
'dans les autres version
With Worksheets("Feuil2")
Set Rg = .Range("B10")
.Range(Rg(1, 1), Rg(UBound(Tblo, 1) + 1, _
UBound(Tblo, 2) + 1)) = Tblo
End With

Set Rg = Nothing

'Version Excel 2000 et plus récent
'With Worksheets("Feuil2")
' .Range("A1").Resize(UBound(Tblo, 1) + 1, _
' UBound(Tblo, 2) + 1) = Tblo
'End With

End Sub
'-----------------------------


Salutations!




"Marco38" a écrit dans le message de news:09da01c3bdd8$ae176420$
Bonsoir,

J'ai une liste box avec 5 colonnes et je cherche à
exporter le contenu de ma liste box dans une feuille
Excel. Avez vous une solution je suis sur Ex2000 mais je
voudrais aussi que cela fonctionne sur Ex97.

Voici mon code pas au top à priori vu le résultat.

Dim Nb As Integer, A As Integer, Ligne As Integer

Range("A2").Select
ListBox6.BoundColumn = 5
ListBox6.ColumnCount = 5
Nb = Me.ListBox6.ListCount - 1
For I = 0 To Nb
Sheets("Feuil1").Cells(1, I).Value = Me.ListBox6.Column
(0, I - 1)
Next I
Range("B2").Select
For I = 0 To Nb
Sheets("Feuil1").Cells(1, I).Value = Me.ListBox6.Column
(1, I - 1)
Next I
Range("C2").Select
For I = 0 To Nb
Sheets("Feuil1").Cells(1, I).Value = Me.ListBox6.Column
(2, I - 1)
Next I
Range("D2").Select
For I = 0 To Nb
Sheets("Feuil1").Cells(1, I).Value = Me.ListBox6.Column
(3, I - 1)
Next I
Range("E2").Select
For I = 0 To Nb
Sheets("Feuil1").Cells(1, I).Value = Me.ListBox6.Column
(4, I - 1)
Next I

Merci pour vos réponses
Bonsoir,
Marc
Avatar
AV
Autre....XL97 et +
En supposant ta ListBox sur "Feuil1"
Copie de son contenu (ListFillRange) à partir de A1 de "Feuil2" :

Sub zzzz()
Range(Sheets("Feuil1").DrawingObjects("ListBox1").ListFillRange).Copy
(Sheets("Feuil2").Range("A1"))
End Sub

AV
Avatar
Marco38
Bonsoir,

Ma listebox se situe dans une UF ta procédure fonctionne
aussi depuis la UF

Merci
Marc
-----Message d'origine-----
Bonjour Marco,

Admettons que tu aies un combobox sur ta feuille 1 et que
ce combobox provienne de la barre d'outils "Contrôle" et

que tu
veuilles exporter tout le contenu (5 colonnes) de ton
combobox dans la feuille 2 de ton classeur.


Voici un exemple comment faire : Version 97 ou version
2000 ou plus récent.


'-----------------------------
Sub ExporterMaListeVersAutreFeuille()

Dim Tblo As Variant, Rg As Range
Tblo = Me.ComboBox1.List

'Version Excel 97, fonctionne aussi
'dans les autres version
With Worksheets("Feuil2")
Set Rg = .Range("B10")
.Range(Rg(1, 1), Rg(UBound(Tblo, 1) + 1, _
UBound(Tblo, 2) + 1)) = Tblo
End With

Set Rg = Nothing

'Version Excel 2000 et plus récent
'With Worksheets("Feuil2")
' .Range("A1").Resize(UBound(Tblo, 1) + 1, _
' UBound(Tblo, 2) + 1) = Tblo
'End With

End Sub
'-----------------------------


Salutations!




"Marco38" a écrit
dans le message de news:09da01c3bdd8$ae176420

$
Bonsoir,

J'ai une liste box avec 5 colonnes et je cherche à
exporter le contenu de ma liste box dans une feuille
Excel. Avez vous une solution je suis sur Ex2000 mais je
voudrais aussi que cela fonctionne sur Ex97.

Voici mon code pas au top à priori vu le résultat.

Dim Nb As Integer, A As Integer, Ligne As Integer

Range("A2").Select
ListBox6.BoundColumn = 5
ListBox6.ColumnCount = 5
Nb = Me.ListBox6.ListCount - 1
For I = 0 To Nb
Sheets("Feuil1").Cells(1, I).Value = Me.ListBox6.Column
(0, I - 1)
Next I
Range("B2").Select
For I = 0 To Nb
Sheets("Feuil1").Cells(1, I).Value = Me.ListBox6.Column
(1, I - 1)
Next I
Range("C2").Select
For I = 0 To Nb
Sheets("Feuil1").Cells(1, I).Value = Me.ListBox6.Column
(2, I - 1)
Next I
Range("D2").Select
For I = 0 To Nb
Sheets("Feuil1").Cells(1, I).Value = Me.ListBox6.Column
(3, I - 1)
Next I
Range("E2").Select
For I = 0 To Nb
Sheets("Feuil1").Cells(1, I).Value = Me.ListBox6.Column
(4, I - 1)
Next I

Merci pour vos réponses
Bonsoir,
Marc


.



Avatar
Denis Michon
Bonjour Marco38,

"ta procédure fonctionne aussi depuis la UF"


C'est AV qui va être content d'apprendre ça !!!

;-))


Salutations!


"Marco38" a écrit dans le message de news:115501c3be6d$094f98f0$
Bonsoir,

Ma listebox se situe dans une UF ta procédure fonctionne
aussi depuis la UF

Merci
Marc
-----Message d'origine-----
Bonjour Marco,

Admettons que tu aies un combobox sur ta feuille 1 et que
ce combobox provienne de la barre d'outils "Contrôle" et

que tu
veuilles exporter tout le contenu (5 colonnes) de ton
combobox dans la feuille 2 de ton classeur.


Voici un exemple comment faire : Version 97 ou version
2000 ou plus récent.


'-----------------------------
Sub ExporterMaListeVersAutreFeuille()

Dim Tblo As Variant, Rg As Range
Tblo = Me.ComboBox1.List

'Version Excel 97, fonctionne aussi
'dans les autres version
With Worksheets("Feuil2")
Set Rg = .Range("B10")
.Range(Rg(1, 1), Rg(UBound(Tblo, 1) + 1, _
UBound(Tblo, 2) + 1)) = Tblo
End With

Set Rg = Nothing

'Version Excel 2000 et plus récent
'With Worksheets("Feuil2")
' .Range("A1").Resize(UBound(Tblo, 1) + 1, _
' UBound(Tblo, 2) + 1) = Tblo
'End With

End Sub
'-----------------------------


Salutations!




"Marco38" a écrit
dans le message de news:09da01c3bdd8$ae176420

$
Bonsoir,

J'ai une liste box avec 5 colonnes et je cherche à
exporter le contenu de ma liste box dans une feuille
Excel. Avez vous une solution je suis sur Ex2000 mais je
voudrais aussi que cela fonctionne sur Ex97.

Voici mon code pas au top à priori vu le résultat.

Dim Nb As Integer, A As Integer, Ligne As Integer

Range("A2").Select
ListBox6.BoundColumn = 5
ListBox6.ColumnCount = 5
Nb = Me.ListBox6.ListCount - 1
For I = 0 To Nb
Sheets("Feuil1").Cells(1, I).Value = Me.ListBox6.Column
(0, I - 1)
Next I
Range("B2").Select
For I = 0 To Nb
Sheets("Feuil1").Cells(1, I).Value = Me.ListBox6.Column
(1, I - 1)
Next I
Range("C2").Select
For I = 0 To Nb
Sheets("Feuil1").Cells(1, I).Value = Me.ListBox6.Column
(2, I - 1)
Next I
Range("D2").Select
For I = 0 To Nb
Sheets("Feuil1").Cells(1, I).Value = Me.ListBox6.Column
(3, I - 1)
Next I
Range("E2").Select
For I = 0 To Nb
Sheets("Feuil1").Cells(1, I).Value = Me.ListBox6.Column
(4, I - 1)
Next I

Merci pour vos réponses
Bonsoir,
Marc


.



Avatar
AV
C'est AV qui va être content d'apprendre ça !!!


Boff.... les infos suplémentaires (et parfois contradictoires ) qui arrivent
après les questions ET les réponses, on a l'habitude !
;-)

AV

Avatar
Marco38
Bonsoir,

Milles excuses pour l'oubli sur la UF

Ca fonctionne bien merci

Bonne soirée
Marc
-----Message d'origine-----
Bonjour Marco38,

"ta procédure fonctionne aussi depuis la UF"


C'est AV qui va être content d'apprendre ça !!!

;-))


Salutations!


"Marco38" a écrit
dans le message de news:115501c3be6d$094f98f0

$
Bonsoir,

Ma listebox se situe dans une UF ta procédure fonctionne
aussi depuis la UF

Merci
Marc
-----Message d'origine-----
Bonjour Marco,

Admettons que tu aies un combobox sur ta feuille 1 et
que


ce combobox provienne de la barre d'outils "Contrôle" et
que tu
veuilles exporter tout le contenu (5 colonnes) de ton
combobox dans la feuille 2 de ton classeur.


Voici un exemple comment faire : Version 97 ou version
2000 ou plus récent.


'-----------------------------
Sub ExporterMaListeVersAutreFeuille()

Dim Tblo As Variant, Rg As Range
Tblo = Me.ComboBox1.List

'Version Excel 97, fonctionne aussi
'dans les autres version
With Worksheets("Feuil2")
Set Rg = .Range("B10")
.Range(Rg(1, 1), Rg(UBound(Tblo, 1) + 1, _
UBound(Tblo, 2) + 1)) = Tblo
End With

Set Rg = Nothing

'Version Excel 2000 et plus récent
'With Worksheets("Feuil2")
' .Range("A1").Resize(UBound(Tblo, 1) + 1, _
' UBound(Tblo, 2) + 1) = Tblo
'End With

End Sub
'-----------------------------


Salutations!




"Marco38" a écrit
dans le message de news:09da01c3bdd8$ae176420

$
Bonsoir,

J'ai une liste box avec 5 colonnes et je cherche à
exporter le contenu de ma liste box dans une feuille
Excel. Avez vous une solution je suis sur Ex2000 mais je
voudrais aussi que cela fonctionne sur Ex97.

Voici mon code pas au top à priori vu le résultat.

Dim Nb As Integer, A As Integer, Ligne As Integer

Range("A2").Select
ListBox6.BoundColumn = 5
ListBox6.ColumnCount = 5
Nb = Me.ListBox6.ListCount - 1
For I = 0 To Nb
Sheets("Feuil1").Cells(1, I).Value = Me.ListBox6.Column
(0, I - 1)
Next I
Range("B2").Select
For I = 0 To Nb
Sheets("Feuil1").Cells(1, I).Value = Me.ListBox6.Column
(1, I - 1)
Next I
Range("C2").Select
For I = 0 To Nb
Sheets("Feuil1").Cells(1, I).Value = Me.ListBox6.Column
(2, I - 1)
Next I
Range("D2").Select
For I = 0 To Nb
Sheets("Feuil1").Cells(1, I).Value = Me.ListBox6.Column
(3, I - 1)
Next I
Range("E2").Select
For I = 0 To Nb
Sheets("Feuil1").Cells(1, I).Value = Me.ListBox6.Column
(4, I - 1)
Next I

Merci pour vos réponses
Bonsoir,
Marc


.




.




Avatar
Bonsoir,

Milles excuses pour les infos supplémentaires : un oubli

Ca fonctionne bien merci

Bonne soirée
Marc


-----Message d'origine-----
C'est AV qui va être content d'apprendre ça !!!


Boff.... les infos suplémentaires (et parfois
contradictoires ) qui arrivent

après les questions ET les réponses, on a l'habitude !
;-)

AV


.