bonjour,
je cherche un moyen pour traiter une cellule contenant plusieurs champs
séparés par autant de ";" en autant de cellules qu'il y a de ";" les uns en
dessous des autres.
Ex: cellule contenant "toto;titi;tata" devra donner "toto" puis insérer dans
la cellule dessous "titi" puis insérer dans la cellule de dessous "tata"
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
Christophe CAMPAIN
Bonjour yannick,
Essayes la fonction "convertir" (Données - Convertir...) Ca devrait répondre à ton problème.
Kristof
"yannick" a écrit dans le message de news: eX0WrR$
bonjour, je cherche un moyen pour traiter une cellule contenant plusieurs champs séparés par autant de ";" en autant de cellules qu'il y a de ";" les uns en
dessous des autres.
Ex: cellule contenant "toto;titi;tata" devra donner "toto" puis insérer dans
la cellule dessous "titi" puis insérer dans la cellule de dessous "tata"
Merci pour votre aide précieuse.
Yannick
Bonjour yannick,
Essayes la fonction "convertir" (Données - Convertir...)
Ca devrait répondre à ton problème.
Kristof
"yannick" <yannick.jan@silicomp.fr> a écrit dans le message de news:
eX0WrR$6DHA.2044@TK2MSFTNGP10.phx.gbl...
bonjour,
je cherche un moyen pour traiter une cellule contenant plusieurs champs
séparés par autant de ";" en autant de cellules qu'il y a de ";" les uns
en
dessous des autres.
Ex: cellule contenant "toto;titi;tata" devra donner "toto" puis insérer
dans
la cellule dessous "titi" puis insérer dans la cellule de dessous "tata"
Essayes la fonction "convertir" (Données - Convertir...) Ca devrait répondre à ton problème.
Kristof
"yannick" a écrit dans le message de news: eX0WrR$
bonjour, je cherche un moyen pour traiter une cellule contenant plusieurs champs séparés par autant de ";" en autant de cellules qu'il y a de ";" les uns en
dessous des autres.
Ex: cellule contenant "toto;titi;tata" devra donner "toto" puis insérer dans
la cellule dessous "titi" puis insérer dans la cellule de dessous "tata"
Merci pour votre aide précieuse.
Yannick
yannick
merci, c'est presque ce que je recherche, sauf qu'il éclate tout en ligne. Moi j'aimerai qu'il le fasse en colonne, c'est à dire qu'il insere autant de ligne qu'il y a d'éléments de la cellule initiale. Enfin, il faudrait l'inclure dans une macro pour l'executer sur une colonne entiere de façon automatique. Comme je suis novice, je vois pas trop par où commencer :-s "Christophe CAMPAIN" a écrit dans le message de news:OlS4Mh$
Bonjour yannick,
Essayes la fonction "convertir" (Données - Convertir...) Ca devrait répondre à ton problème.
Kristof
"yannick" a écrit dans le message de news: eX0WrR$
bonjour, je cherche un moyen pour traiter une cellule contenant plusieurs champs séparés par autant de ";" en autant de cellules qu'il y a de ";" les uns en
dessous des autres.
Ex: cellule contenant "toto;titi;tata" devra donner "toto" puis insérer dans
la cellule dessous "titi" puis insérer dans la cellule de dessous "tata"
Merci pour votre aide précieuse.
Yannick
merci, c'est presque ce que je recherche, sauf qu'il éclate tout en ligne.
Moi j'aimerai qu'il le fasse en colonne, c'est à dire qu'il insere autant de
ligne qu'il y a d'éléments de la cellule initiale.
Enfin, il faudrait l'inclure dans une macro pour l'executer sur une colonne
entiere de façon automatique.
Comme je suis novice, je vois pas trop par où commencer :-s
"Christophe CAMPAIN" <campain.christophe_PasDePub@libertysurf.fr> a écrit
dans le message de news:OlS4Mh$6DHA.2628@TK2MSFTNGP10.phx.gbl...
Bonjour yannick,
Essayes la fonction "convertir" (Données - Convertir...)
Ca devrait répondre à ton problème.
Kristof
"yannick" <yannick.jan@silicomp.fr> a écrit dans le message de news:
eX0WrR$6DHA.2044@TK2MSFTNGP10.phx.gbl...
bonjour,
je cherche un moyen pour traiter une cellule contenant plusieurs champs
séparés par autant de ";" en autant de cellules qu'il y a de ";" les uns
en
dessous des autres.
Ex: cellule contenant "toto;titi;tata" devra donner "toto" puis insérer
dans
la cellule dessous "titi" puis insérer dans la cellule de dessous "tata"
merci, c'est presque ce que je recherche, sauf qu'il éclate tout en ligne. Moi j'aimerai qu'il le fasse en colonne, c'est à dire qu'il insere autant de ligne qu'il y a d'éléments de la cellule initiale. Enfin, il faudrait l'inclure dans une macro pour l'executer sur une colonne entiere de façon automatique. Comme je suis novice, je vois pas trop par où commencer :-s "Christophe CAMPAIN" a écrit dans le message de news:OlS4Mh$
Bonjour yannick,
Essayes la fonction "convertir" (Données - Convertir...) Ca devrait répondre à ton problème.
Kristof
"yannick" a écrit dans le message de news: eX0WrR$
bonjour, je cherche un moyen pour traiter une cellule contenant plusieurs champs séparés par autant de ";" en autant de cellules qu'il y a de ";" les uns en
dessous des autres.
Ex: cellule contenant "toto;titi;tata" devra donner "toto" puis insérer dans
la cellule dessous "titi" puis insérer dans la cellule de dessous "tata"
Merci pour votre aide précieuse.
Yannick
2B or not 2B
Il suffirait sans doute de considérer ; comme séparateur de champ.
Faire un enregistrer sous du document, et choisir le format txt. Puis ouvrir le document txt avec XL qui propose automatiquement d'interpréter les ; en séparateurs de champs.
tu auras autant de colonnes que de toto;titi;tata....
reste plus qu'à transposer les colonnes en lignes (copier/position sur la premier cellule de la ligne/collage spécial cocher transposer)
Il suffirait sans doute de considérer ; comme séparateur de champ.
Faire un enregistrer sous du document, et choisir le format txt.
Puis ouvrir le document txt avec XL qui propose automatiquement
d'interpréter les ; en séparateurs de champs.
tu auras autant de colonnes que de toto;titi;tata....
reste plus qu'à transposer les colonnes en lignes (copier/position sur
la premier cellule de la ligne/collage spécial cocher transposer)
Il suffirait sans doute de considérer ; comme séparateur de champ.
Faire un enregistrer sous du document, et choisir le format txt. Puis ouvrir le document txt avec XL qui propose automatiquement d'interpréter les ; en séparateurs de champs.
tu auras autant de colonnes que de toto;titi;tata....
reste plus qu'à transposer les colonnes en lignes (copier/position sur la premier cellule de la ligne/collage spécial cocher transposer)
ChrisV
Bonjour Yannick,
La plage de cellules "source" étant préalablement sélectionnée...
Sub zaza() Dim i As Integer, adC As String, adS As String Dim j As Integer, nbL As Integer With Application .ScreenUpdating = False .DisplayAlerts = False End With adC = ActiveCell.Address adS = ActiveSheet.Name Selection.Copy Sheets.Add.Name = "extrac" ActiveSheet.Paste Selection.TextToColumns FieldInfo:=Array(Array(1, 1), _ Array(2, 1), Array(3, 1)) For i = [A1].End(xlDown).Row To 1 Step -1 nbL = Cells(i, 1).End(xlToRight).Column - 1 Range(Cells(i, 1)(2), Cells(i, 1).Offset(nbL)) _ .Insert Shift:=xlDown For j = 1 To nbL Cells(i + j, 1) = Cells(i, 1 + j) Next j Next i On Error Resume Next Range("A1", [A1].End(xlDown)).Copy _ Destination:=Sheets(adS).Range(adC) Sheets("extrac").Delete Range(adC).Select End Sub
ChrisV
"yannick" a écrit dans le message de news: eCg7px$
merci, c'est presque ce que je recherche, sauf qu'il éclate tout en ligne. Moi j'aimerai qu'il le fasse en colonne, c'est à dire qu'il insere autant de
ligne qu'il y a d'éléments de la cellule initiale. Enfin, il faudrait l'inclure dans une macro pour l'executer sur une colonne
entiere de façon automatique. Comme je suis novice, je vois pas trop par où commencer :-s "Christophe CAMPAIN" a écrit dans le message de news:OlS4Mh$
Bonjour yannick,
Essayes la fonction "convertir" (Données - Convertir...) Ca devrait répondre à ton problème.
Kristof
"yannick" a écrit dans le message de news: eX0WrR$
bonjour, je cherche un moyen pour traiter une cellule contenant plusieurs champs
séparés par autant de ";" en autant de cellules qu'il y a de ";" les uns
en
dessous des autres.
Ex: cellule contenant "toto;titi;tata" devra donner "toto" puis insérer
dans
la cellule dessous "titi" puis insérer dans la cellule de dessous "tata"
Merci pour votre aide précieuse.
Yannick
Bonjour Yannick,
La plage de cellules "source" étant préalablement sélectionnée...
Sub zaza()
Dim i As Integer, adC As String, adS As String
Dim j As Integer, nbL As Integer
With Application
.ScreenUpdating = False
.DisplayAlerts = False
End With
adC = ActiveCell.Address
adS = ActiveSheet.Name
Selection.Copy
Sheets.Add.Name = "extrac"
ActiveSheet.Paste
Selection.TextToColumns FieldInfo:=Array(Array(1, 1), _
Array(2, 1), Array(3, 1))
For i = [A1].End(xlDown).Row To 1 Step -1
nbL = Cells(i, 1).End(xlToRight).Column - 1
Range(Cells(i, 1)(2), Cells(i, 1).Offset(nbL)) _
.Insert Shift:=xlDown
For j = 1 To nbL
Cells(i + j, 1) = Cells(i, 1 + j)
Next j
Next i
On Error Resume Next
Range("A1", [A1].End(xlDown)).Copy _
Destination:=Sheets(adS).Range(adC)
Sheets("extrac").Delete
Range(adC).Select
End Sub
ChrisV
"yannick" <yannick.jan@silicomp.fr> a écrit dans le message de news:
eCg7px$6DHA.452@TK2MSFTNGP11.phx.gbl...
merci, c'est presque ce que je recherche, sauf qu'il éclate tout en ligne.
Moi j'aimerai qu'il le fasse en colonne, c'est à dire qu'il insere autant
de
ligne qu'il y a d'éléments de la cellule initiale.
Enfin, il faudrait l'inclure dans une macro pour l'executer sur une
colonne
entiere de façon automatique.
Comme je suis novice, je vois pas trop par où commencer :-s
"Christophe CAMPAIN" <campain.christophe_PasDePub@libertysurf.fr> a écrit
dans le message de news:OlS4Mh$6DHA.2628@TK2MSFTNGP10.phx.gbl...
Bonjour yannick,
Essayes la fonction "convertir" (Données - Convertir...)
Ca devrait répondre à ton problème.
Kristof
"yannick" <yannick.jan@silicomp.fr> a écrit dans le message de news:
eX0WrR$6DHA.2044@TK2MSFTNGP10.phx.gbl...
bonjour,
je cherche un moyen pour traiter une cellule contenant plusieurs
champs
séparés par autant de ";" en autant de cellules qu'il y a de ";" les
uns
en
dessous des autres.
Ex: cellule contenant "toto;titi;tata" devra donner "toto" puis
insérer
dans
la cellule dessous "titi" puis insérer dans la cellule de dessous
"tata"
La plage de cellules "source" étant préalablement sélectionnée...
Sub zaza() Dim i As Integer, adC As String, adS As String Dim j As Integer, nbL As Integer With Application .ScreenUpdating = False .DisplayAlerts = False End With adC = ActiveCell.Address adS = ActiveSheet.Name Selection.Copy Sheets.Add.Name = "extrac" ActiveSheet.Paste Selection.TextToColumns FieldInfo:=Array(Array(1, 1), _ Array(2, 1), Array(3, 1)) For i = [A1].End(xlDown).Row To 1 Step -1 nbL = Cells(i, 1).End(xlToRight).Column - 1 Range(Cells(i, 1)(2), Cells(i, 1).Offset(nbL)) _ .Insert Shift:=xlDown For j = 1 To nbL Cells(i + j, 1) = Cells(i, 1 + j) Next j Next i On Error Resume Next Range("A1", [A1].End(xlDown)).Copy _ Destination:=Sheets(adS).Range(adC) Sheets("extrac").Delete Range(adC).Select End Sub
ChrisV
"yannick" a écrit dans le message de news: eCg7px$
merci, c'est presque ce que je recherche, sauf qu'il éclate tout en ligne. Moi j'aimerai qu'il le fasse en colonne, c'est à dire qu'il insere autant de
ligne qu'il y a d'éléments de la cellule initiale. Enfin, il faudrait l'inclure dans une macro pour l'executer sur une colonne
entiere de façon automatique. Comme je suis novice, je vois pas trop par où commencer :-s "Christophe CAMPAIN" a écrit dans le message de news:OlS4Mh$
Bonjour yannick,
Essayes la fonction "convertir" (Données - Convertir...) Ca devrait répondre à ton problème.
Kristof
"yannick" a écrit dans le message de news: eX0WrR$
bonjour, je cherche un moyen pour traiter une cellule contenant plusieurs champs
séparés par autant de ";" en autant de cellules qu'il y a de ";" les uns
en
dessous des autres.
Ex: cellule contenant "toto;titi;tata" devra donner "toto" puis insérer
dans
la cellule dessous "titi" puis insérer dans la cellule de dessous "tata"
Merci pour votre aide précieuse.
Yannick
M. PETIT
Bonsoir Utiliser la fonction Split () en vba (2000 ou xp) pour découper le texte A+
"yannick" a écrit dans le message de news: eX0WrR$
bonjour, je cherche un moyen pour traiter une cellule contenant plusieurs champs séparés par autant de ";" en autant de cellules qu'il y a de ";" les uns en
dessous des autres.
Ex: cellule contenant "toto;titi;tata" devra donner "toto" puis insérer dans
la cellule dessous "titi" puis insérer dans la cellule de dessous "tata"
Merci pour votre aide précieuse.
Yannick
Bonsoir
Utiliser la fonction Split () en vba
(2000 ou xp) pour découper le texte
A+
"yannick" <yannick.jan@silicomp.fr> a écrit dans le message de news:
eX0WrR$6DHA.2044@TK2MSFTNGP10.phx.gbl...
bonjour,
je cherche un moyen pour traiter une cellule contenant plusieurs champs
séparés par autant de ";" en autant de cellules qu'il y a de ";" les uns
en
dessous des autres.
Ex: cellule contenant "toto;titi;tata" devra donner "toto" puis insérer
dans
la cellule dessous "titi" puis insérer dans la cellule de dessous "tata"
Bonsoir Utiliser la fonction Split () en vba (2000 ou xp) pour découper le texte A+
"yannick" a écrit dans le message de news: eX0WrR$
bonjour, je cherche un moyen pour traiter une cellule contenant plusieurs champs séparés par autant de ";" en autant de cellules qu'il y a de ";" les uns en
dessous des autres.
Ex: cellule contenant "toto;titi;tata" devra donner "toto" puis insérer dans
la cellule dessous "titi" puis insérer dans la cellule de dessous "tata"
