Exportation données listbox

[lagroumph]

Bonjour,

Voici un fichier test où j'aimerai que le contenu de la listbox2 s'inscrive dans la colonne 1 à la suite des données de la listebox 1. Le but est de créer plusieurs listbox et, in fine, une colonne qui reprendrai toutes les données à la suite.

Merci du coup de pouce.

 

[BOISGONTIER]

Re : Exportation données listbox

Bonjour,

Private Sub CommandButton1_Click()
With Sheets("feuil1")
       j = .[A65000].End(xlUp).Row + 1

       With ListBox1
       For i = 0 To .ListCount - 1
              If .Selected(i) = True Then

              Cells(j, 1) = .List(i, 0)
              .Selected(i) = False
              j = j + 1
       End If
       Next
       End With
    End With
End Sub

Private Sub CommandButton3_Click()
With Sheets("feuil1")
       j = .[A65000].End(xlUp).Row + 1
       With ListBox2
       For i = 0 To .ListCount - 1
              If .Selected(i) = True Then

              Cells(j, 1) = .List(i, 0)
              .Selected(i) = False
              j = j + 1
       End If
       Next
       End With
    End With
End Sub

JB

 

[lagroumph]

Re : Exportation données listbox

Merci beaucoup.

ca marche au poil mais juste pour mieux comprendre, comment interpréter la ligne :
j = .[A65000].End(xlUp).Row + 1

Merci

 

[BOISGONTIER]

Re : Exportation données listbox

[A65000].End(xlUp)

Positionne sur la dernière ligne de la colonne A
(l'équivalent de Ctrl+flèche haut -s i on est est sur A65000)

[A65000].End(xlUp) .row donne le numéro de la dernière ligne.

JB