[ RESOLU ] Tries ,classer.et transferer dans d'autres pages..???

[Guido]

Bonjour le Forum

Dans la page Data Données Brute se trouve des données .

La page Data D B est divisée par 4 plages identiques, qui elle-même contiennent 10 plages

Ces données change selon l'évolution des arrivées par un clic de ma part.

Clic que je fait une fois toutes les demi heures..???

Je Vous explique ma demande

1° Triés les 40 plages qui se trouvent dans Data Données Brute

Le tri concerne la colonne " F " du plus petit au plus grand

ceci pour les 40 plages contenant les données en colonne " F " pour faire les classements

2° Apres avoir effectués les tris….

Sélectionnées les 3 premiers N° qui se trouvent dans la colonne " K "

et faire un copier -coller speciale avec transposé dans les

feuilles V 1000 % R1 ,R2 .R3 ,R4 dans le Tableau arrivées Plage C29:E38.

Dans la page Data …Dezire je l'ai fais manuellement..

Merci pour votre future aide.

Guido

 

[ChTi160]

Re
le fichier modifié.
pour la suite il faut que tu m'expliques , (mise en forme des cellules B3,C3 ;C5,B5 etc)
Bonne fin de soirée .
Amicalement
Jean marie

 

[ChTi160]

re
le fichier avec quelques modifications ?
j'attends les explications lol
Bonne fin de soirée
Amicalement
jean marie

 

[klin89]

Re Guido
Salut ChTi160

Le code complété, à tester avec le fichier du post#1

Option Explicit
Sub ventile()
Dim a, i As Long, j As Long, k As Byte, txt As String
Dim ws As Worksheet, dico As Object
    'creation du dictionnaire parent
    Set dico = CreateObject("Scripting.Dictionary")
    dico.CompareMode = 1
    With Sheets("Data Données  Brute")
        For i = 2 To 801 Step 20
            'plage à traiter
            a = .Range("A" & i & ": L" & i + 19).Value
            'clé = nom de la feuille de destination
            txt = "V 1000 %  " & Left(a(2, 12), 2)
            If Not dico.exists(txt) Then
                'creation du dictionnaire enfant
                Set dico(txt) = CreateObject("Scripting.Dictionary")
                dico(txt).CompareMode = 1
            End If
            'clé = n° de la réunion & n° de la course
            If Not dico(txt).exists(a(2, 12)) Then
                'creation du dictionnaire petit enfant
                Set dico(txt)(a(2, 12)) = CreateObject("Scripting.Dictionary")
                dico(txt)(a(2, 12)).CompareMode = 1
            End If
            For k = 1 To UBound(a, 1)
                If Not IsEmpty(a(k, 6)) Then
                    'clé = n° d'ordre d'arrivée converti pour la circonstance
                    a(k, 6) = a(k, 6) & IIf(a(k, 6) = 1, "er", "è")
                    If Not dico(txt)(a(2, 12)).exists(a(k, 6)) Then
                        'on affecte l'element soit le n° du cheval situé en colonne 11
                        dico(txt)(a(2, 12))(a(k, 6)) = a(k, 11)
                    End If
                End If
            Next
        Next
    End With
    Application.ScreenUpdating = False
    For Each ws In Worksheets
        If dico.exists(ws.Name) Then
            With ws.Range("b27").CurrentRegion
                With .Offset(2, 1).Resize(.Rows.Count - 2, .Columns.Count - 1)
                    .ClearContents
                End With
                For i = 3 To .Rows.Count
                    If dico(ws.Name).exists(.Cells(i, 1).Value) Then
                        For j = 2 To .Columns.Count
                            If dico(ws.Name)(.Cells(i, 1).Value).exists(.Cells(2, j).Value) Then
                                .Cells(i, j).Value = dico(ws.Name)(.Cells(i, 1).Value)(.Cells(2, j).Value)
                            End If
                        Next
                    End If
                Next
            End With
        End If
    Next
    Set dico = Nothing
    Application.ScreenUpdating = True
