Microsoft 365 Tri d'un tableau impossible

[homernell]

Bonjour à tous,

Je reviens vers vous une deuxième fois dans ce forum car après discutions avec certains d'entre vous la solution n'a pas été trouvé.

Je cherche tout simplement à trier les données d'un tableau, mais malheureusement cela ne fonctionne pas.

En pj le fichier en question.

Merci de vos retours

 

[Hasco]

car après discutions avec certains d'entre vous la solution n'a pas été trouvé.

bonjour,

Dans quelle discussion. C'est à nous de chercher ? Faites remonter la discussion dans la liste en y répondant. Vous ne présentez rien de fondamentalement nouveau dans celle-ci, un nouveau fil est inutile.
C'est également une question de respect pour ceux qui ont tenté de vous aider.

Cordialement

 

[JHA]

Bonjour à tous,

Je suis nul en macro mais un essai avec power query dans une nouvelle feuille

JHA

 

[homernell]

Merci du retour mais c'est un tableau qui évolue en fonction des données

 

[sylvanu]

Bonjour Homernell, JHA, Hasco,

Je cherche tout simplement à trier les données d'un tableau

Ca, malheureusement avec la structure de votre fichier, le "tout simplement" n'est pas possible.
Un tri ne peut pas s'effectuer sur les formules puisqu'elles sont continuellement recalculées.
Vous avez plein de lignes vides, comment voulez vous qu'XL sache qu'il ne faut pas en tenir compte.

Une solution, qui en vaut d'autres, en PJ.
Une feuille "Box Office (Trié)" est crée. Un bouton permet d'exporter la matrice sur cette feuille mais en valeurs et non en formules. Puis vire les lignes vides et enfin fait le tri.
Un lien hypertexte permet de revenir sur la feuille de base.

 

[homernell]

Bonjour Homernell, JHA, Hasco,

Ca, malheureusement avec la structure de votre fichier, le "tout simplement" n'est pas possible.
Un tri ne peut pas s'effectuer sur les formules puisqu'elles sont continuellement recalculées.
Vous avez plein de lignes vides, comment voulez vous qu'XL sache qu'il ne faut pas en tenir compte.

Une solution, qui en vaut d'autres, en PJ.
Une feuille "Box Office (Trié)" est crée. Un bouton permet d'exporter la matrice sur cette feuille mais en valeurs et non en formules. Puis vire les lignes vides et enfin fait le tri.
Un lien hypertexte permet de revenir sur la feuille de base.

Je vous remercie, mais j'ai des données par valeur partout

 

[sylvanu]

mais j'ai des données par valeur partout

Ah, oui ?
Dans votre fichier il est dit :

impossible de trier le tableau de droite par le cumul

Or dans Cumul j'ai :

=SI(D5="";"";SOMME(H5:I5))

Etes vous sur de maitriser votre fichier ?

 

[homernell]

Ah, oui ?
Dans votre fichier il est dit :

impossible de trier le tableau de droite par le cumul

Or dans Cumul j'ai :

=SI(D5="";"";SOMME(H5:I5))

Etes vous sur de maitriser votre fichier ?

Sur ! Non puisqu'il s'agit de mon premier fichier avec macro.

Mais j'essaye

 

[sylvanu]

Rien à voir avec les macros.
Vous dites que vous n'avez que des données, or vous voulez un tri sur une colonne avec des formules.

Ensuite les lignes vides n'arrangeront rien pour faire un tri. Et pourquoi deux lignes vides pour une ligne pleine ?
Avant de faire des macros, il faut penser à la structure du fichier pour que cela reste simple.

Ensuite avez vous ouvert ma PJ, qu'en pensez vous ?
Ensuite avez vous ouvert la PJ de JHA, qu'en pensez vous ?

 

[Phil69970]

Bonjour à tous

Et pour répondre à la question de @Hasco

Dans quelle discussion. C'est à nous de chercher ? Faites remonter la discussion dans la liste en y répondant. Vous ne présentez rien de fondamentalement nouveau dans celle-ci, un nouveau fil est inutile.
C'est également une question de respect pour ceux qui ont tenté de vous aider.

Voir ici ==>

Microsoft 365 - Impossible de trier les données

Bonjour à tous, Merci de vos retours. J'ai besoin de votre aide car je ne comprends pas je n'arrive pas à trier les données dans un tableau. Précision : dans le fichier en pj L'onglet Box Office ne peut pas se trier par cumul, je ne comprends pas pourquoi ? Pouvez vous m'aider, merci

