Bonjour. visiteurs jour : 112       Au président     Beauté santé     Infos loisirs     Ensemble      Jean      Informatique     Einstein     Santé corona

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





Coucou et merci


Accueil  Excel  Informatique  Infos  Internet  Forum  Javascript  logiciels   Programation  Sites RJ  Vidéo  Plan du site 



   

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 




-
vues  1372     En ligne actuellement :   1   Total des clics  1595840