Bonjour     visiteurs jour : 31     Total clics   :   1251371       Sites associés 

Les joies de l'informatique et de l'internet !





Coucou et merci


 
Clics 575

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 








  


VBA Formulaire

Vos messages sont modérés.   Les visiteurs non inscrits ont leur pseudo préfixé par x_.   Merci de respecter la loi et les personnes.

Votre message -->

Classement
par date
croissante.
décroissante.
Vous
inaugurez
ce forum,
félicitations.
Pseudo     Le 20-8-2018.   Titre  

 

Total des visiteurs  :    493693   dont aujourd'hui :   31    En ligne actuellement :  1      Total des clics   1251371