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

Voici un petit code qui per­met d’a­jouter une ou plusieurs lignes à une table de don­nées, tout en incré­men­tant la pre­mière colonne con­tenant la clef. Ce code sera aus­si dis­cuté plus en pro­fondeur durant ce sémi­naire. Notez aus­si l’u­til­i­sa­tion de Application.WorksheetFunction.Sequence qui ne fonc­tionne qu’avec Office 365, mais qui per­met de réduire plusieurs lignes de code à juste une seule ligne.

Vous pou­vez télécharg­er le fichi­er ici

Voici le code et plus bas la vidéo expli­quant com­ment il fonctionne.

  • Il ne faut pas oubli­er de renom­mer la feuille en VBA (ALT+F11 pour ouvrir VBE, puis clic sur la feuille, puis touche F4 pour affich­er les pro­priétés et dans la pro­priété (Name), inscrire wksData. 
  • Renom­mez aus­si le tableau dans Excel (se met­tre sur le tableau, puis onglet Créa­tion de tableau et enfin, tout à fait à gauche, on inscrit le nom). Ici, il est nom­mé 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
En cadeau de bien­v­enue : les 7 com­bi­naisons de touch­es indis­pens­ables sur Excel

Mettre la légende d’un graphique dans le titre

C’est tout sim­ple, il suf­fit d’éditer le titre du graphique, de sélec­tion­ner le mot qui cor­re­spond et de chang­er sa couleur.

On a aus­si l’op­tion de le faire — en fonc­tion de vos don­nées — directe­ment via l’outil d’analyse de don­nées inté­gré à Excel :

A bien­tôt.

En cadeau de bien­v­enue : les 7 com­bi­naisons de touch­es indis­pens­ables sur Excel

Théorie enracinée, codage, Excel et VBA (2)

Ce post de Patrice Roy met­tant en valeur un nou­veau type de tran­si­tion sur pow­er­point — la mor­phose — m’a don­né pleins d’idées (unique­ment office 365 et 20129). Voici com­ment on pour­rait l’ap­pli­quer au fichi­er de clas­si­fi­ca­tion des armes de la préhis­toire. Cet out­il est expliqué ici.

Ce fichi­er est basé sur un livre sur la théorie enrac­inée (en anglais) que j’ai co-écrit avec deux col­lègues. Cliquez ici pour en savoir plus.

A bien­tôt.

En cadeau de bien­v­enue : les 7 com­bi­naisons de touch­es indis­pens­ables sur Excel