Discussion :

[cirestore]

Bonjour a Tous,

Je suis nouveau dans la communauté et je profite de se message pour saluer tous ceux qui s'y trouvent.
j'ai un ensemble de données partagées sur 5 lignes.J'effectue un premier tri des 4 premières lignes en triant la dernière de mes 4 lignes en classement ascendant.Puis je remplace les 6 premières valeurs par 1 2 3 4 5 6.

Je fais de même avec mes 4 lignes mais cette fois avec comme cle de tri l'avant dernière ligne classée elle aussi en classement ascendant puis les 5 premières valeurs de la ligne classée sont remplacées par 1 2 3 4 5.

Toujours avec mes 4 lignes sélectionnées j'effectue un classement ascendant de la deuxième ligne utilisée comme clé et remplace les quatre premières valeurs par 1 2 3 4.

Enfin je classe l'ensemble de ces quatre lignes en prenant la première ligne comme clé en la triant en classement ascendant.

J'ai joint un fichier qui décompose les opérations que j'ai décrit et illustre mon propos.les lignes peuvent être composées de 10 a 30 colonnes.Dans l'exemple il y en a 16.

Pourriez vous m'aider avec un programme vba qui puisse exécuter ses taches que j'effectue de façon manuelle sur un grand ensemble de paquets de données? merci a Tous pour votre aide.

[parmi]

Bonjour,

Je ne comprends pas l'utilité de ce programme, mais bon...
As-tu essayé avec l'enregistreur de macro ?
Ça te donnerait déjà une idée de la façon de procéder.

Si oui (ou non...) où se situe ton problème exactement ?

Et j'imagine que l'étape 2 est de 17 à 20, et non pas 21 (?)

[cirestore]

Bonsoir oui tu as tout a fait raison c'est bien de 17 a 20.Je ne sais pas programmer d'ou ma demande.L'enregistreur ne m'a pas permis d'obtenir une macro fonctionnelle.
Je cherche une macro qui me permettrait de faire le tri de chacune des lignes puis en modifier les premiers chiffres.Le tri d'une ligne de ces quatre lignes affectent les autres lignes. J'espère avoir été plus précis.

[nibledispo]

Bonjour,

Ton fichier exemple montre semble-t-il le fichier déjà traité. Les valeurs remplacées n'ont aucune incidence dans le traitement ?

Par ailleurs, que représente la dernière ligne (situées hors cadre) de chaque groupe de données. Est-elle sans intérêt dans ce traitement assez bizarre voire incompréhensible pour moi ?

Cordialement.

[Theze]

Bonjour,

Tu mets ton tableau de départ dans une feuille vierge nommée "Feuil2" de C3 à R7 puis tu lance la proc ci-dessous. Attention, le résultat final sera légèrement différent du tien car il y a une erreur à l'étape 3, le tri se faisant sur la ligne 2, le 6 de la ligne 1 ne peut pas se trouver en seconde position car la valeur située dans le champ au dessus est 143 donc supérieur à d'autre valeurs de la même ligne.
Pour utiliser ce code, touches "Alt+F11" --> Menu "Insertion" --> "Module" puis coller le code ensuite, positionner le curseur n'importe où entre Sub et End Sub puis touche F5 ou flèche verte (Exécuter) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
 
Sub TestTri()
 
    Dim Plage As Range
    Dim PlageTri As Range
    Dim I As Integer
 
    With Worksheets("Feuil2")
 
        Set Plage = .Range(.Cells(3, 3), .Cells(6, 18))
 
        For I = 4 To 1 Step -1
 
            .Range(.Cells(15, 3), .Cells(30, 6)) = Application.WorksheetFunction.Transpose(Plage)
 
            Set PlageTri = .Range(.Cells(15, 3), .Cells(30, 6))
 
            PlageTri.Sort Plage.Columns(I), xlAscending
 
            If I > 1 Then
 
                PlageTri(1, I) = 1
                PlageTri(1, I).AutoFill Range(PlageTri(1, I), PlageTri(I + 2, I)), 9
 
            End If
 
            Plage = Application.WorksheetFunction.Transpose(PlageTri)
            PlageTri.Clear
 
        Next I
 
    End With
 
End Sub

Hervé.

[cirestore]

Bonjour Theze

Je n'ai pas pu te répondre plus tôt.Désolé.Merci de t’être intéressé a mon problème et de me proposer une solution.Je vais essayer et je te reviens au plus tôt pour te dire ce qu'il en est.