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

  • Initiateur de la discussion Initiateur de la discussion joon49
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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

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
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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
8
Affichages
349
Réponses
12
Affichages
248
Réponses
6
Affichages
96
Retour