Bonjour,
Je récupère sur un site web une suite de chiffre sous le format "-4,768.81",
par exemple.
Pour que ces chiffres soit reconnus pas excel comme nombre, il faut que je
supprime la "," des milles, que je remplace le "." par une virgule, et bien
souvent que je supprime une espace (invisible) située avant ou après les
chiffres.
J'essaie d'automatiser cette tache pour 5 cellules en ligne, mais " moi y'n
avoir tout essaye et pas réussi".
J'ai tente "substitute" en formule, "cdbl". A la main, ca semblerait
marcher, mais j'arrive pas a l'écrire en vba.
D'avance merci a tous.
Bonne journée
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
isabelle
bonjour mirnan,
Sub Macro1() With Range("A1:A5") .Replace What:=",", Replacement:="", LookAt:=xlPart, MatchCase:úlse .Replace What:=" ", Replacement:="", LookAt:=xlPart, MatchCase:úlse End With End Sub
isabelle
mirnan a écrit :
Bonjour, Je récupère sur un site web une suite de chiffre sous le format "-4,768.81", par exemple. Pour que ces chiffres soit reconnus pas excel comme nombre, il faut que je supprime la "," des milles, que je remplace le "." par une virgule, et bien souvent que je supprime une espace (invisible) située avant ou après les chiffres. J'essaie d'automatiser cette tache pour 5 cellules en ligne, mais " moi y'n avoir tout essaye et pas réussi". J'ai tente "substitute" en formule, "cdbl". A la main, ca semblerait marcher, mais j'arrive pas a l'écrire en vba. D'avance merci a tous. Bonne journée
bonjour mirnan,
Sub Macro1()
With Range("A1:A5")
.Replace What:=",", Replacement:="", LookAt:=xlPart, MatchCase:úlse
.Replace What:=" ", Replacement:="", LookAt:=xlPart, MatchCase:úlse
End With
End Sub
isabelle
mirnan a écrit :
Bonjour,
Je récupère sur un site web une suite de chiffre sous le format "-4,768.81",
par exemple.
Pour que ces chiffres soit reconnus pas excel comme nombre, il faut que je
supprime la "," des milles, que je remplace le "." par une virgule, et bien
souvent que je supprime une espace (invisible) située avant ou après les
chiffres.
J'essaie d'automatiser cette tache pour 5 cellules en ligne, mais " moi y'n
avoir tout essaye et pas réussi".
J'ai tente "substitute" en formule, "cdbl". A la main, ca semblerait
marcher, mais j'arrive pas a l'écrire en vba.
D'avance merci a tous.
Bonne journée
Sub Macro1() With Range("A1:A5") .Replace What:=",", Replacement:="", LookAt:=xlPart, MatchCase:úlse .Replace What:=" ", Replacement:="", LookAt:=xlPart, MatchCase:úlse End With End Sub
isabelle
mirnan a écrit :
Bonjour, Je récupère sur un site web une suite de chiffre sous le format "-4,768.81", par exemple. Pour que ces chiffres soit reconnus pas excel comme nombre, il faut que je supprime la "," des milles, que je remplace le "." par une virgule, et bien souvent que je supprime une espace (invisible) située avant ou après les chiffres. J'essaie d'automatiser cette tache pour 5 cellules en ligne, mais " moi y'n avoir tout essaye et pas réussi". J'ai tente "substitute" en formule, "cdbl". A la main, ca semblerait marcher, mais j'arrive pas a l'écrire en vba. D'avance merci a tous. Bonne journée
MichDenis
Testé avec Excel 2007 : Tu places ce code dans le module feuille où l'action se déroule. et tu adaptes la plage de cellules visées. Sub test() Range("a1:A10").Replace what:=" ", replacement:="", Lookat:=xlPart Range("a1:A10").Replace what:=Chr(160), replacement:="", Lookat:=xlPart Range("a1:A10").Replace what:=",", replacement:="", Lookat:=xlPart 'Tu appliques le format que tu désires... Range("a1:A10").NumberFormat = "# ##0.00" End Sub
"mirnan" a écrit dans le message de groupe de discussion : 49abe394$0$25566$ Bonjour, Je récupère sur un site web une suite de chiffre sous le format "-4,768.81", par exemple. Pour que ces chiffres soit reconnus pas excel comme nombre, il faut que je supprime la "," des milles, que je remplace le "." par une virgule, et bien souvent que je supprime une espace (invisible) située avant ou après les chiffres. J'essaie d'automatiser cette tache pour 5 cellules en ligne, mais " moi y'n avoir tout essaye et pas réussi". J'ai tente "substitute" en formule, "cdbl". A la main, ca semblerait marcher, mais j'arrive pas a l'écrire en vba. D'avance merci a tous. Bonne journée
Testé avec Excel 2007 :
Tu places ce code dans le module feuille où l'action se déroule.
et tu adaptes la plage de cellules visées.
Sub test()
Range("a1:A10").Replace what:=" ", replacement:="", Lookat:=xlPart
Range("a1:A10").Replace what:=Chr(160), replacement:="", Lookat:=xlPart
Range("a1:A10").Replace what:=",", replacement:="", Lookat:=xlPart
'Tu appliques le format que tu désires...
Range("a1:A10").NumberFormat = "# ##0.00"
End Sub
"mirnan" <mirnan@hotmail.com> a écrit dans le message de groupe de discussion :
49abe394$0$25566$426a74cc@news.free.fr...
Bonjour,
Je récupère sur un site web une suite de chiffre sous le format "-4,768.81",
par exemple.
Pour que ces chiffres soit reconnus pas excel comme nombre, il faut que je
supprime la "," des milles, que je remplace le "." par une virgule, et bien
souvent que je supprime une espace (invisible) située avant ou après les
chiffres.
J'essaie d'automatiser cette tache pour 5 cellules en ligne, mais " moi y'n
avoir tout essaye et pas réussi".
J'ai tente "substitute" en formule, "cdbl". A la main, ca semblerait
marcher, mais j'arrive pas a l'écrire en vba.
D'avance merci a tous.
Bonne journée
Testé avec Excel 2007 : Tu places ce code dans le module feuille où l'action se déroule. et tu adaptes la plage de cellules visées. Sub test() Range("a1:A10").Replace what:=" ", replacement:="", Lookat:=xlPart Range("a1:A10").Replace what:=Chr(160), replacement:="", Lookat:=xlPart Range("a1:A10").Replace what:=",", replacement:="", Lookat:=xlPart 'Tu appliques le format que tu désires... Range("a1:A10").NumberFormat = "# ##0.00" End Sub
"mirnan" a écrit dans le message de groupe de discussion : 49abe394$0$25566$ Bonjour, Je récupère sur un site web une suite de chiffre sous le format "-4,768.81", par exemple. Pour que ces chiffres soit reconnus pas excel comme nombre, il faut que je supprime la "," des milles, que je remplace le "." par une virgule, et bien souvent que je supprime une espace (invisible) située avant ou après les chiffres. J'essaie d'automatiser cette tache pour 5 cellules en ligne, mais " moi y'n avoir tout essaye et pas réussi". J'ai tente "substitute" en formule, "cdbl". A la main, ca semblerait marcher, mais j'arrive pas a l'écrire en vba. D'avance merci a tous. Bonne journée
mirnan
Merci Isabelle. Espère pouvoir un jour t'aider a mon tour, mais ai bien peur de ne pas être a la hauter. Encore merci. Bonne journée "isabelle" a écrit dans le message de news:
bonjour mirnan,
Sub Macro1() With Range("A1:A5") .Replace What:=",", Replacement:="", LookAt:=xlPart, MatchCase:úlse .Replace What:=" ", Replacement:="", LookAt:=xlPart, MatchCase:úlse End With End Sub
isabelle
mirnan a écrit :
Bonjour, Je récupère sur un site web une suite de chiffre sous le format "-4,768.81", par exemple. Pour que ces chiffres soit reconnus pas excel comme nombre, il faut que je supprime la "," des milles, que je remplace le "." par une virgule, et bien souvent que je supprime une espace (invisible) située avant ou après les chiffres. J'essaie d'automatiser cette tache pour 5 cellules en ligne, mais " moi y'n avoir tout essaye et pas réussi". J'ai tente "substitute" en formule, "cdbl". A la main, ca semblerait marcher, mais j'arrive pas a l'écrire en vba. D'avance merci a tous. Bonne journée
Merci Isabelle.
Espère pouvoir un jour t'aider a mon tour, mais ai bien peur de ne pas être
a la hauter.
Encore merci.
Bonne journée
"isabelle" <i@v> a écrit dans le message de news:
OnOjcaAnJHA.1248@TK2MSFTNGP03.phx.gbl...
bonjour mirnan,
Sub Macro1()
With Range("A1:A5")
.Replace What:=",", Replacement:="", LookAt:=xlPart, MatchCase:úlse
.Replace What:=" ", Replacement:="", LookAt:=xlPart, MatchCase:úlse
End With
End Sub
isabelle
mirnan a écrit :
Bonjour,
Je récupère sur un site web une suite de chiffre sous le format
"-4,768.81", par exemple.
Pour que ces chiffres soit reconnus pas excel comme nombre, il faut que
je supprime la "," des milles, que je remplace le "." par une virgule, et
bien souvent que je supprime une espace (invisible) située avant ou après
les chiffres.
J'essaie d'automatiser cette tache pour 5 cellules en ligne, mais " moi
y'n avoir tout essaye et pas réussi".
J'ai tente "substitute" en formule, "cdbl". A la main, ca semblerait
marcher, mais j'arrive pas a l'écrire en vba.
D'avance merci a tous.
Bonne journée
Merci Isabelle. Espère pouvoir un jour t'aider a mon tour, mais ai bien peur de ne pas être a la hauter. Encore merci. Bonne journée "isabelle" a écrit dans le message de news:
bonjour mirnan,
Sub Macro1() With Range("A1:A5") .Replace What:=",", Replacement:="", LookAt:=xlPart, MatchCase:úlse .Replace What:=" ", Replacement:="", LookAt:=xlPart, MatchCase:úlse End With End Sub
isabelle
mirnan a écrit :
Bonjour, Je récupère sur un site web une suite de chiffre sous le format "-4,768.81", par exemple. Pour que ces chiffres soit reconnus pas excel comme nombre, il faut que je supprime la "," des milles, que je remplace le "." par une virgule, et bien souvent que je supprime une espace (invisible) située avant ou après les chiffres. J'essaie d'automatiser cette tache pour 5 cellules en ligne, mais " moi y'n avoir tout essaye et pas réussi". J'ai tente "substitute" en formule, "cdbl". A la main, ca semblerait marcher, mais j'arrive pas a l'écrire en vba. D'avance merci a tous. Bonne journée