[RESOLU]Synthèse données dans plusieurs onglets

[jozerebel]

Salut le fofo,

Petit pb VBA...

J'ai plusieurs onglets avec des données qui doivent être récupérées dans d'autres onglets de synthèse en fonction du modèle associé.

J'aimerais une solution pour rappatrier toutes les données correspondant aux modèles en automatique.

Je mets un fichier en PJ car j'ai l'impression de ne pas être clair... 🙄

Merci pour votre aide précieuse...

 

[Staple1600]

Re : Synthèse données dans plusieurs onglets

Re, bonjour alienox

Est-il possible de ne rapatrier que les noms présents en colonne A selon le modèle et non pas toute la ligne?
D'avance merci.

pour n'avoir que la colonne A , voir avec cette variante.
PS: test OK ici

Sub testOK_III()
Dim ws As Worksheet, rX As Range, r As Range, Unique As Range, pf As Range
Application.ScreenUpdating = False
c = 2: Set ws = ThisWorkbook.Sheets("bdd1")

Set rX = Columns(c).Find("*", Cells(1, c), , , xlByColumns, xlPrevious)
ws.Range(Cells(4, c), Cells(rX.Row, c)).AdvancedFilter Action:=1, Unique:=True

Set Unique = Range(Cells(4, c), rX).SpecialCells(12)

For Each r In Unique
    If r <> "" Then
        If r <> "Modèle" Then
        ws.UsedRange.AutoFilter Field:=c, Criteria1:=r.Value
        Set pf = ws.Range("_FilterDataBase")
        pf.Range("A1").Offset(1, 0).Resize(pf.Rows.Count - 1).SpecialCells(12).Copy Destination:=Sheets(CStr(r)).Range("A4")
        End If
    End If
    Next

ws.AutoFilterMode = False
Application.ScreenUpdating = True
End Sub

 

[jozerebel]

Re : Synthèse données dans plusieurs onglets

Bonjour Alienox, Re Staple,

Espérant que le devoir civique s'est bien passé 😉

Staple, c'est parfait, c'est que je souhaitais.

Merci!

Maintenant, il me reste à comprendre un peu mieux ta macro pour l'adapter éventuellement à d'autres fichiers!


Merci encore et bonne soirée électorale!🙄

 

[alienox]

Re : Synthèse données dans plusieurs onglets

Jozerebel, désolé de posté ici, mais je suis dans la même galère que toi, je bataille, je bataille....

Arrive à point ceux qui savent attendre....

Je me permet de mettre les liens de mes sujets

Encore merci de nous éclairer Staple.....

https://www.excel-downloads.com/thr...e-recherche-faire-une-autre-recherche.218265/
https://www.excel-downloads.com/thr...acro-et-retrecissement-classeur-excel.218267/

Et content pour toi que ton souci soit résolu....😀

A+