Classement de cotes

bonjour

je récupère des numéros et des cotes sous la forme 20.5 que j'essaie de convertir au format nombre en remplacant le point par une virgule et en multipliant par 1.

Ensuite je les classe par ordre croissant mais je n'arrive pas à faire correspondre les numéros aux cotes classées.

merci de votre aide.

Bonjour,

Une proposition avec moins de formule de calcul mais quelques manip.

Cordialement.

Bonjour

Bonjour à tous

Une variante.

Option Explicit
Dim tablo, tabloR()
Dim i&, k&
Sub Convertir()  
    tablo = Range("B3:C" & Range("B" & Rows.Count).End(xlUp).Row)
    k = 0
    For i = 2 To UBound(tablo, 1)
        If tablo(i, 1) <> "" Then
            ReDim Preserve tabloR(1 To 2, 1 To k + 1)
            tabloR(1, k + 1) = tablo(i, 1)
            tabloR(2, k + 1) = Replace(tablo(i, 2), ".", ",") * 1
            k = k + 1
        End If
    Next i
    Range("B3:C3").Copy Range("E3")
    Range("E3").CurrentRegion.Offset(1, 0).Clear
    Range("E4").Resize(UBound(tabloR, 2), 2) = Application.Transpose(tabloR)
    Range("E4").Resize(UBound(tabloR, 2), 1).BorderAround Weight:=xlThin
    Range("F4").Resize(UBound(tabloR, 2), 1).BorderAround Weight:=xlThin
    Range("E4").Resize(UBound(tabloR, 2), 2).Sort key1:=Range("F4"), order1:=xlAscending, Header:=xlNo
    Range("E4").Resize(UBound(tabloR, 2), 2).Interior.Color = RGB(204, 255, 255)
    Range("E4").Resize(UBound(tabloR, 2), 2).HorizontalAlignment = xlCenter
End Sub

Bye !

bonjour

merci Zebulon pour laproposition

lorsque j'essaie de remplacer le point par la virgule ,Microsoft excel ne trouve pas les données correspondantes à remplacer.

bonjour

merci gmb pour ta proposition que je ne pourrais malheureusement exploiter étant nul en vba.

re,

Essaie de sélectionner directement le point dans une cellule de la plage, copie le et colle le dans la zone rechercher.

Cordialement.

bonjour

merci Zebulon ,ca marche.

bonne journée.

Bonjour à toutes et tous,

@gobernador,

Si tu veux continuer avec des formules.

A tester:

Cordialement.

bonjour

je tiens à te remercier pour la solution proposée qui répond exactement à ce que je souhaitais.

je m'excuse de ne pas pouvoir le faire Plus tôt.