Copier une Listbox userform dans une feuille du classeur

zephir94 · 27 Août 2015

Bonsoir à tous,

Je voudrais copier ma listebox qui est dans un Userform dans une feuille du même classeur.
Je voudrai qu'elle commence à C9

Je crée ma liste box comme ceci :

Code:

Private Sub UserForm_Activate()
    Dim i As Byte
Dim toto As Integer

u = Feuil1.Range("N65536").End(xlUp).Row
    For i = 9 To u
If Feuil1.Range("P" & i).Interior.ColorIndex = 3 Then

        
UserForm12.ListBox1.ColumnWidths = "40;100;250;40"
ListBox1.AddItem ' il nous faut bien créer l'article, avant de remplir ses colonnes
         toto = ListBox1.ListCount - 1
        ListBox1.List(toto, 0) = Feuil1.Range("C" & i).Value
        ListBox1.List(toto, 1) = Feuil1.Range("D" & i).Value
        ListBox1.List(toto, 2) = Feuil1.Range("E" & i).Value
        ListBox1.List(toto, 3) = Feuil1.Range("N" & i).Value
    
    End If
    Next
  
  'UserForm12.Select

End Sub

Je pensais que ce serait facile ! bref lol

Code:

With ListBox1
Sheets("feuil4").Range("C9") = .List
end with

Ok je sorts !

Alors chemin fessant j'ai essayé :

Code:

'With ListBox1
'        Sheets(4).Range(Cells(3, 9), Cells(.ListCount, 3)) = .List
'    End With

j'ai les deux premières lignes en C1,C2 !!!

Merci par avance pour vos aides

zephir94 · 27 Août 2015

Re : Copier une Listbox userform dans une feuille du classeur

Toc toc toc j'ai trouvé

Une petite boucle pour trouver le nombre de ligne et colonnes et pour écrire dans la feuille

Code:

With Me.ListBox1
    X = Split(.ColumnWidths, ";")
    For Lig = 0 To .ListCount - 1
        J = 0
        For Col = 0 To UBound(X)
            If CDbl(Left(X(Col), Len(X(Col)) - 3)) > 0 Then
                Cells(Lig + 9, J + 3) = .List(Lig, Col)
                J = J + 1
            End If
        Next Col
    Next Lig
End With

Dans le cas ou quelqu'un cherche comment faire !

Merci à vous tous

mapomme · 27 Août 2015

Re : Copier une Listbox userform dans une feuille du classeur

Bonsoir zephir94,

Code:

Sheets("feuil4").range("c9").Resize(Me.ListBox1.ListCount, 4) = ListBox1.List

Edit : Bonsoir job75

zephir94 · 27 Août 2015

Re : Copier une Listbox userform dans une feuille du classeur

Bonsoir mapomme,
Je viens d'essayer par curiosité le code, mais hélas l'indice n'appartient pas à la sélection.
Je tournais en rond depuis cette après-midi mais à force de tourner en rond on fini toujours par revenir d'ou l'on vient !
Merci en tout cas.

job75 · 27 Août 2015

Re : Copier une Listbox userform dans une feuille du classeur

Bonsoir zephir94, mapomme,

zephir94 à dit:
Je pensais que ce serait facile !

Ben oui :

Code:

With ListBox1
  Sheets("Feuil4").[C9].Resize(UBound(.List) + 1, 4) = .List
End With

Edit : le code de mapomme fait la même chose et ça marche très bien

Encore faut-il que la feuille nommée "Feuil4" existe...

Bonne fin de soirée.

zephir94 · 28 Août 2015

Re : Copier une Listbox userform dans une feuille du classeur

Bonsoir Job75,
La feuille 4 existe pourtant !
Je fais référence à cette dernière dans la boucle !
Merci à vous deux

zephir94 · 28 Août 2015

Re : Copier une Listbox userform dans une feuille du classeur

Avant la boucle j'ai feuil4.select
Mais il est vrai que je ne l'ai pas copié

job75 · 28 Août 2015

Re : Copier une Listbox userform dans une feuille du classeur

Re,

Ne pas confondre Feuil4 => CodeName et "Feuil4" => Name.

C'est du b a ba.

Bonne nuit.

Copier une Listbox userform dans une feuille du classeur

zephir94

XLDnaute Impliqué

zephir94

XLDnaute Impliqué

mapomme

XLDnaute Barbatruc

zephir94

XLDnaute Impliqué

job75

XLDnaute Barbatruc

zephir94

XLDnaute Impliqué

zephir94

XLDnaute Impliqué

job75

XLDnaute Barbatruc

Discussions similaires