XL 2010 Max dans TCD

[JPHI]

Bonjour

Dans le TCD ci-joint, je voudrais pouvoir trouver en VBA la valeur Max en colonne C et qu'une fouis la valeur trouvée, une nouvelle feuille s'ouvre avec les lignes correspondant à ce nombre max
Quelqu'un a une idée SVP?
Merci

 

[chris]

Bonjour

Si ton TCD reste classé dans l'ordre croissant

    With ActiveSheet.PivotTables(1).DataBodyRange
        y = .Rows.Count + .Cells(1, 1).Row - 2
    End With
    ActiveSheet.Cells(y, 3).ShowDetail = True

ActiveSheet à adapter si ta macro n'est pas appelé de la feuille

Edit : Tu peux aussi adapter le 3 et remplacer par .Cells(1, 1).Column si tu gardes une seule colonne mais que le TCD peux bouger dans la feuille

 

[JPHI]

Bonjour Chris

Super merci
Petit besoin supplémentaire, j'aimerais que la feuille ou sont copiées mes données soit renommée avec le nom de l'item MAX, en l'occurrence :
W76P062.$w$
Possible?
Merci

 

[chris]

Re

    With ActiveSheet.PivotTables(1).DataBodyRange
        y = .Rows.Count + .Cells(1, 1).Row - 2
        Nom = ActiveSheet.Cells(y, .Column).Offset(0, -.Columns.Count).Value
        ActiveSheet.Cells(y, .Column).ShowDetail = True
    End With
    ActiveSheet.Name = Nom

A noter qu'il faudrait sans doute tester que le feuille n'existe pas avant... car sinon le renommage va planter...

 

[JPHI]

parfait chris
merci

 

[JPHI]

Bonjour

Suite à des modif dans mon fichier, je ne parviens plus à utiliser cette macro
Dans le premier TCD du fichier joint, je souhaite trouver dans la colonne B l'item qui a la plus grosse valeur dans la colonne C à savoir W76P058.$w$
Et ensuite qu'une fois cette valeur trouvée, une nouvelle feuille s'ouvre avec tous les items associés soit 85 lignes
Peux-tu adapter le code ci-dessous en conséquence?

Sub Max()

Sheets("TCD").Select
With ActiveSheet.PivotTables("Tableau croisé dynamique3").DataBodyRange
y = .Rows.Count + .Cells(1, 1).Row - 2
Nom = ActiveSheet.Cells(y, .Column).Offset(0, -.Columns.Count).Value
ActiveSheet.Cells(y, .Column).ShowDetail = True
End With
ActiveSheet.Name = Nom
Selection.AutoFilter
End Sub

Merci beaucoup!!!

 

[chris]

Bonjour

Si tu inverses le classement il faut remplacer la ligne qui définit y par

        y = .Cells(1, 1).Row

 

[JPHI]

bonjour Chris


Que veux tu dire par "inverse le classement"?
Je fais juste un tri du plus grand au plus petit
Donc le code est : y = .Rows.Count + .Cells(1, 1).Row?
Merci

 

[chris]

RE
Ce code cherchait la dernière ligne du TCD , hors maintenant il faut le 1ère d'où le changement à faire

(J'avais précisé au #2 que ce code était pour un tri croissant)

 

[JPHI]

merci chris
mais la macro plante sur la ligne en rouge...

Sub Max()

Sheets("TCD").Select
With ActiveSheet.PivotTables("Tableau croisé dynamique3").DataBodyRange
'y = .Rows.Count + .Cells(1, 1).Row - 2
y = .Rows.Count + .Cells(1, 1).Row
Nom = ActiveSheet.Cells(y, .Column).Offset(0, -.Columns.Count).Value
ActiveSheet.Cells(y, .Column).ShowDetail = True
End With
ActiveSheet.Name = Nom
Selection.AutoFilter
End Sub

 

[chris]

Re
Tu n'as pas mis le code que je t'ai donné au #7 !

 

[JPHI]

ok sorry

 

[JPHI]

Bonjour le forum, Chris
Par contre chris, j'ai besoin d'une dernière évolution
Je voudrais que lorsque je ferme mon classeur principal, cette feuille qui a été nommée automatiquement ActiveSheet.Name = Nom
soit supprimée à la fermeture
Aurais tu une idée stp??
Merci

 

[chris]

Bonjour

Placer

Public Nom

en tête du module VBA au-dessus de toute macros

Et dans le module du Workbook :

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    If Nom = "" Then Exit Sub
    Application.DisplayAlerts = False
    Worksheets(Nom).Delete
    Application.DisplayAlerts = True
End Sub

Voir s'il faut enregistrer au cas où une sauvegarde aurait été faite pendant que la feuille existait.

 

[JPHI]

Super Chris
Parfait, merci bcp!!