Discussion :

[peygase83]

bonjour,

jai tésté plusieur formule et je ne trouve pas voici mon probleme!

Sur la feuil1! les colonnes ((AB) valeur x et y)) et ((DE) valeur X et Y))
Ces colonne on une longueur aléatoire comment trié (les chiffre de la colonne DE) de façon a ce que par exemple le chiffre 100 de la colonne DE ce retrouve en face de ( 99 ou 100 de la colonne AB)

merci par avance

[delphine35]

avec une macro :

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
35
Public Sub trie()
 
    Set F1 = Worksheets("Feuil1")
 
    With F1
 
        Nblig1 = .Cells(.Rows.Count, 1).End(xlUp).Row
        Nblig2 = .Cells(.Rows.Count, 2).End(xlUp).Row
        If Nblig1 >= Nblig2 Then
            nblig = Nblig1
        Else
            nblig = Nblig2
        End If
        i = 0
 
        Do
 
           i = i + 1
           Set a1 = .Cells(i, 1)
           Set a2 = .Cells(i, 2)
 
           If a1.Value < a2.Value Then
                a2.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
           Else
           If a1.Value > a2.Value Then
                a1.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
           End If
           End If
 
        Loop Until (a1 = "" And a2 = "")
 
 
    End With
 
End Sub

[peygase83]

le macro fait bugé excel je continue a tésté en modifient les célules D7 et D8 puisque mon trie commence en D7 mais rien ne change !! merci tous de meme ;-) je laisse en fichier exemple bien commenté merci d'avance

[delphine35]

Alors comme ca :

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
35
36
37
38
39
40
41
Public Sub trie()
 
 Dim NbLig1, NbLig2, valOK As Integer
 
    Set F1 = Worksheets("exemple1")
 
    With F1
 
        NbLig1 = .Cells(.Rows.Count, 1).End(xlUp).Row
        NbLig2 = .Cells(.Rows.Count, 5).End(xlUp).Row
 
        For i = 7 To NbLig1
 
           valOK = 9999
           posOK = 0
           aa = .Cells(i, 1).Value
           bb = .Cells(i, 2).Value
 
           For j = i To NbLig2
                ' Formule qui permet de definir la priorité
                valeur = (.Cells(j, 5).Value - aa) * 10 + (.Cells(j, 6).Value - bb)
 
                If valeur < 0 Then
                    valeur = valeur * -1
                End If
                If valeur < valOK Then
                    valOK = valeur
                    posOK = j
                End If
           Next j
 
           .Range("E" & posOK & ":G" & posOK).Copy
           .Range("E" & i & ":G" & i).Insert Shift:=xlDown
           .Range("E" & posOK + 1 & ":G" & posOK + 1).Delete Shift:=xlUp
           .Range("H" & i).Value = .Range("C" & i).Value
 
        Next i
 
    End With
 
End Sub

[peygase83]

mais ça fonctionne toujours pas le trie et fait en partie.
la colone AB a plus de donné que la colone DE ce qui fait que les dernière ligne AB son vide allor que des donné proche son présente en DE ce si dit ton macro et sympas meme si je suis nul en macro je continue à tésté ça merci beaucoup