Séparation texte en colonne multiple
Résolu/Fermé
VincTour
Messages postés
8
Date d'inscription
samedi 24 août 2013
Statut
Membre
Dernière intervention
27 avril 2017
-
30 mars 2017 à 15:33
VincTour Messages postés 8 Date d'inscription samedi 24 août 2013 Statut Membre Dernière intervention 27 avril 2017 - 31 mars 2017 à 10:10
VincTour Messages postés 8 Date d'inscription samedi 24 août 2013 Statut Membre Dernière intervention 27 avril 2017 - 31 mars 2017 à 10:10
A voir également:
- Séparation texte en colonne multiple
- Déplacer une colonne excel - Guide
- Formule somme excel colonne - Guide
- Transcription audio en texte word gratuit - Guide
- Colonne word - Guide
- Trier colonne excel - Guide
2 réponses
f894009
Messages postés
17200
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
11 septembre 2024
1 708
30 mars 2017 à 16:18
30 mars 2017 à 16:18
Bonjour,
Code de base:
cellule A1 et ecriture en A2, B2, C2 mais vous pourrez faire A1,B1,C1 si decoupe OK
Code de base:
cellule A1 et ecriture en A2, B2, C2 mais vous pourrez faire A1,B1,C1 si decoupe OK
Sub decoupe()
TInfos = Split(Range("A1"), " ") 'mise en tableau
Range("A2") = TInfos(0) & " " & TInfos(1) 'Mr/Mme Toto
With Range("B2")
.Value = TInfos(4)
.NumberFormat = "0#"" ""##"" ""##"" ""##"" ""##" 'format Num Telephone
End With
Range("C2") = CStr(TInfos(6)) 'addr @Mail
End Sub
ccm81
Messages postés
10891
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
26 septembre 2024
2 421
30 mars 2017 à 16:19
30 mars 2017 à 16:19
Bonjour
Pas vraiment besoin de macro pour obtenir ça
1. Edition/Remplacer tel : par -
2. Données/Convertir/Delimité et prendre - (le tiret) comme séparateur
Si tu veux à tout prix une macro, tu fais la manip ci-dessus en utilisant l'enregistreur de macro
CDlmnt
Pas vraiment besoin de macro pour obtenir ça
1. Edition/Remplacer tel : par -
2. Données/Convertir/Delimité et prendre - (le tiret) comme séparateur
Si tu veux à tout prix une macro, tu fais la manip ci-dessus en utilisant l'enregistreur de macro
CDlmnt
VincTour
Messages postés
8
Date d'inscription
samedi 24 août 2013
Statut
Membre
Dernière intervention
27 avril 2017
31 mars 2017 à 10:10
31 mars 2017 à 10:10
Bonjour,
Le problème avec cette solution est que dans une adresse mail, il peut y avoir des -.
Merci quand même :)
Le problème avec cette solution est que dans une adresse mail, il peut y avoir des -.
Merci quand même :)
31 mars 2017 à 10:09
Merci pour la réponse, c'était presque ça :
Sub decoupe()
TInfos = Split(Range("R2"), " ") 'mise en tableau
Range("S2") = TInfos(1) & " " & TInfos(2) 'Mr/Mme Toto
With Range("T2")
.Value = TInfos(4)
.NumberFormat = "0#"" ""##"" ""##"" ""##"" ""##" 'format Num Telephone
End With
Dim numero As String
numero = Range("T2")
numero = Right(numero, 10)
Range("T2") = numero
Range("U2") = CStr(TInfos(6)) 'addr @Mail
End Sub
Il y avait juste un décalage au niveau des indices de TInfos et j'ai enlevé les : avec la fonction Right.
Merci encore pour avoir pris le temps de me répondre :)