Bonjour a tous,
Je reviens vers vous car je suis bloqué sur une macro que j'ai codé au bureau.
je copie colle des donnees en A1 contenant des montant sous la forme : "ASML NA -34,453"
la macro s'occupe de transformé ce format en "ASML NA -34453" tout fonctionne bien jusqu'au moment ou la vcaleur de la cellule se termine par un zero
ex de la source : "ASML NA -38,000" une fois que je la colle il s'affiche "ASML NA -38,00" et donc ASML NA -3800 apres le run de la macro
cf le code de ma macro
Sub basket()
Dim maPlage As Range
Dim DernLigne As Long
'dernière ligne colonne A
DernLigne = Range("A" & Rows.Count).End(xlUp).Row
'dernière colonne ligne 1
Set maPlage = Range(Cells(1, 1), Cells(DernLigne, 2))
'pour chaque cellule de ma plage
For Each c In maPlage
'je remplace la , par "'"
c.Value = Replace(c.Value, ",", "")
'je remplace le + par ""
c.Value = Replace(c.Value, "+", "")
Next c
Sheets("JP10 CLO").Select
End Sub
merci pour votre coup de main
Je reviens vers vous car je suis bloqué sur une macro que j'ai codé au bureau.
je copie colle des donnees en A1 contenant des montant sous la forme : "ASML NA -34,453"
la macro s'occupe de transformé ce format en "ASML NA -34453" tout fonctionne bien jusqu'au moment ou la vcaleur de la cellule se termine par un zero
ex de la source : "ASML NA -38,000" une fois que je la colle il s'affiche "ASML NA -38,00" et donc ASML NA -3800 apres le run de la macro
cf le code de ma macro
Sub basket()
Dim maPlage As Range
Dim DernLigne As Long
'dernière ligne colonne A
DernLigne = Range("A" & Rows.Count).End(xlUp).Row
'dernière colonne ligne 1
Set maPlage = Range(Cells(1, 1), Cells(DernLigne, 2))
'pour chaque cellule de ma plage
For Each c In maPlage
'je remplace la , par "'"
c.Value = Replace(c.Value, ",", "")
'je remplace le + par ""
c.Value = Replace(c.Value, "+", "")
Next c
Sheets("JP10 CLO").Select
End Sub
merci pour votre coup de main