Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2016 ajouter plusieurs lignes dans tableau en même temps

joon49

XLDnaute Nouveau
bonjour,

je voudrais ajouter plusieurs lignes en même temps dans un tableau via un userform.

comment puis je procéder?

merci par avance
 

Pièces jointes

  • saisie.xlsm
    23.1 KB · Affichages: 6
Solution
Bonjour,
VB:
Private Sub CommandButton1_Click()
Dim L As Long
    For I = 1 To 4
        If Me.Controls("Textbox_date_" & I) <> "" Then
            L = [Tableau1].ListObject.ListRows.Add.Index
            [Tableau1[date]].Rows(L) = Controls("Textbox_date_" & I)
            [Tableau1[unité]].Rows(L) = Controls("Textbox_unite_" & I)
            [Tableau1[titre]].Rows(L) = Controls("Textbox_titre_" & I)
            [Tableau1[designation]].Rows(L) = Controls("Textbox_designation_" & I)
            [Tableau1[quantité]].Rows(L) = Controls("Textbox_quantite_" & I)
        End If
    Next
    Unload Me
End Sub

fanch55

XLDnaute Barbatruc
Bonjour,
VB:
Private Sub CommandButton1_Click()
Dim L As Long
    For I = 1 To 4
        If Me.Controls("Textbox_date_" & I) <> "" Then
            L = [Tableau1].ListObject.ListRows.Add.Index
            [Tableau1[date]].Rows(L) = Controls("Textbox_date_" & I)
            [Tableau1[unité]].Rows(L) = Controls("Textbox_unite_" & I)
            [Tableau1[titre]].Rows(L) = Controls("Textbox_titre_" & I)
            [Tableau1[designation]].Rows(L) = Controls("Textbox_designation_" & I)
            [Tableau1[quantité]].Rows(L) = Controls("Textbox_quantite_" & I)
        End If
    Next
    Unload Me
End Sub
 

Discussions similaires

Réponses
8
Affichages
265
Réponses
6
Affichages
234
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…