Bonjour,
une cellule contenant des valeurs textes et nombres séparés par des "/"
ex: 14.25/258/14.36/ ou lundi/mercrdi/azerty/zaza/
Comment retouver ces valeurs séparées dans une colonne (A1:A10) sans le "/"
Merci d'avance,
--
\\\ ////
( O O )
------oOOo-(_)-oOOo-----------------
Claudy
Après qques précautions, Données > convertir > délimité > .. Et ensuite copier / coller > transposé
AV
claudy
Ok, merci, je connaissais cela mais j'aurais préféré une tite macro! A+ "AV" a écrit dans le message de news:
Après qques précautions, Données > convertir > délimité > .. Et ensuite copier / coller > transposé
AV
Ok, merci, je connaissais cela mais j'aurais préféré une tite macro!
A+
"AV" <alainPFFFvallon@wanadoo.fr> a écrit dans le message de news:
eEZHQx9GFHA.3628@TK2MSFTNGP15.phx.gbl...
Après qques précautions, Données > convertir > délimité > ..
Et ensuite copier / coller > transposé
Ok, merci, je connaissais cela mais j'aurais préféré une tite macro!
Ben si tu connaissais...je comprends pas que tu n'aies pas pensé à l'enregistreur de macros (plus qques bricoles...)
AV
Amandine
AV wrote:
Ben si tu connaissais...je comprends pas que tu n'aies pas pensé à l'enregistreur de macros (plus qques bricoles...)
Oh, ma mie... je suis pressé, n'auriez vu point vu mon crayon ??? Mais, trés cher, il est sur votre oreille !!!! Voyons, Je vous ai dit que j'étais pressé, auriez-vous ma mie, l'obligeance de me dire sur quelle oreille .... ;o)))
AV wrote:
Ben si tu connaissais...je comprends pas que tu n'aies pas pensé à
l'enregistreur de macros (plus qques bricoles...)
Oh, ma mie...
je suis pressé, n'auriez vu point vu mon crayon ???
Mais, trés cher, il est sur votre oreille !!!!
Voyons, Je vous ai dit que j'étais pressé, auriez-vous ma mie, l'obligeance
de me dire sur quelle oreille ....
;o)))
Ben si tu connaissais...je comprends pas que tu n'aies pas pensé à l'enregistreur de macros (plus qques bricoles...)
Oh, ma mie... je suis pressé, n'auriez vu point vu mon crayon ??? Mais, trés cher, il est sur votre oreille !!!! Voyons, Je vous ai dit que j'étais pressé, auriez-vous ma mie, l'obligeance de me dire sur quelle oreille .... ;o)))
Jacky
Deux Mexicains se prélassent sous un arbre..... Un coup de vent fait passer un billet de 100 Dollars. L'un dit à l'autre: Eh! dit..... si le vent tourne, je serais riche......
JJ
"AV" a écrit dans le message de news:%23txOuh%
Ok, merci, je connaissais cela mais j'aurais préféré une tite macro!
Ben si tu connaissais...je comprends pas que tu n'aies pas pensé à l'enregistreur de macros (plus qques bricoles...)
AV
Deux Mexicains se prélassent sous un arbre.....
Un coup de vent fait passer un billet de 100 Dollars.
L'un dit à l'autre:
Eh! dit..... si le vent tourne, je serais riche......
JJ
"AV" <alainPFFFvallon@wanadoo.fr> a écrit dans le message de
news:%23txOuh%23GFHA.3352@TK2MSFTNGP10.phx.gbl...
Ok, merci, je connaissais cela mais j'aurais préféré une tite macro!
Ben si tu connaissais...je comprends pas que tu n'aies pas pensé à
l'enregistreur de macros (plus qques bricoles...)
Deux Mexicains se prélassent sous un arbre..... Un coup de vent fait passer un billet de 100 Dollars. L'un dit à l'autre: Eh! dit..... si le vent tourne, je serais riche......
JJ
"AV" a écrit dans le message de news:%23txOuh%
Ok, merci, je connaissais cela mais j'aurais préféré une tite macro!
Ben si tu connaissais...je comprends pas que tu n'aies pas pensé à l'enregistreur de macros (plus qques bricoles...)
AV
Jacky
Bon, Cela pourrait ressembler à ceci: Avec la valeur de départ en b1 '-------- For i = 1 To Len([b1]) z = z + 1 x = Mid([b1], i, 1) If x = "/" Then y = y + 1 Range("a" & y) = Mid([b1], i - z + 1, z - 1) z = 0 End If Next Range("a" & y + 1) = Mid([b1], i - z, Len([b1])) '--------- Salutations JJ
Bon,
Cela pourrait ressembler à ceci:
Avec la valeur de départ en b1
'--------
For i = 1 To Len([b1])
z = z + 1
x = Mid([b1], i, 1)
If x = "/" Then
y = y + 1
Range("a" & y) = Mid([b1], i - z + 1, z - 1)
z = 0
End If
Next
Range("a" & y + 1) = Mid([b1], i - z, Len([b1]))
'---------
Salutations
JJ
Bon, Cela pourrait ressembler à ceci: Avec la valeur de départ en b1 '-------- For i = 1 To Len([b1]) z = z + 1 x = Mid([b1], i, 1) If x = "/" Then y = y + 1 Range("a" & y) = Mid([b1], i - z + 1, z - 1) z = 0 End If Next Range("a" & y + 1) = Mid([b1], i - z, Len([b1])) '--------- Salutations JJ
AV
(mini XL2000) la chaïne en B1 :
Sub zzSplit() txt = [B1] txt = Left(txt, Len(txt) - 1) x = Split(txt, "/") For i = 0 To UBound(x) Cells(i + 1, "A").Value = x(i) Next i End Sub
AV
(mini XL2000) la chaïne en B1 :
Sub zzSplit()
txt = [B1]
txt = Left(txt, Len(txt) - 1)
x = Split(txt, "/")
For i = 0 To UBound(x)
Cells(i + 1, "A").Value = x(i)
Next i
End Sub