XL 2019 Copier Nouvel enregistrement dans le tableau et les tableaux successifs

[Amigo]

Bonjour à toutes et à tous

Je me permets de revenir vers vous pour solliciter vos lumières.
J’utilise le fichier ci-joint pour saisir des données qui est presque identique à mon fichier principal.
Ce fichier était créé par M. Boisgontier que son âme se repose en paix auprès de son créateur.
C’est un fichier qui gère plusieurs bases de données.
Mon souhait :

• Quand je crée un nouvel enregistrement par exemple dans le tableau2024, qu’il sera copié aussi dans le tableau2025 et tableau2026 (etc. s’il y a des tableaux successifs).

S’il est créé dans le tableau2025 qu’il sera copié aussi dans le tableau2026 (etc. s’il y a des tableaux successifs).
S’il est créé dans le tableau2026 (etc. s’il y a des tableaux successifs).

• Mais il y a que quelques informations qui sont communes entre les tableaux. Je souhaite choisir les textboxes susceptibles à être copier ou à être modifier si besoin.

Merci par avance
Amigo

 

[Amigo]

Bonjour
Permettez-moi de remonter ce fil.
j'ai réussi à dupliquer les données d'un enregistrement mais dans le même tableau. (Bouton Duplique)
Avec quelques recherches j'ai essayé une boucle pour lister mes tableaux et ca fonctionne voir un bout du code :

  Dim wkb As Workbook
  Dim sht As Worksheet
  Dim oList As ListObject
  Dim Elem As Long
  Dim tbl()
  '
  For Each sht In wkb.Worksheets
    If sht.Name Like "BD*" Then
        For Each oList In sht.ListObjects
            ReDim Preserve tbl(Elem)
            tbl(Elem) = "[" & sht.Name & "] " & oList.Name
            Elem = Elem + 1
        Next
    End If
  Next

Par contre je bloque sur la suite pour copier les mêmes données dans les autres tableaux successifs.
J'ai essayé avec select case et avec if pour tester chaque nom de tableau mais malheureusement pas abouti.
Merci par avance pour votre aide

 

[Amigo]

Bonjour à tous
Permettez-moi de revenir vers vous pour partager la solution que j'ai trouvé, surement il y en a d'autres, si ca peut aider quelqu'un.
En passant par un deuxième Userform contenant une Listbox à choix multiple qui permet de choisir le(s) tableau(x) si on veut dupliquer un enregistrement quelconque d'un tableau à un autre.
Bien sûr je suis prenant d'autres solutions
Merci
Bon weekend

 

[cp4]

Bonsoir,

D’après ce que j'ai compris, ajouter une ligne de données sur chaque tableau du fichier via le formulaire.
Code ci-dessous à compléter et à tester

Option Explicit

Sub ListTables()
   Dim xTable As ListObject
   Dim xSheet As Worksheet
   Dim Lig As ListRow
   For Each xSheet In Worksheets
      xSheet.Activate
      For Each xTable In xSheet.ListObjects
         With xSheet.ListObjects(xTable.Name)
            'ajouter ligne dans les différents tableaux
            Set Lig = .ListRows.Add()   'ajout ligne vide en fin de tableau
            'à compléter lignes ci-dessous et ajouter lignes de code pour chaque colonne
            'Lig.Range.Cells(1).Value = ...
            'Lig.Range.Cells(2).Value = ...
            'Lig.Range.Cells(3).Value = ...
         End With
      Next xTable
   Next
End Sub

 

[Amigo]

Bonjour cp4 et le forum
Merci beaucoup pour votre réponse qui répond à une partie de ma question.
Surement votre code me sera très utile à l’avenir.
Mon souci c’était de copier les données dans les tableaux successifs :
( vu que la date de validité est de minimum 3 ans; Dans le fichier exemple c’est des personnes qui s’engagent minimum sur 3 ans). si je crée un enregistrement dans le tableau 2024 J’aurais souhaité que les mêmes données seront copiées dans les tableaux 2025, 2026 …
et si c’est dans le tableau 2025 les données seront copiées dans 2026, 2027 …
Encore un grand merci
Bon dimanche