Question sur une macro

Bonjour,

J'ai ici une macro qui me copie/colle les données du tableau A3:D6 dans le tableau F3:H6. Ce que je n'arrive pas à faire, c'est exclure la colonne B que je ne veux pas voir dans la copie vers mon tableau F3:H6.

En gros la correspondance devrait donner :

  • Colonne A vers colonne F
  • Colonne C vers colonne G
  • Colonne D vers colonne H

Ma macro se trouve dans le fichier

Merci d'avance

5fichier-test.xlsm (652.22 Ko)

Bonjour,

A tester....

5fichier-test.xlsm (582.75 Ko)

Bonjour,

A tester....

Bonjour @Sebyg, c'est bien cela ce que je voulais mais cela ne se classe pas en ordre décroissant. Je voudrai avoir les valeurs du plus grand au plus petit en partant du haut. Merci encore pour ton aide

Je ne savais pas que tu souhaitais cela.

Je vais y regarder, mais suivant quelle colonne ? La G ou la H ?

Je ne savais pas que tu souhaitais cela.

Je vais y regarder, mais suivant quelle colonne ? La G ou la H ?

Tout se base sur la colonne G ensuite la colonne F et H se synchronisent avec le classement de la colonne G.

Voilà ce doit être bon

5fichier-test.xlsm (582.87 Ko)

Voilà ce doit être bon

Merci encore pour ton aide

Voilà ce doit être bon

Bonjour Sebyg,

Je peux te demander ton aide une dernière fois ?

Je me suis servi de ta macro hier pour l'adapter à mon besoin. J'ai plusieurs tableaux à différentes lignes et j'aimerais que le même résultat qu'en tableau en BA10:BC18 se produise. Ma question est la suivante : dois-je reprendre la même structure que ta macro pour chaque tableau (ce qui ferait un long code) ou alors il y a une optimisation à faire pour obtenir le même résultat ?

Excellente matinée à toi

6fichier-test-3.xlsm (662.99 Ko)

Effectivement Le code peut être grandement optimisé.

J'y regarde dès que possible normalement avant ce soir.

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,

Une proposition à étudier pour aborder la question.

Les données sont sous forme de tableau structuré (nom unique et emplacement indifférent).

Cdlt.

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

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

As-tu regardé la version de Jean-Eric ?

Cette dernière te convient ?

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

Rechercher des sujets similaires à "question macro"