Tri base de donnée

[Nekoty]

Bonjour à tout le forum,

je voudrais savoir si sans code VBA, je pouvais trier toute une liste qui comprend des données sous ce format :

-3.7008,40.36371,"Num 3296@100"

par la fin, soit @100.

Merci pour vos réponses.

 

[Catrice]

Re : Tri base de donnée

Bonjour,

en tapant =DROITE(A14;5) dans une colonne à droite
en la recopiant vers le bas
et en triant sur cette colonne.

 

[Nekoty]

Re : Tri base de donnée

Bonjour Catrice,

J'avais bien pensé à ça, mais le résultat ne me fourni que la fin. Je voudrais trier par la fin mais aussi récupérer la totalité de la cellule.

merci

 

[Jocelyn]

Re : Tri base de donnée

Bonjour le Forum,
Bonjour Nekoty, Catrice,

hum hum une solution tirée par les cheveux par formule matricielle, en fichier joint bien que la meilleur solution reste a mon sens celle de Catrice.

c'est une formule matricielle il faut la valider en appuyant simultanément sur les touches CTRL, Majuscule (au dessus de CTRL) et entrée

Si tu as bien validé la formule les signes {et} vont apparaitre devant le signe = et en fin de formule

Jocelyn

 

[Nekoty]

Re : Tri base de donnée

Bonjour Jocelyn,

Je vois que tu a compris que c'est une base de donnée de radar. Je vais la tester et je reviens.

Merci

 

[Nekoty]

Re : Tri base de donnée

Re
Dois être un peu c.... En modifiant les cellules de fin (3913 données) j'ai "valeur" comme réponse. Les données peuvent être positives comme négatives, y a-t'il un rapport avec cette "valeur".

55.30413,-20.96288,"Num 3456@110"
55.65724,-20.95719,"Num 3458@110"
55.48906,-20.88669,"Num 3460@70"
55.39237,-20.88539,"Num 3454@70"
55.46355,-20.88223,"Num 3459@70"
-52.32868,4.91363,"Num 118176@90"
-52.46956,5.01058,"Num 118179@70"
-61.56321,16.0965,"Num 3464@50"
-61.48264,16.21708,"Num 114111@70"
-61.5236,16.23322,"Num 3465@90"

Merci

 

[Jocelyn]

Re : Tri base de donnée

re,

Heu non non je n'avais pas compris que c'était une base de donnée de radar j'étais juste parti du postulat que toutes les données finissaient par une valeur numérique

concernant le soucis des valeur négatives eh bien normalement il n'y en a pas regarde le fichier avec les nouvelles valeur que tu as posté

Jocelyn

 

[Nekoty]

Re : Tri base de donnée

Jocelyn, merci pour ta formule, elle fonctionne très bien. Petit souci je plante Excel dès que j'arrive à la moitié de la BD.

Merci à tous

 

[liloucmoi]

Re : Tri base de donnée

Hello tous, Jocelyn, Netoky,

Il me semble que cette fonction ne tri pas, en effet, lors de doublons sur le dernier nombre, elle renvoie toujours la même ligne.
(Si il y a une solution en fonction excel je suis preneur )

J'ai un petit truc en macro : A mettre dans le code de la feuillle en question.

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    Application.EnableEvents = False
    Application.ScreenUpdating = False
    
    Dim i, j, fini As Integer
    
    Range("$B:$B").Value = Range("$A:$A").Value
    
    i = 1
    While Cells(i, 2).Value <> ""
        i = i + 1
    Wend

    fini = i - 1

    For i = 1 To fini
        For j = i To fini
            If Left(Right(Cells(j, 2).Value, Len(Cells(j, 2).Value) - InStr(1, Cells(j, 2).Value, "@", vbTextCompare)), _
                    Len(Right(Cells(j, 2).Value, Len(Cells(j, 2).Value) - InStr(1, Cells(j, 2).Value, "@", vbTextCompare))) - 1) * 1 _
                    < Left(Right(Cells(i, 2).Value, Len(Cells(i, 2).Value) - InStr(1, Cells(i, 2).Value, "@", vbTextCompare)), _
                    Len(Right(Cells(i, 2).Value, Len(Cells(i, 2).Value) - InStr(1, Cells(i, 2).Value, "@", vbTextCompare))) - 1) * 1 Then
                Cells(1, 3).Value = Cells(j, 2).Value
                Cells(j, 2).Value = Cells(i, 2).Value
                Cells(i, 2).Value = Cells(1, 3).Value
            End If
        Next j
    Next i
    
    
    Cells(1, 3).Value = ""
      
    Application.ScreenUpdating = True
    Application.EnableEvents = True
End Sub

 

[Jocelyn]

Re : Tri base de donnée

re,
Bonjour liloucmoi,

Hum hum liloucmoi dans le fichier que j'ai joint les 2 dernière ligne sont identique et la fonction s'arrete, du moins renvoi une valeur d'erreur. si tu pouvais faire passer un exemple de quelques lignes qui présente le soucis je regarde.

Jocelyn

 

[bpol]

Re : Tri base de donnée

effacer erreur de ma part
A+
Bpol

 

[liloucmoi]

Re : Tri base de donnée

j'ai modifié mon message précédent ayant vu l'erreur avant la remarque de Jocelyn.

XlDment.

Ps : j'y ai rajouté un petit exemple.

 

[Jocelyn]

Re : Tri base de donnée

re,
Bonjour bpol,


Pour Nekoty, avec cette nouvelle version qui integre une formule nommé normalement ton excel ne devrait pus planter

Pour liloucmoi, cette version permet d'éviter la répétition des valeur d'erreur en fin de liste

Jocelyn