CharlesSSQ
XLDnaute Junior
Bonjour,
Dans une colonne d'excel de ma trouve à avoir tout mais frais de gestion en %, le format de nombre est toutefois "texte" donc standard dans excel. mais frais sont écrit de la façon suivante: 1,65% par exemple. Je me demande s'il y a une façon rapide de simplement enlever le signe de % et n'avoir que 1,65.
j'ai essayé le .numberformat = "0,00" mais cela ne donne rien
Merci
Charles
Application.Workbooks(WORKBOOK_DATA).Activate
Sheets(SHEET_TRAVAIL_FRAIS).Select
For i = 1 To 100
ticker(i) = Cells(4, i).Value
valeur(i) = Cells(6, i).Text
Next i
Application.Workbooks(WORKBOOK_GUIDE).Activate
Sheets(SHEET_TRAVAIL_GUIDE).Select
With Range("F2:F100")
.ClearContents
.ClearFormats
End With
For i = 1 To 100
tickerrecherche = ticker(i)
valeurratio = valeur(i)
Set Ligneticker = Range("A1:A10000").Find(tickerrecherche, LookIn:=xlValues, LookAt:=xlWhole)
If Not Ligneticker Is Nothing Then
frais = Ligneticker.Row
Cells(frais, 6) = valeurratio
With Application.Workbooks(WORKBOOK_GUIDE).Sheets(SHEET_TRAVAIL_GUIDE).Cells(frais, 6)
.Value = valeurratio
.NumberFormat = ""
End With
End If
Next i
End Sub
Dans une colonne d'excel de ma trouve à avoir tout mais frais de gestion en %, le format de nombre est toutefois "texte" donc standard dans excel. mais frais sont écrit de la façon suivante: 1,65% par exemple. Je me demande s'il y a une façon rapide de simplement enlever le signe de % et n'avoir que 1,65.
j'ai essayé le .numberformat = "0,00" mais cela ne donne rien
Merci
Charles
Application.Workbooks(WORKBOOK_DATA).Activate
Sheets(SHEET_TRAVAIL_FRAIS).Select
For i = 1 To 100
ticker(i) = Cells(4, i).Value
valeur(i) = Cells(6, i).Text
Next i
Application.Workbooks(WORKBOOK_GUIDE).Activate
Sheets(SHEET_TRAVAIL_GUIDE).Select
With Range("F2:F100")
.ClearContents
.ClearFormats
End With
For i = 1 To 100
tickerrecherche = ticker(i)
valeurratio = valeur(i)
Set Ligneticker = Range("A1:A10000").Find(tickerrecherche, LookIn:=xlValues, LookAt:=xlWhole)
If Not Ligneticker Is Nothing Then
frais = Ligneticker.Row
Cells(frais, 6) = valeurratio
With Application.Workbooks(WORKBOOK_GUIDE).Sheets(SHEET_TRAVAIL_GUIDE).Cells(frais, 6)
.Value = valeurratio
.NumberFormat = ""
End With
End If
Next i
End Sub