XL 2016 Nettoyage des caractères spéciaux

[Phytoman]

Bonjour à tous,
Je reçois d'une API un script composé de nombreuses lignes dédiées à des joueurs de foot.
Après avoir fait une opération"colonnes" me permettant de copier chaque ligne - 1 cellule afin de placer toutes les données d'un seul joueur sur une ligne et supprimé les colonnes dont je n'ai pas besoin, je lance une macro pour nettoyer les cellules de leurs caractères indésirables.
Lorsque j'effectue la macro, il vient insérer systématiquement les coordonnées d'un joueur présent dans ma première équipe ?
Où ai-je fait une erreur ?
En annexe le fichier

Merci d'avance

 

[Hasco]

Bonjour,

Vous avez 2016, à votre place je regarderai du côté de powerquery pour importer vos données, les nettoyer et les transformer.
Deux liens qui pourront vous aider:
Où se trouve Power Query
Se connecter à un fichier Json (Il me semble que vos données proviennent d'un fichier json)

Cordialement

 

[patricktoulon]

bonjour

Sub test()


    With Cells
        .Replace What:=",", Replacement:="", LookAt:=xlPart
        .Replace What:=Chr(34), Replacement:="", LookAt:=xlPart
        .Replace What:="player_id:", Replacement:="", LookAt:=xlPart
        .Replace What:="player_name:", Replacement:="", LookAt:=xlPart
        .Replace What:="firstname:", Replacement:="", LookAt:=xlPart
        .Replace What:="lastname:", Replacement:="", LookAt:=xlPart
        'etc... etc.....
    End With
End Sub

je te laisse compléter la suite

 

[Phytoman]

Excellent merci