Actualisation des tableaux

[laurent86300]

bonjour, dans mon tableau de 12 feuilles pour 12 mois je narrive pas a fusionner lees 12 mois sur ma feuille 2025.
CA_MATERIEL_2025_V7.xlsm (3,8 Mo)
j ai du tout effacer les donnees 2025 car Mars ne voulais pas integrer 2025.

merci à tous

[Zebulon]

Bonjour,
Si j’ai bien tout compris.
Cordialement.
CA_MATERIEL_2025_V7.xlsm (4,0 Mo)

[Cow18]

un essai

Sub Mois2Annee()
     Dim LO_Annee, LO, i, sMois
     Set LO_Annee = Range("_2025_").ListObject
     Application.ScreenUpdating = False
     
     For i = 1 To 12
          sMois = Replace(Replace(WorksheetFunction.Text(DateSerial(1, i, 1), "[$-fr-fr]mmmm"), "é", "e"), "û", "u") 'nom du mois sans accents
          On Error Resume Next
          Set LO = Nothing: Set LO = Range("T" & sMois).ListObject 'assigner tableau du mois
          On Error GoTo 0
          If LO Is Nothing Then
               MsgBox "Erreur, aucun tableau " & Chr(34) & "T" & sMois & Chr(34)
          Else
               If StrComp(sMois, LO.Parent.Name, 1) <> 0 Then
                    MsgBox "Tableau " & Chr(34) & "T" & sMois & Chr(34) & " ne se trouve pas sur la feuille " & sMois
               Else
                    If LO.ListRows.Count Then
                         With LO_Annee
                              If .ListRows.Count Then Set c = .ListRows.Add.Range Else Set c = .InsertRowRange
                         End With
                           LO.DataBodyRange.Copy
                         c.PasteSpecial xlValues
                    End If
               End If
          End If
     Next
 End Sub

Edit : salut Zebulon

[Zebulon]

Hello Cow18
Bonne fin de journée.

[laurent86300]

bonjour à tous,

je ne sais pas pourquoi des que je rajoute une ligne dans mes feuilles, l actuallisation dans la feuille 2025 ne c s’effectue pas
CA_MATERIEL_essai.xlsm (3,7 Mo)

[Zebulon]

Bonsoir,
Dans le fichier que tu joins, pas de requête de regroupement. Et de plus, si tu veux garder ce schéma, il faut une macro d’actualisation pour que cela fonctionne.
Cordialement.

[laurent86300]

Merci Zebulon’s,
Comment fait on une macro d’actualisation ?
Merci

[Zebulon]

Bonjour,

Sub actualise()
ActiveWorkbook.RefreshAll
End Sub

Cordialement

[laurent86300]

@Zebulon

Sub actualise()
ActiveWorkbook.RefreshAll
End Sub

merci Zebulon ppur votre aide