je dispose d une cellule en A10 qui a une multitude de ligne de texte
séparée par des chr(13) etant la resultante de l'execution d 'une macro
donc:
dans cette cellule A10 il y a du texte et des retour chariot CHR(13)
je voudrais si possible qu'une macro me prenne le texte de A10 et me le
transforme de A25 à A(indéfni) toutes les lignes de A10 à chaque fois qu'il
trouve un retour chariot chr(13)
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
michdenis
Bonjour,
Pour moi, ta question est incompréhensible !
| me prenne le texte de A10 et me le transforme de A25 | à A(indéfni) toutes les lignes de A10 à chaque fois qu'il | trouve un retour chariot chr(13)
***Aucune idée de ce que tu veux faire...
"STEPH B" a écrit dans le message de groupe de discussion : 4bf3c3a2$0$27596$ Bonjour
je dispose d une cellule en A10 qui a une multitude de ligne de texte séparée par des chr(13) etant la resultante de l'execution d 'une macro donc: dans cette cellule A10 il y a du texte et des retour chariot CHR(13) je voudrais si possible qu'une macro me prenne le texte de A10 et me le transforme de A25 à A(indéfni) toutes les lignes de A10 à chaque fois qu'il trouve un retour chariot chr(13)
merci d'avance
Bonjour,
Pour moi, ta question est incompréhensible !
| me prenne le texte de A10 et me le transforme de A25
| à A(indéfni) toutes les lignes de A10 à chaque fois qu'il
| trouve un retour chariot chr(13)
***Aucune idée de ce que tu veux faire...
"STEPH B" <stephol@prodiag.fr> a écrit dans le message de groupe de discussion :
4bf3c3a2$0$27596$ba4acef3@reader.news.orange.fr...
Bonjour
je dispose d une cellule en A10 qui a une multitude de ligne de texte
séparée par des chr(13) etant la resultante de l'execution d 'une macro
donc:
dans cette cellule A10 il y a du texte et des retour chariot CHR(13)
je voudrais si possible qu'une macro me prenne le texte de A10 et me le
transforme de A25 à A(indéfni) toutes les lignes de A10 à chaque fois qu'il
trouve un retour chariot chr(13)
| me prenne le texte de A10 et me le transforme de A25 | à A(indéfni) toutes les lignes de A10 à chaque fois qu'il | trouve un retour chariot chr(13)
***Aucune idée de ce que tu veux faire...
"STEPH B" a écrit dans le message de groupe de discussion : 4bf3c3a2$0$27596$ Bonjour
je dispose d une cellule en A10 qui a une multitude de ligne de texte séparée par des chr(13) etant la resultante de l'execution d 'une macro donc: dans cette cellule A10 il y a du texte et des retour chariot CHR(13) je voudrais si possible qu'une macro me prenne le texte de A10 et me le transforme de A25 à A(indéfni) toutes les lignes de A10 à chaque fois qu'il trouve un retour chariot chr(13)
merci d'avance
Tatanka
Salut,
Peut-être ceci :
Sub Sépare() Application.ScreenUpdating = False t = Range("A10").Value s = Split(t, Chr(13)) For i = 0 To UBound(s) Cells(25 + i, 1).Value = s(i) Next i Application.ScreenUpdating = True End Sub
Serge
"STEPH B" a écrit dans le message de news: 4bf3c3a2$0$27596$
Bonjour
je dispose d une cellule en A10 qui a une multitude de ligne de texte séparée par des chr(13) etant la resultante de l'execution d 'une macro donc: dans cette cellule A10 il y a du texte et des retour chariot CHR(13) je voudrais si possible qu'une macro me prenne le texte de A10 et me le transforme de A25 à A(indéfni) toutes les lignes de A10 à chaque fois qu'il trouve un retour chariot chr(13)
merci d'avance
Salut,
Peut-être ceci :
Sub Sépare()
Application.ScreenUpdating = False
t = Range("A10").Value
s = Split(t, Chr(13))
For i = 0 To UBound(s)
Cells(25 + i, 1).Value = s(i)
Next i
Application.ScreenUpdating = True
End Sub
Serge
"STEPH B" <stephol@prodiag.fr> a écrit dans le message de news: 4bf3c3a2$0$27596$ba4acef3@reader.news.orange.fr...
Bonjour
je dispose d une cellule en A10 qui a une multitude de ligne de texte séparée par des chr(13) etant la resultante de l'execution d
'une macro
donc:
dans cette cellule A10 il y a du texte et des retour chariot CHR(13)
je voudrais si possible qu'une macro me prenne le texte de A10 et me le transforme de A25 à A(indéfni) toutes les lignes de A10 à
chaque fois qu'il trouve un retour chariot chr(13)
Sub Sépare() Application.ScreenUpdating = False t = Range("A10").Value s = Split(t, Chr(13)) For i = 0 To UBound(s) Cells(25 + i, 1).Value = s(i) Next i Application.ScreenUpdating = True End Sub
Serge
"STEPH B" a écrit dans le message de news: 4bf3c3a2$0$27596$
Bonjour
je dispose d une cellule en A10 qui a une multitude de ligne de texte séparée par des chr(13) etant la resultante de l'execution d 'une macro donc: dans cette cellule A10 il y a du texte et des retour chariot CHR(13) je voudrais si possible qu'une macro me prenne le texte de A10 et me le transforme de A25 à A(indéfni) toutes les lignes de A10 à chaque fois qu'il trouve un retour chariot chr(13)
merci d'avance
db
Le 19/05/2010 12:54, STEPH B a écrit :
Bonjour
je dispose d une cellule en A10 qui a une multitude de ligne de texte séparée par des chr(13) etant la resultante de l'execution d 'une macro donc: dans cette cellule A10 il y a du texte et des retour chariot CHR(13) je voudrais si possible qu'une macro me prenne le texte de A10 et me le transforme de A25 à A(indéfni) toutes les lignes de A10 à chaque fois qu'il trouve un retour chariot chr(13)
merci d'avance
Quelque chose comme ça :
Sub test() Dim c As String, j As Byte, i As Byte c = Range("A10") j = 25 i = InStr(c, vbCrLf) While i > 0 Cells(j, 1) = Left(c, i - 1) c = Mid(c, i + 1) i = InStr(c, vbCrLf)) Wend j = j + 1 Cells(j, 1) = c
End Sub
Si ce sont vraiment des chr(13), remplacer les 2 vbCrLf par chr(13)
db
Le 19/05/2010 12:54, STEPH B a écrit :
Bonjour
je dispose d une cellule en A10 qui a une multitude de ligne de texte
séparée par des chr(13) etant la resultante de l'execution d 'une macro
donc:
dans cette cellule A10 il y a du texte et des retour chariot CHR(13)
je voudrais si possible qu'une macro me prenne le texte de A10 et me le
transforme de A25 à A(indéfni) toutes les lignes de A10 à chaque fois qu'il
trouve un retour chariot chr(13)
merci d'avance
Quelque chose comme ça :
Sub test()
Dim c As String, j As Byte, i As Byte
c = Range("A10")
j = 25
i = InStr(c, vbCrLf)
While i > 0
Cells(j, 1) = Left(c, i - 1)
c = Mid(c, i + 1)
i = InStr(c, vbCrLf))
Wend
j = j + 1
Cells(j, 1) = c
End Sub
Si ce sont vraiment des chr(13), remplacer les 2 vbCrLf par chr(13)
je dispose d une cellule en A10 qui a une multitude de ligne de texte séparée par des chr(13) etant la resultante de l'execution d 'une macro donc: dans cette cellule A10 il y a du texte et des retour chariot CHR(13) je voudrais si possible qu'une macro me prenne le texte de A10 et me le transforme de A25 à A(indéfni) toutes les lignes de A10 à chaque fois qu'il trouve un retour chariot chr(13)
merci d'avance
Quelque chose comme ça :
Sub test() Dim c As String, j As Byte, i As Byte c = Range("A10") j = 25 i = InStr(c, vbCrLf) While i > 0 Cells(j, 1) = Left(c, i - 1) c = Mid(c, i + 1) i = InStr(c, vbCrLf)) Wend j = j + 1 Cells(j, 1) = c
End Sub
Si ce sont vraiment des chr(13), remplacer les 2 vbCrLf par chr(13)
db
STEPH B
merci tatanka c est exactement cela...... merci bcp
"db" a écrit dans le message de news: %
Le 19/05/2010 12:54, STEPH B a écrit :
Bonjour
je dispose d une cellule en A10 qui a une multitude de ligne de texte séparée par des chr(13) etant la resultante de l'execution d 'une macro donc: dans cette cellule A10 il y a du texte et des retour chariot CHR(13) je voudrais si possible qu'une macro me prenne le texte de A10 et me le transforme de A25 à A(indéfni) toutes les lignes de A10 à chaque fois qu'il trouve un retour chariot chr(13)
merci d'avance
Quelque chose comme ça :
Sub test() Dim c As String, j As Byte, i As Byte c = Range("A10") j = 25 i = InStr(c, vbCrLf) While i > 0 Cells(j, 1) = Left(c, i - 1) c = Mid(c, i + 1) i = InStr(c, vbCrLf)) Wend j = j + 1 Cells(j, 1) = c
End Sub
Si ce sont vraiment des chr(13), remplacer les 2 vbCrLf par chr(13)
db
merci tatanka c est exactement cela......
merci bcp
"db" <blue_moon_frXX@_hotmail.com> a écrit dans le message de news:
%23RY1Zk09KHA.4316@TK2MSFTNGP04.phx.gbl...
Le 19/05/2010 12:54, STEPH B a écrit :
Bonjour
je dispose d une cellule en A10 qui a une multitude de ligne de texte
séparée par des chr(13) etant la resultante de l'execution d 'une macro
donc:
dans cette cellule A10 il y a du texte et des retour chariot CHR(13)
je voudrais si possible qu'une macro me prenne le texte de A10 et me le
transforme de A25 à A(indéfni) toutes les lignes de A10 à chaque fois
qu'il
trouve un retour chariot chr(13)
merci d'avance
Quelque chose comme ça :
Sub test()
Dim c As String, j As Byte, i As Byte
c = Range("A10")
j = 25
i = InStr(c, vbCrLf)
While i > 0
Cells(j, 1) = Left(c, i - 1)
c = Mid(c, i + 1)
i = InStr(c, vbCrLf))
Wend
j = j + 1
Cells(j, 1) = c
End Sub
Si ce sont vraiment des chr(13), remplacer les 2 vbCrLf par chr(13)
merci tatanka c est exactement cela...... merci bcp
"db" a écrit dans le message de news: %
Le 19/05/2010 12:54, STEPH B a écrit :
Bonjour
je dispose d une cellule en A10 qui a une multitude de ligne de texte séparée par des chr(13) etant la resultante de l'execution d 'une macro donc: dans cette cellule A10 il y a du texte et des retour chariot CHR(13) je voudrais si possible qu'une macro me prenne le texte de A10 et me le transforme de A25 à A(indéfni) toutes les lignes de A10 à chaque fois qu'il trouve un retour chariot chr(13)
merci d'avance
Quelque chose comme ça :
Sub test() Dim c As String, j As Byte, i As Byte c = Range("A10") j = 25 i = InStr(c, vbCrLf) While i > 0 Cells(j, 1) = Left(c, i - 1) c = Mid(c, i + 1) i = InStr(c, vbCrLf)) Wend j = j + 1 Cells(j, 1) = c
End Sub
Si ce sont vraiment des chr(13), remplacer les 2 vbCrLf par chr(13)
db
Tatanka
Ce ne serait pas plutôt des sauts de ligne ? Si c'est le cas, remplace Chr(13) par Chr(10).
"Tatanka" a écrit dans le message de news:
Salut,
Peut-être ceci :
Sub Sépare() Application.ScreenUpdating = False t = Range("A10").Value s = Split(t, Chr(13)) For i = 0 To UBound(s) Cells(25 + i, 1).Value = s(i) Next i Application.ScreenUpdating = True End Sub
Serge
"STEPH B" a écrit dans le message de news: 4bf3c3a2$0$27596$
Bonjour
je dispose d une cellule en A10 qui a une multitude de ligne de texte séparée par des chr(13) etant la resultante de l'execution d 'une macro donc: dans cette cellule A10 il y a du texte et des retour chariot CHR(13) je voudrais si possible qu'une macro me prenne le texte de A10 et me le transforme de A25 à A(indéfni) toutes les lignes de A10 à chaque fois qu'il trouve un retour chariot chr(13)
merci d'avance
Ce ne serait pas plutôt des sauts de ligne ?
Si c'est le cas, remplace Chr(13) par Chr(10).
"Tatanka" <garnote3ENLEVER@videotron.ca> a écrit dans le message de news: uLVsmj09KHA.5464@TK2MSFTNGP05.phx.gbl...
Salut,
Peut-être ceci :
Sub Sépare()
Application.ScreenUpdating = False
t = Range("A10").Value
s = Split(t, Chr(13))
For i = 0 To UBound(s)
Cells(25 + i, 1).Value = s(i)
Next i
Application.ScreenUpdating = True
End Sub
Serge
"STEPH B" <stephol@prodiag.fr> a écrit dans le message de news: 4bf3c3a2$0$27596$ba4acef3@reader.news.orange.fr...
Bonjour
je dispose d une cellule en A10 qui a une multitude de ligne de texte séparée par des chr(13) etant la resultante de l'execution
d 'une macro
donc:
dans cette cellule A10 il y a du texte et des retour chariot CHR(13)
je voudrais si possible qu'une macro me prenne le texte de A10 et me le transforme de A25 à A(indéfni) toutes les lignes de A10 à
chaque fois qu'il trouve un retour chariot chr(13)
Ce ne serait pas plutôt des sauts de ligne ? Si c'est le cas, remplace Chr(13) par Chr(10).
"Tatanka" a écrit dans le message de news:
Salut,
Peut-être ceci :
Sub Sépare() Application.ScreenUpdating = False t = Range("A10").Value s = Split(t, Chr(13)) For i = 0 To UBound(s) Cells(25 + i, 1).Value = s(i) Next i Application.ScreenUpdating = True End Sub
Serge
"STEPH B" a écrit dans le message de news: 4bf3c3a2$0$27596$
Bonjour
je dispose d une cellule en A10 qui a une multitude de ligne de texte séparée par des chr(13) etant la resultante de l'execution d 'une macro donc: dans cette cellule A10 il y a du texte et des retour chariot CHR(13) je voudrais si possible qu'une macro me prenne le texte de A10 et me le transforme de A25 à A(indéfni) toutes les lignes de A10 à chaque fois qu'il trouve un retour chariot chr(13)