Ajouter une ou plusieurs lignes à une table de données

Voici un petit code qui permet d'ajouter une ou plusieurs lignes à une table de données, tout en incrémentant la première colonne contenant la clef. Ce code sera aussi discuté plus en profondeur durant ce séminaire. Notez aussi l'utilisation de Application.WorksheetFunction.Sequence qui ne fonctionne qu'avec Office 365, mais qui permet de réduire plusieurs lignes de code à juste une seule ligne.

Vous pouvez télécharger le fichier ici

Voici le code et plus bas la vidéo expliquant comment il fonctionne.

  • Il ne faut pas oublier de renommer la feuille en VBA (ALT+F11 pour ouvrir VBE, puis clic sur la feuille, puis touche F4 pour afficher les propriétés et dans la propriété (Name), inscrire wksData.
  • Renommez aussi le tableau dans Excel (se mettre sur le tableau, puis onglet Création de tableau et enfin, tout à fait à gauche, on inscrit le nom). Ici, il est nommé Data.
Option Explicit
Sub testAjouterNLignes()
AjouterNLignes 10
End Sub
Sub AjouterNLignes(lNbLignes As Long)
    'on definit l'objet correspond a la table Data
    Dim tblData As ListObject
    Set tblData = wksData.ListObjects("Data")

    If tblData.DataBodyRange Is Nothing Then ' cas d'un tableau vide
        tblData.ListRows.Add 'on ajoute une ligne
        tblData.Resize tblData.Range.Resize(tblData.Range.Rows.Count + lNbLignes - 1)
    Else
        tblData.Resize tblData.Range.Resize(tblData.Range.Rows.Count + lNbLignes)
    End If
    tblData.DataBodyRange.Offset( _
        tblData.DataBodyRange.Rows.Count - lNbLignes, _
        0).Resize(lNbLignes, 1) = _
        Application.WorksheetFunction.Sequence( _
        lNbLignes, 1, Application.WorksheetFunction.Max(tblData.ListColumns("No").Range.Value) + 1, 1)
End Sub
Pour marque-pages : Permaliens.

Laisser un commentaire

Votre adresse e-mail ne sera pas publiée. Les champs obligatoires sont indiqués avec *

Ce site utilise Akismet pour réduire les indésirables. En savoir plus sur comment les données de vos commentaires sont utilisées.