Comment convertir des données d'une cellule séparées avec caractère " ; " en colonne?
3 réponses
Fred
Bonjour,
En cellule H3 j'ai différentes données textes séparées par des virgules.
A travers une macro j'aimerais récupérer ces données non pas en ligne (comme
dans le menu Données-->Convertir-->Délimité-->caractère ; etc...) mais dans
la colonne A par exemple!!!
Merci de votre aide.
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
Fred
Désolé...en cherchant sur le forum j'ai trouvé...par Daniel
Dim Tabl, Cellule As Range, Ctr As Integer, Morceau Tabl = Split([A1], ";") Set Cellule = Range("A1") For Each Morceau In Tabl Cellule.Offset(Ctr, 0) = Morceau Ctr = Ctr + 1 Next Morceau
"Fred" a écrit dans le message de news: 4374fd02$0$16720$
Bonjour, En cellule H3 j'ai différentes données textes séparées par des virgules. A travers une macro j'aimerais récupérer ces données non pas en ligne (comme dans le menu Données-->Convertir-->Délimité-->caractère ; etc...) mais dans la colonne A par exemple!!! Merci de votre aide.
Désolé...en cherchant sur le forum j'ai trouvé...par Daniel
Dim Tabl, Cellule As Range, Ctr As Integer, Morceau
Tabl = Split([A1], ";")
Set Cellule = Range("A1")
For Each Morceau In Tabl
Cellule.Offset(Ctr, 0) = Morceau
Ctr = Ctr + 1
Next Morceau
"Fred" <fredgarlon@free.fr> a écrit dans le message de news:
4374fd02$0$16720$636a15ce@news.free.fr...
Bonjour,
En cellule H3 j'ai différentes données textes séparées par des virgules.
A travers une macro j'aimerais récupérer ces données non pas en ligne
(comme dans le menu Données-->Convertir-->Délimité-->caractère ; etc...)
mais dans la colonne A par exemple!!!
Merci de votre aide.
Désolé...en cherchant sur le forum j'ai trouvé...par Daniel
Dim Tabl, Cellule As Range, Ctr As Integer, Morceau Tabl = Split([A1], ";") Set Cellule = Range("A1") For Each Morceau In Tabl Cellule.Offset(Ctr, 0) = Morceau Ctr = Ctr + 1 Next Morceau
"Fred" a écrit dans le message de news: 4374fd02$0$16720$
Bonjour, En cellule H3 j'ai différentes données textes séparées par des virgules. A travers une macro j'aimerais récupérer ces données non pas en ligne (comme dans le menu Données-->Convertir-->Délimité-->caractère ; etc...) mais dans la colonne A par exemple!!! Merci de votre aide.
Jacques93
Bonsoir Fred,
A partir d'Excel 2000, tu peux utiliser la fonction Split :
Dim v As Variant Dim i As Integer
v = Split(Range("H3"), ",") For i = LBound(v) To UBound(v) Range("A" & i + 1) = v(i) Next i
Pour les version antérieures tu peux voir la fonction Split97 ici :
http://www.excelabo.net/xl/lexique.php#split
Bonjour, En cellule H3 j'ai différentes données textes séparées par des virgules. A travers une macro j'aimerais récupérer ces données non pas en ligne (comme dans le menu Données-->Convertir-->Délimité-->caractère ; etc...) mais dans la colonne A par exemple!!! Merci de votre aide.
-- Cordialement,
Jacques.
Bonsoir Fred,
A partir d'Excel 2000, tu peux utiliser la fonction Split :
Dim v As Variant
Dim i As Integer
v = Split(Range("H3"), ",")
For i = LBound(v) To UBound(v)
Range("A" & i + 1) = v(i)
Next i
Pour les version antérieures tu peux voir la fonction Split97 ici :
http://www.excelabo.net/xl/lexique.php#split
Bonjour,
En cellule H3 j'ai différentes données textes séparées par des virgules.
A travers une macro j'aimerais récupérer ces données non pas en ligne (comme
dans le menu Données-->Convertir-->Délimité-->caractère ; etc...) mais dans
la colonne A par exemple!!!
Merci de votre aide.
A partir d'Excel 2000, tu peux utiliser la fonction Split :
Dim v As Variant Dim i As Integer
v = Split(Range("H3"), ",") For i = LBound(v) To UBound(v) Range("A" & i + 1) = v(i) Next i
Pour les version antérieures tu peux voir la fonction Split97 ici :
http://www.excelabo.net/xl/lexique.php#split
Bonjour, En cellule H3 j'ai différentes données textes séparées par des virgules. A travers une macro j'aimerais récupérer ces données non pas en ligne (comme dans le menu Données-->Convertir-->Délimité-->caractère ; etc...) mais dans la colonne A par exemple!!! Merci de votre aide.
-- Cordialement,
Jacques.
michdenis
Bonjour Fred,
Une variante : '------------------------- Sub test1() Dim S As Variant S = Split(Range("H3"), ";") If TypeName(S) = "String" Then Range("A1") = S Else Range("A1").Resize(UBound(S) + 1) = WorksheetFunction.Transpose(S) End If
End Sub '-------------------------
Salutations!
"Fred" a écrit dans le message de news: 4374fd02$0$16720$ Bonjour, En cellule H3 j'ai différentes données textes séparées par des virgules. A travers une macro j'aimerais récupérer ces données non pas en ligne (comme dans le menu Données-->Convertir-->Délimité-->caractère ; etc...) mais dans la colonne A par exemple!!! Merci de votre aide.
Bonjour Fred,
Une variante :
'-------------------------
Sub test1()
Dim S As Variant
S = Split(Range("H3"), ";")
If TypeName(S) = "String" Then
Range("A1") = S
Else
Range("A1").Resize(UBound(S) + 1) = WorksheetFunction.Transpose(S)
End If
End Sub
'-------------------------
Salutations!
"Fred" <fredgarlon@free.fr> a écrit dans le message de news: 4374fd02$0$16720$636a15ce@news.free.fr...
Bonjour,
En cellule H3 j'ai différentes données textes séparées par des virgules.
A travers une macro j'aimerais récupérer ces données non pas en ligne (comme
dans le menu Données-->Convertir-->Délimité-->caractère ; etc...) mais dans
la colonne A par exemple!!!
Merci de votre aide.
Une variante : '------------------------- Sub test1() Dim S As Variant S = Split(Range("H3"), ";") If TypeName(S) = "String" Then Range("A1") = S Else Range("A1").Resize(UBound(S) + 1) = WorksheetFunction.Transpose(S) End If
End Sub '-------------------------
Salutations!
"Fred" a écrit dans le message de news: 4374fd02$0$16720$ Bonjour, En cellule H3 j'ai différentes données textes séparées par des virgules. A travers une macro j'aimerais récupérer ces données non pas en ligne (comme dans le menu Données-->Convertir-->Délimité-->caractère ; etc...) mais dans la colonne A par exemple!!! Merci de votre aide.
