Récupération de données à exploiter

Bonsoir le forum,

je fais appel à vous car je rencontre un problème de récupération de données exploitables, je m'explique :

cela concerne le monde des chevaux, je vais sur un site ou je récupère des données pour une course, le problème c'est que ces données, les cotes ici en l'occurrence , sur chaque cellule, on y retrouve des petits carrés de type dessin dessus ainsi qu'un format qui ne me permet pas de les récupérer pour faire ensuite des calculs.

ci-joint un fichier en exemple

si quelqu'un peut me dépanner, je l'en remercie à l'avance.

Mamarus

Bonsoir,

Si tu ne peux éviter de copier et coller tes cadres d'images, tu peux les supprimer sur ta feuille.

Pour la colonne F, il faut convertir.

Un code pour faire les deux, à adapter éventuellement :

Sub ConvertVal()
    Dim i%, shr As ShapeRange
    With ActiveSheet
        .Shapes.SelectAll
        Set shr = Selection.ShapeRange
        shr.Delete
        For i = 1 To .Cells(.Rows.Count, 6).End(xlUp).Row
            .Cells(i, 6) = Val(.Cells(i, 6))
        Next i
    End With
End Sub

Attention ! à n'utiliser qu'une seule fois ! La 2e fois, la conversion avec Val te supprimerait les décimales (car la fonction ne reconnaît que le point... )

Bonjour,

Avec un petit retard ( pour cause de déplacement ), j'ai testé et cela fonctionne impeccable.

Un grand merci en tout cas.

Bonne journée,

Mamarus