Tri base de donnée

C

Catrice

XLDnaute Barbatruc

• 30 Juillet 2009

• #2

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.

 

Vote positif 0 Vote négatif

Nekoty

XLDnaute Junior

• 30 Juillet 2009

• #3

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

 

Vote positif 0 Vote négatif

Jocelyn

XLDnaute Barbatruc

• 30 Juillet 2009

• #4

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

 

Pièces jointes

• Nekoty.xls

  14.5 KB · Affichages: 54

Vote positif 0 Vote négatif

Nekoty

XLDnaute Junior

• 30 Juillet 2009

• #5

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

 

Vote positif 0 Vote négatif

Nekoty

XLDnaute Junior

• 30 Juillet 2009

• #6

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

 

Dernière édition: 30 Juillet 2009

Vote positif 0 Vote négatif

Jocelyn

XLDnaute Barbatruc

• 30 Juillet 2009

• #7

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

 

Pièces jointes

• Nekoty V1.xls

  21.5 KB · Affichages: 54

Vote positif 0 Vote négatif

Nekoty

XLDnaute Junior

• 30 Juillet 2009

• #8

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

 

Vote positif 0 Vote négatif

L

liloucmoi

XLDnaute Occasionnel

• 30 Juillet 2009

• #9

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.

Code:

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

 

Pièces jointes

• Nekoty V2.xls

  31 KB · Affichages: 58

Dernière édition: 30 Juillet 2009

Vote positif 0 Vote négatif

Jocelyn

XLDnaute Barbatruc

• 30 Juillet 2009

• #10

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

 

Vote positif 0 Vote négatif

B

bpol

XLDnaute Impliqué

• 30 Juillet 2009

• #11

Re : Tri base de donnée

effacer erreur de ma part
A+
Bpol

 

Dernière édition: 30 Juillet 2009

Vote positif 0 Vote négatif

L

liloucmoi

XLDnaute Occasionnel

• 30 Juillet 2009

• #12

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.

 

Vote positif 0 Vote négatif

Jocelyn

XLDnaute Barbatruc

• 30 Juillet 2009

• #13

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

 

Pièces jointes

• Nekoty V3.zip

  6.2 KB · Affichages: 30

Vote positif 0 Vote négatif