Bonsoir les gens,
J'ai cette partie du code qui me pose problème. Pour faire simple la fonction intégrée dans ma sub me permet d'importer une page internet. Cette page internet contient des valeurs (nombre ou %), seul soucis, c'est que les valeurs sont écrites avec des points. De fait j'aimerais les remplacer par des virgules.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10 y = fnFondamentaux(ws.Cells(i, 2).Value, "hl", "holdings") ActiveSheet.Cells(1, 1).Offset(113, 3).Resize(15, 1).Cut Destination:=wsS.Cells(2, i - 2) ActiveSheet.Cells(1, 1).Offset(112, 0).Resize(13, 1).Cut Destination:=wsS.Cells(1, 1) Application.DisplayAlerts = False ActiveWorkbook.Close Application.DisplayAlerts = True Cells.Replace What:=".", Replacement:=",", LookAt:=xlPart, SearchOrder _ :=xlByRows, MatchCase:=False, SearchFormat:=True, ReplaceFormat:=True
Ce qui cloche c'est qu'une fois le remplacement effectué, les noms sont affichés avec l'indication "nombre au format texte", de fait je ne peux pas réutiliser ces valeurs pour faire mes calculs.
Auriez vous des suggestions ? J'ai vraiment essayé tous les formats possibles, malheureusement rien :/
Merci d'avance.
Cordialement.
Partager