www.excel-downloads.com

ou je t'avais répondu ceci :
Les formules empêche de faire un tri comme tu le souhaites.
Et tu les supprimes tu n'as plus le résultat escompté ton pb me semble soit insoluble soit hors de mes compétences, désolé.

*Je t'avais modifié le module 10 et je t'avais demandé de supprimé les modules vides et je vois que tu ne l'as toujours pas modifié pas cool.
*En gros j'ai perdu mon temps avec toi

J'ajouterais que la logique du forum c'est de continuer sur le même fil la discussion.

Bonnes fêtes

@Phil69970

 

[job75]

Bonsoir à tous,

Pour que le tableau de la feuille Box Office puise être trié il faut supprimer toutes les formules.

Le tableau devra être construit à l'aide d'une macro qui prendra les données dans les 3 feuilles sources.

C'est donc la conception de votre fichier qu'il faut complètement revoir.

A+

 

[fanch55]

Bonsoir à tous,
Après analyse des formules de la feuille, vos lignes sont dépendantes des cinémas et du nombre de salles de ceux-ci , sans parler du nombre de lignes vides avec et sans formules ( ce sont un peu des formules à la carte ...)
Je rejoins toute la communauté en vous disant que vous devriez copier manuellement ou par code votre tableau ( les valeurs ) dans une autre/nouvelle feuille et y trier ce que bon vous semble .

 

[sylvanu]

Bonsoir tout le monde,
C'est ce que j'ai proposé au post #5.
Mais j'ai l'impression que notre ami Homernell se fiche royalement de nos commentaires.
Je me demande pourquoi il a perdu son temps à poser la question.

 

[job75]

Notre ami attend qu'on lui fournisse une macro, alors voyez celle-ci dans Module2 :

Sub MAJ()
Dim feuilles, d As Object, w As Worksheet, tablo, i&, x$, resu(), n&, report As Variant, nn&
Set feuilles = Sheets(Array("Cezanne", "Renoir", "Mazarin")) 'liste des cinémas
Set d = CreateObject("Scripting.Dictionary")
d.CompareMode = vbTextCompare 'la casse est ignorée
For Each w In feuilles
    d.RemoveAll
    tablo = w.Range("A1", w.UsedRange).Resize(, 32) 'matrice, plus rapide
    For i = 5 To UBound(tablo)
        If LCase(tablo(i, 2)) = "salle" Then
            If tablo(i, 4) <> "" Then
                x = tablo(i, 4) & Chr(1) & tablo(i + 1, 3) & Chr(1) & tablo(i + 2, 3)
                If Not d.exists(x) Then
                    ReDim Preserve resu(8, n) 'base 0
                    d(x) = n 'mémorise la ligne
                    resu(0, n) = w.Name
                    If IsDate(tablo(i + 2, 3)) Then resu(1, n) = CDbl(CDate(tablo(i + 2, 3)))
                    resu(2, n) = tablo(i, 4) 'Film
                    resu(3, n) = tablo(i + 1, 6) 'Distrib
                    resu(4, n) = tablo(i + 1, 3) 'Sem
                    report = Application.VLookup(tablo(i, 4), Sheets("Cumul Box Office").Columns("D:J"), 7, 0)
                    If IsNumeric(report) Then resu(7, n) = report
                    n = n + 1
                End If
                nn = d(x)
                resu(6, nn) = resu(6, nn) + Val(tablo(i, 32))
                resu(8, nn) = resu(6, nn) + resu(7, nn)
            End If
        End If
Next i, w
'---restitution---
Application.ScreenUpdating = False
With Sheets("Box Office").[B5:J133]
    .ClearContents 'RAZ
    .Rows.Hidden = True 'masque
    If n > .Rows.Count Then MsgBox "Pas assez de place !", 48: Exit Sub
    If n Then
        .Resize(n).EntireRow.Hidden = False 'affiche
        .Resize(n) = Application.Transpose(resu) 'Transpose est limitée à 65536 lignes
    End If
End With
End Sub

Cliquez sur le bouton MAJ de la feuille "Box Office".

Maintenant le tri du tableau est possible.

Bonne nuit.

 

[job75]

Bonjour le forum,

Tel qu'il est le système déterminant le report ne va pas.

Il est évident qu'il ne devrait pas être le même pour les 2 lignes du film SPIDER MAN.

Il faut tenir compte de la date de sortie et/ou de la semaine.

A+