Question sur une macro

Y compris Power BI, Power Query et toute autre question en lien avec Excel
Avatar du membre
Jean-Eric
Fanatique d'Excel
Fanatique d'Excel
Messages : 16'433
Appréciations reçues : 674
Inscrit le : 27 août 2012
Version d'Excel : 365 Personnel

Message par Jean-Eric » 22 novembre 2019, 09:56

Bonjour,
Une proposition à étudier pour aborder la question.
Les données sont sous forme de tableau structuré (nom unique et emplacement indifférent).
Cdlt.
Fichier_test (3).xlsm
(30.77 Kio) Téléchargé 4 fois
Option Explicit

Public Sub CopyAndProcessData()
Dim lo As ListObject
Dim lCol As Long
Dim Cell As Range, Rng As Range

    Application.ScreenUpdating = 0

    On Error Resume Next
    Range("Data2").ListObject.Delete
    On Error GoTo 0

    Set lo = Range("Data").ListObject
    lCol = lo.ListColumns.Count
    Set Cell = lo.HeaderRowRange.Cells(lCol).Offset(, 3)

    lo.HeaderRowRange.Cells(1).Resize(lo.ListRows.Count + 1).Copy
    Cell.PasteSpecial xlPasteValuesAndNumberFormats
    lo.HeaderRowRange.Cells(3).Resize(lo.ListRows.Count + 1, 2).Copy
    Cell.Offset(, 1).PasteSpecial xlPasteValuesAndNumberFormats
    Application.CutCopyMode = 0

    Set Rng = Cell.Resize(lo.ListRows.Count + 1, 2)
    Rng.Sort key1:=Rng.Columns(2), order1:=xlDescending, Header:=xlYes

    Set lo = Worksheets(Cell.Parent.Name).ListObjects.Add(1, Cell.CurrentRegion, , xlYes)
    
    With lo
        .Name = "Data2"
        .TableStyle = ""
        '.Range.Style = "Explanatory Text"  'english version Excel
        .Range.Style = "Texte explicatif"
    End With

End Sub
Jean-Eric

Je ne réponds pas aux M.P. non sollicités.
P
Pablito
Membre fidèle
Membre fidèle
Messages : 171
Appréciations reçues : 2
Inscrit le : 2 novembre 2017
Version d'Excel : 2013 FR

Message par Pablito » 25 novembre 2019, 09:19

Sebyg a écrit :
22 novembre 2019, 08:22
Bonjour,

Je compte m'y mettre ce matin, j'y jette un oeil actuellement et j'ai quelques questions.

1/ T'es tableaux sont ils toujours au même endroit ?
2/ Ont-ils toujours le même nombre de ligne ?
3/ Il y a 7 tableaux actuellement, peut-il y en avoir plus ou moins ?
Bonjour @Sebyg, dsl pour le retard, je n'avais pas accès à mon mail.

Pour répondre à tes questions :

1/ Oui
2/ Oui
3/ Il y en aura toujours 7

Merci et bonne matinée
Avatar du membre
Sebyg
Membre fidèle
Membre fidèle
Messages : 428
Appréciations reçues : 3
Inscrit le : 14 février 2018
Version d'Excel : 2013

Message par Sebyg » 25 novembre 2019, 11:07

As-tu regardé la version de Jean-Eric ?
Cette dernière te convient ?
P
Pablito
Membre fidèle
Membre fidèle
Messages : 171
Appréciations reçues : 2
Inscrit le : 2 novembre 2017
Version d'Excel : 2013 FR

Message par Pablito » 25 novembre 2019, 11:19

Sebyg a écrit :
25 novembre 2019, 11:07
As-tu regardé la version de Jean-Eric ?
Cette dernière te convient ?
Bonjour @Jean-Eric et re @Sebyg,

Tout d'abord merci Jean-Eric pour ton travail, cela correspond (le fond) à ce que je voulais faire. Ma question maintenant, moi qui ai une structure de feuille (Feuil1 de mon classeur) fixe, comment je pourrais adapter ton travail en Feuil2 à ma Feuil1 ?

Merci
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message