End Sub

klin89

 

[Guido]

Re

Voici le fichier version final avec les modèles des MFC

Les plage arrivées doivent absolument respecter les couleurs

Peut on supprimer une feuille DATA ???

si 1er en bleu
si 2em en vert
si 3em en rose

Merci

D'avance

Guido

 

[Guido]

Re

klin89 je ne sais pas adapter ta macros dsl..

si tu peut le faire ok ,sinon pas grave

amitiés

Guido

 

[TooFatBoy]

Bonjour,

Une proposition de réponse, à ma façon.

Il y a une seule macro : celle qui sert à trier chacun des 40 tableaux dans l'ordre d'arrivée.
Le reste est réalisé par formule et par MFC.

 

[Guido]

Bonjour

le Forum,Marcel32

Merci pour le fichier.

Il y a un bug lors du lancement de la macros..?

J'ai remplacer la page Data.. sans tri..

Voici la capture d'écran.

Merci pour votre future aide

Guido

 

[ChTi160]

Bonjour Guido
Bonjour le fil ,Le Forum
je vois que tu vas avoir le choix avec toutes ces Solutions, toutes aussi inintéressantes et efficaces les unes que les autres .
bon pour ce qui est des mises en formes .
Tu me mets des exemples , mais ou vas tu chercher ces Numéros en fonction de quoi ?
ex : Feuille R1 tu me mets "Le Trois" si arrivé Premier ou Deuxième ou Troisième
merci par avance
Amicalement
Jean marie

 

[Guido]

Bonjour Guido
Bonjour le fil ,Le Forum
je vois que tu vas avoir le choix avec toutes ces Solutions, toutes aussi inintéressantes et efficaces les unes que les autres .
bon pour ce qui est des mises en formes .
Tu me mets des exemples , mais ou vas tu chercher ces Numéros en fonction de quoi ?
ex : Feuille R1 tu me mets "Le Trois" si arrivé Premier ou Deuxième ou Troisième
merci par avance
Amicalement
Jean marie

Re

Bonjour le Forum, Jean marie

Oui il y a du monde qui ma fait des proposition ,Merci.

J'ai réussi a intégré la MFC,ca c'est OK.

Les cellules de la plage C3 à C 19,sont rempli manuellement par moi...

Voici le fichier presque parfait...lol

Merci

Guido

 

[JBARBE]

Bonjour à tous, Bonjour Guido,
Ma solution sans MFC en cliquant sur le bouton GO !
Bonne journée !

 

[ChTi160]

Re pourquoi presque parfait?
Y a encore a faire lol
Bonne journee
Amicalement
Jean marie
J utilise on telephone , donc Pas vu la dernier mouture de JBARBE

 

[Guido]

Re pourquoi presque parfait?
Y a encore a faire lol
Bonne journee
Amicalement
Jean marie
J utilise on telephone , donc Pas vu la dernier mouture de JBARBE

re

Salut ChTi160

Quand j'écrit presque parfait c'est chaque personne

a du très bon,

Et j'aimerais garder dans un fichier uniquement le tout en Un..lol

Merci a Tous

Guido

Je vais allé regarder la proposition de JBARBE

 

[Guido]

Voila le bug

 

[JBARBE]

Re,
Chez moi il n'y a pas de bug
Voici le fichier après utilisation du bouton GO qu'il faut n’utiliser qu'une fois pour cet exemple !
bonne journée

 

[TooFatBoy]

Il y a un bug lors du lancement de la macros..?

Non, pas de bug chez moi.

J'ai remplacer la page Data.. sans tri..

Si tu as donné le même nom (avec tous les espaces) à la page non triée, il ne devrait pas y avoir de problème.
Mais si la page (on dit "feuille" ) n'a pas le même nom, alors change le nom dans la macro.