Ajout de lignes

Bonjour,

je cherche à rajouter une ligne via une macro toujours en fin tableau (donc dans le fichier joint en B19) et que ça me garde la formule de la colonne H (j'aurais des menus déroulants dans certaines colonnes). J'ai essayé en enregistrement de macro mais ça a ses limites puisque ça me rajoute toujours les lignes en B19 et je n'y connais rien.

Merci de vos retour, cordialement.

10test.xlsx (14.21 Ko)

Bonjour,

Une proposition à étudier.

Les données sont sous forme de tableau (structuré).

N'as-tu pas un souci avec tes MFCs ?

Cdlt.

7vavagreg.xlsm (25.44 Ko)

Bonjour,

Une proposition ?

Cordialement

6test.xlsm (21.54 Ko)

Bonjour,

c'est ce que je recherche mais en gardant la mise en forme originale. Pour les MFCs pas de PB sur 2019, mais bug en ouverture avec 2010 ?

Re,

Tu veux donc 2 tableaux distincts, mais doivent-ils avoir le même nombre de lignes ?

Cdlt.

Merci besoin_d_aide ,

c'est exactement ce que je cherchais. Merci aussi à Jean-Eric.

Je vous souhaite une excellente fin d'année, merci encore Grég.

Re,

La mise à jour avec 2 tableaux distincts.

Rappel : Les formats, les formules, MFCs, listes déroulantes, etc... sont reproduits automatiquement lors de l'insertion de lignes.

Cdlt.

7test-xxx.xlsm (26.14 Ko)
Public Sub InsertRowInTables()
Dim lo As ListObject, lr As ListRow
    For Each lo In ActiveSheet.ListObjects
        Set lr = lo.ListRows.Add
        lr.Range.RowHeight = 20
    Next lo
End Sub
Rechercher des sujets similaires à "ajout lignes"