Bonjour,
J'ai un fichier texte avec des données séparées par des points virgules
(dans une même cellule), et je voudrais convertir ce fichier en séparant les
données pour quelles soient chacunes dans une cellule différente.
Est ce possible ?
"Annie" a écrit dans le message de news:42593ab4$0$3135$
Bonjour, J'ai un fichier texte avec des données séparées par des points virgules
(dans une même cellule), et je voudrais convertir ce fichier en séparant les
données pour quelles soient chacunes dans une cellule différente. Est ce possible ?
merci beaucoup Annie
Philippe.R
Bonjour Annie, Menu / Données / Convertir et se laisser guider devrait convenir, non ? -- Amicales Salutations XL 97 / 2000 / 2002 Préférez suivre facilement sur le forum : news://msnews.microsoft.com/microsoft.public.fr.excel (Voulez-vous vous abonner ? -> Oui)
"Annie" a écrit dans le message de news: 42593ab4$0$3135$
Bonjour, J'ai un fichier texte avec des données séparées par des points virgules (dans une même cellule), et je voudrais convertir ce fichier en séparant les données pour quelles soient chacunes dans une cellule différente. Est ce possible ?
merci beaucoup Annie
Bonjour Annie,
Menu / Données / Convertir et se laisser guider devrait convenir, non ?
--
Amicales Salutations
XL 97 / 2000 / 2002
Préférez suivre facilement sur le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)
"Annie" <annie.a.lefebvre@wanadoo.fr> a écrit dans le message de news:
42593ab4$0$3135$8fcfb975@news.wanadoo.fr...
Bonjour,
J'ai un fichier texte avec des données séparées par des points virgules
(dans une même cellule), et je voudrais convertir ce fichier en séparant les
données pour quelles soient chacunes dans une cellule différente.
Est ce possible ?
Bonjour Annie, Menu / Données / Convertir et se laisser guider devrait convenir, non ? -- Amicales Salutations XL 97 / 2000 / 2002 Préférez suivre facilement sur le forum : news://msnews.microsoft.com/microsoft.public.fr.excel (Voulez-vous vous abonner ? -> Oui)
"Annie" a écrit dans le message de news: 42593ab4$0$3135$
Bonjour, J'ai un fichier texte avec des données séparées par des points virgules (dans une même cellule), et je voudrais convertir ce fichier en séparant les données pour quelles soient chacunes dans une cellule différente. Est ce possible ?
merci beaucoup Annie
Michel41
Bonjour Si le fichier est déjà chargé dans une cellule le plus simple est d'écrire une macro avec Split
Sub EclaterText()
'Sélection de 2 cellules 'Analyse le contenu de la première 'écriture horizontale à partie de la seconde Dim A As Variant, S As String, X As Range Dim i As Integer, j As Integer, k As Integer S = ";" With Application With .Selection A = Split(.Range("A1").Value & S, S) S = .Address End With k = UBound(A, 1) - 1 ReDim Preserve A(LBound(A, 1) To k) i = InStr(1, S, ",") + 1 S = Mid(S, i) i = .Range(S).Row j = .Range(S).Column .Range(.Cells(i, j), .Cells(i, j + k)) = A End With End Sub
@+
M41
"Annie" a écrit dans le message de news: 42593ab4$0$3135$
Bonjour, J'ai un fichier texte avec des données séparées par des points virgules (dans une même cellule), et je voudrais convertir ce fichier en séparant les données pour quelles soient chacunes dans une cellule différente. Est ce possible ?
merci beaucoup Annie
Bonjour
Si le fichier est déjà chargé dans une cellule
le plus simple est d'écrire une macro avec Split
Sub EclaterText()
'Sélection de 2 cellules
'Analyse le contenu de la première
'écriture horizontale à partie de la seconde
Dim A As Variant, S As String, X As Range
Dim i As Integer, j As Integer, k As Integer
S = ";"
With Application
With .Selection
A = Split(.Range("A1").Value & S, S)
S = .Address
End With
k = UBound(A, 1) - 1
ReDim Preserve A(LBound(A, 1) To k)
i = InStr(1, S, ",") + 1
S = Mid(S, i)
i = .Range(S).Row
j = .Range(S).Column
.Range(.Cells(i, j), .Cells(i, j + k)) = A
End With
End Sub
@+
M41
"Annie" <annie.a.lefebvre@wanadoo.fr> a écrit dans le message de news:
42593ab4$0$3135$8fcfb975@news.wanadoo.fr...
Bonjour,
J'ai un fichier texte avec des données séparées par des points virgules
(dans une même cellule), et je voudrais convertir ce fichier en séparant
les
données pour quelles soient chacunes dans une cellule différente.
Est ce possible ?
Bonjour Si le fichier est déjà chargé dans une cellule le plus simple est d'écrire une macro avec Split
Sub EclaterText()
'Sélection de 2 cellules 'Analyse le contenu de la première 'écriture horizontale à partie de la seconde Dim A As Variant, S As String, X As Range Dim i As Integer, j As Integer, k As Integer S = ";" With Application With .Selection A = Split(.Range("A1").Value & S, S) S = .Address End With k = UBound(A, 1) - 1 ReDim Preserve A(LBound(A, 1) To k) i = InStr(1, S, ",") + 1 S = Mid(S, i) i = .Range(S).Row j = .Range(S).Column .Range(.Cells(i, j), .Cells(i, j + k)) = A End With End Sub
@+
M41
"Annie" a écrit dans le message de news: 42593ab4$0$3135$
Bonjour, J'ai un fichier texte avec des données séparées par des points virgules (dans une même cellule), et je voudrais convertir ce fichier en séparant les données pour quelles soient chacunes dans une cellule différente. Est ce possible ?
merci beaucoup Annie
Michel41
... si une seule cellule est sélectionnée contenant les données, l'écriture se fait à partir de celle-ci....
"Michel41" a écrit dans le message de news: 4259644a$0$1229$
Bonjour Si le fichier est déjà chargé dans une cellule le plus simple est d'écrire une macro avec Split
Sub EclaterText()
'Sélection de 2 cellules 'Analyse le contenu de la première 'écriture horizontale à partie de la seconde Dim A As Variant, S As String, X As Range Dim i As Integer, j As Integer, k As Integer S = ";" With Application With .Selection A = Split(.Range("A1").Value & S, S) S = .Address End With k = UBound(A, 1) - 1 ReDim Preserve A(LBound(A, 1) To k) i = InStr(1, S, ",") + 1 S = Mid(S, i) i = .Range(S).Row j = .Range(S).Column .Range(.Cells(i, j), .Cells(i, j + k)) = A End With End Sub
@+
M41
"Annie" a écrit dans le message de news: 42593ab4$0$3135$
Bonjour, J'ai un fichier texte avec des données séparées par des points virgules (dans une même cellule), et je voudrais convertir ce fichier en séparant les données pour quelles soient chacunes dans une cellule différente. Est ce possible ?
merci beaucoup Annie
... si une seule cellule est sélectionnée contenant les données, l'écriture
se fait à partir de celle-ci....
"Michel41" <boomerang.pro.3@wanadoo.fr> a écrit dans le message de news:
4259644a$0$1229$8fcfb975@news.wanadoo.fr...
Bonjour
Si le fichier est déjà chargé dans une cellule
le plus simple est d'écrire une macro avec Split
Sub EclaterText()
'Sélection de 2 cellules
'Analyse le contenu de la première
'écriture horizontale à partie de la seconde
Dim A As Variant, S As String, X As Range
Dim i As Integer, j As Integer, k As Integer
S = ";"
With Application
With .Selection
A = Split(.Range("A1").Value & S, S)
S = .Address
End With
k = UBound(A, 1) - 1
ReDim Preserve A(LBound(A, 1) To k)
i = InStr(1, S, ",") + 1
S = Mid(S, i)
i = .Range(S).Row
j = .Range(S).Column
.Range(.Cells(i, j), .Cells(i, j + k)) = A
End With
End Sub
@+
M41
"Annie" <annie.a.lefebvre@wanadoo.fr> a écrit dans le message de news:
42593ab4$0$3135$8fcfb975@news.wanadoo.fr...
Bonjour,
J'ai un fichier texte avec des données séparées par des points virgules
(dans une même cellule), et je voudrais convertir ce fichier en séparant
les
données pour quelles soient chacunes dans une cellule différente.
Est ce possible ?
... si une seule cellule est sélectionnée contenant les données, l'écriture se fait à partir de celle-ci....
"Michel41" a écrit dans le message de news: 4259644a$0$1229$
Bonjour Si le fichier est déjà chargé dans une cellule le plus simple est d'écrire une macro avec Split
Sub EclaterText()
'Sélection de 2 cellules 'Analyse le contenu de la première 'écriture horizontale à partie de la seconde Dim A As Variant, S As String, X As Range Dim i As Integer, j As Integer, k As Integer S = ";" With Application With .Selection A = Split(.Range("A1").Value & S, S) S = .Address End With k = UBound(A, 1) - 1 ReDim Preserve A(LBound(A, 1) To k) i = InStr(1, S, ",") + 1 S = Mid(S, i) i = .Range(S).Row j = .Range(S).Column .Range(.Cells(i, j), .Cells(i, j + k)) = A End With End Sub
@+
M41
"Annie" a écrit dans le message de news: 42593ab4$0$3135$
Bonjour, J'ai un fichier texte avec des données séparées par des points virgules (dans une même cellule), et je voudrais convertir ce fichier en séparant les données pour quelles soient chacunes dans une cellule différente. Est ce possible ?
