Messages des blogs récents

Salut.

Dans ce billet, je développais une fonction générique permettant de transférer les données d'un formulaire feuille de calcul vers un tableau structuré:

Code vba :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Function AddData(Tablename As String, Map)
  Dim r As Long
  Dim i As Long
  Dim t As ListObject
 
  Set t = Range(Tablename).ListObject
  r = t.ListRows.Add.Index
  For i = LBound(Map) To UBound(Map) Step 2
    t.ListColumns(Map(i + 1)).DataBodyRange(r).Value =

...

Salut

Sur le forum, une question revient régulièrement: Comment transférer des données d'une feuille (formulaire) vers un tableau de données? Reviennent alors les solutions obsolètes à coup de End(xlUp) et litanie de lignes de code pour transférer chaque cellule du formulaire vers la cellule correspondante du tableau, en faisant fi de l'utilisation des tableaux structurés et en codant comme nos aïeux, c'est-à-dire à la bourrin.

Heureusement, ce temps est révolu et Excel ...