Copier coller données issues de filtre

Bonjour à tous,

Je cherche une macro qui peut selectionner une partie du contenu de ma cellule (colonne match de l'onglet match) et le reporter dans un autre onglet (acceuil). comme le contenu de cette cellule est dupliqué, je ne souhaite le retrouver dans l'onglet accueil qu'une seule fois, un peu comme dans un sommaire.

je vous joins un fichier pour être plus claire.

Merci beaucoup pour votre aide

Bonjour à tout le forum,

quelqu'un pourrait il me dépanner svp.

Merci à vous tous pour votre travail

Bonjour et bonne année,

Un essai.

Cdlt.

Option Explicit

Public Sub DEMO()
Dim ws As Worksheet, ws2 As Worksheet
Dim tbl As Variant, c As Variant
Dim dict As Object
Dim I As Long
Dim x As String

    Set ws = ActiveSheet
    Set ws2 = Worksheets("accueil")

    ws2.Cells(6, 1).CurrentRegion.Offset(1, 0).ClearContents

    tbl = ws.Cells(1).CurrentRegion.Value
    Set dict = CreateObject("Scripting.Dictionary")
    For I = 2 To UBound(tbl, 1)
        x = Split(tbl(I, 2), " ")(1)
        dict(x) = ""
    Next I

    ws2.Cells(7, 1).Resize(dict.Count, 1) = Application.Transpose(dict.keys)    

    Set dict = Nothing
    Erase tbl
    Set ws2 = Nothing: Set ws = Nothing

End Sub

Bonjour,

Merci énormémment et mes meilleurs voeux Jean-Eric.

Je viens de tester mais il m'affiche une erreur au niveau de Macro1 et précisement sur Application.Run Range ()

et me pointe le Range () ?!

et pour DEMO : il me met également un message d'erreur d'execution '9' : l'indice n'appartient pas à la séléction

Merci encore pour ta réactivité

Re,

Hey, merci de nouveau

Le bouton Go est sensé lancer la macro mais rien ne se passe ... Dsl je débute sur VBA

Re,

As tu activé les macros à l'ouverture du fichier?

Cdlt.

je te confirme que toutes les macros sont activés (il ne me l'a pas proposé à l'ouverture du fichier mais j'ai vérifié dans le centre de confidentialité et toutes les macros sont activés)

Re,

Tu dois commencer à souffrir.

Je ne comprends pas que la procédure de mon fichier ne fonctionne pas.

Est il possible qu'un intervenant tiers puisse valider ma proposition?

Cdlt.

J'avoue que je ne comprends pas trop...

est ce que ça peut être dû à nos versions de Excel différentes ?

ça marche, je crois que cela vennait de la version de Excel ; )

Merci beacoup Jean-Eric.

Bonjour,

je me permets de revenir sur ce poste pour apporter une légère modif à la macro qui DEMO (onglet "match"). Mon problème est que la macro DEMO s’exécute bien lorsque les donnée sont dans la colonne match de l'onglet match (qui était la 2 ème colonne) mais lorsque j'ai rajouté une colonne "a venir", je n'ai pas réussi à modifier le code pour que la macro s'exécute correctement : la colonne "match" doit être la 3ème colonne. (l'ordre des colonne ne peut changer car il est utilisé ailleurs). Si possible mettre un petit commentaire sur le code

Ci joint le fichier

Bonjour,

Ci-dessous code modifié avec annotations.

Cdlt.

Option Explicit

Public Sub DEMO()
Dim ws As Worksheet, ws2 As Worksheet
Dim tbl As Variant
Dim dict As Object
Dim numCol As Long, I As Long
Dim x As String

    Application.ScreenUpdating = False

    Set ws = Sheets("match")
    Set ws2 = Worksheets("accueil")
    numCol = 3  'numero de colonne de référence

    ws2.Cells(6, 1).CurrentRegion.Offset(1, 0).ClearContents

    tbl = ws.Cells(1).CurrentRegion.Value
    Set dict = CreateObject("Scripting.Dictionary")

    For I = 2 To UBound(tbl, 1)
        x = Split(tbl(I,numCol))(1)
        dict(x) = ""
    Next I

    ws2.Cells(7, 1).Resize(dict.Count, 1) = Application.Transpose(dict.keys)

    Set dict = Nothing
    Erase tbl
    Set ws2 = Nothing: Set ws = Nothing

    'Complément
    Call CreaOngl

End Sub

Merci beaucoup c'est parfait !

J'aurai une dernière petite question et je te remercie par avance pour ta précieuse aide :

sais tu comment faire pour que le contenu de chaque cellule sous "Liste" de l'onglet accueil dont le nom complet est dans l'onglet "NOMS" s'affiche dans la cellule D1 de la feuille organisation, organisation equipe, organisation joueur lors de l'obtention du fichier final ?

Ci joint le fichier

Re,

Une question à la fois.

Clos le sujet en cours.

Ouvre un nouveau sujet en expliquant clairement ce que tu souhaites faire.

Cdlt.