Extrait une partie de texte dans une cellule
Résolu
Dav
-
Dav -
Dav -
Bonsoir, dans excel
Comment extrait une partie de texte dans une cellule et le coller dans une autre cellule?
EX: dans la cellule dans A1( TTTTTT DDDDDD SSSSS GGGGGG)
Mettre dans B1 (TTTTTT)
Mettre dans C1 (DDDDDD)
Mettre dans D1 (SSSSS)
Mettre dans D1 (GGGGGG)
Merci d'avance
Comment extrait une partie de texte dans une cellule et le coller dans une autre cellule?
EX: dans la cellule dans A1( TTTTTT DDDDDD SSSSS GGGGGG)
Mettre dans B1 (TTTTTT)
Mettre dans C1 (DDDDDD)
Mettre dans D1 (SSSSS)
Mettre dans D1 (GGGGGG)
Merci d'avance
A voir également:
- Extrait une partie de texte dans une cellule
- Traitement de texte - Guide
- Comment aller à la ligne dans une cellule excel - Guide
- Excel cellule couleur si condition texte - Guide
- Verrouiller une cellule excel - Guide
- Extraire texte d'une image - Guide
4 réponses
Salut,
Si chaque mot est séparé par un espace, tu peux également faire directement avec la fonction Convertir
sélectionne la liste de tes données/Données/Convertir/coche Délimité/Suivant/coche Espace/Suivant et Terminer
tes données se placeront automatiquement dans chaque colonne.
Par contre si tu souhaites garder les données initiales en colonne A, tu commences par les copier en B et tu appliques la procédure sur la colonne B
Si chaque mot est séparé par un espace, tu peux également faire directement avec la fonction Convertir
sélectionne la liste de tes données/Données/Convertir/coche Délimité/Suivant/coche Espace/Suivant et Terminer
tes données se placeront automatiquement dans chaque colonne.
Par contre si tu souhaites garder les données initiales en colonne A, tu commences par les copier en B et tu appliques la procédure sur la colonne B
Bonjour désolé
Ok j'ai trouver l'erreu,dans mon mail il me manquai une lettre dans la formule comme ci-dessous.
nex Cel il maquais le T
Merci
A+
Private Sub Separer()
Dim TB, i As Integer
Dim Plage As Range, Cel As Range
Set Plage = Range("A1:A" & Range("A65536").End(xlUp).Row)
For Each Cel In Plage
TB = Split(Cel, " ")
For i = 0 To UBound(TB)
Cel.Offset(0, i + 1) = TB(i)
Next i
nex Cel
End Sub
Ok j'ai trouver l'erreu,dans mon mail il me manquai une lettre dans la formule comme ci-dessous.
nex Cel il maquais le T
Merci
A+
Private Sub Separer()
Dim TB, i As Integer
Dim Plage As Range, Cel As Range
Set Plage = Range("A1:A" & Range("A65536").End(xlUp).Row)
For Each Cel In Plage
TB = Split(Cel, " ")
For i = 0 To UBound(TB)
Cel.Offset(0, i + 1) = TB(i)
Next i
nex Cel
End Sub
Private Sub Separer()
Dim TB, i As Integer
Dim Plage As Range, Cel As Range
Set Plage = Range("A1:A" & Range("A65536").End(xlUp).Row)
For Each Cel In Plage
TB = Split(Cel, " ")
For i = 0 To UBound(TB)
Cel.Offset(0, i + 1) = TB(i)
Next i
Next Cel
End Sub
Commence à la ligne 1 jusque la dernière ligne renseignée.
Éventuellement changer la plage si ce n'est pas les bonnes adresses.
A+
Si tu </code>te cognes à un pot et que ça sonne creux, c'est pas forcément le pot qui est vide. ;-)(Confucius)
NOTE : Je ne répond pas aux MP pour les questions techniques.
