VBA Excel les contrôles dans un UserForm (Formulaire Utilisateur)

Voir Club des développeurs

Utiliser la propriété List pour alimenter une ListBox.

     ListBox1 . List() class="vb_operator">= Range( class="vb_literal1">A1:A10 ) . Value

nombre de données contenues dans la ListBox   ListBox1 . listCount

Transférer les données d'une ListBox dans la Feuille de calcul.

Private Sub CommandButton1_Click()
    With ListBox1
        Sheets( Feuil1 ) . Range( Cells( >1, >1), Cells( . ListCount, >1)) class="vb_operator">= . List
    End With
End Sub

ListBox multicolonnes

Private Sub UserForm_Initialize() 

    Dim i As Byte, j As Byte   

    Définit le nombre de colonnes dans la ListBox 

    ListBox1 . ColumnCount class="vb_operator">= >7 

    --- 

    Définit la largeur des colonnes d'une ListBox: 

    Par défaut, la largeur des colonnes est de 72 points 

    (72 points = 1 pouce) 

    ListBox1 . ColumnWidths class="vb_operator">= class="vb_literal1">50;80;50;60;50;70;50      

        --- 

        Il est aussi possible de définir la dimension des colonnes en centimètres 

        ListBox1.ColumnWidths = "2 cm; 1,5 cm ......" 

        ---   

    For i class="vb_operator">= >1 To >20 

        Ajoute une ligne et insère une donnée dans la colonne de gauche 

        ListBox1 . AddItem class="vb_literal1">Ligne class="vb_operator">& i 

        

        Ajoute des données dans les colonnes de droite 

        For j class="vb_operator">= >1 To >7 

        ListBox1 . List(ListBox1 . ListCount class="vb_operator">- >1, j) class="vb_operator">= i class="vb_operator">& j 

        Next j 

        

    Next i 

End Sub