Séparation texte en colonne multiple

Résolu
VincTour Messages postés 9 Statut Membre -  
VincTour Messages postés 9 Statut Membre -
Bonjour,

Je dois réaliser une macro permettant de séparer le texte d'une cellule en plusieurs colonnes adjacentes à la cellule en question.

Le formalise est toujours le même :
Mr/Mme Toto tel : 0200000000 - @mail

Je voudrais récupérer : Mr/Mme Toto, le numéro sans le "tel :" et l'adresse mail dans 3 colonnes distinctes.

Pouvez-vous m'aider ?
D'avance, merci :)

2 réponses

  1.
    f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   1 717
     
    Bonjour,

    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
    0
    1. VincTour Messages postés 9 Statut Membre
       
      Bonjour !

      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 :)
      0
  2. ccm81 Messages postés 11033 Statut Membre 2 434
     
    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
    0
    1. VincTour Messages postés 9 Statut Membre
       
      Bonjour,

      Le problème avec cette solution est que dans une adresse mail, il peut y avoir des -.

      Merci quand même :)
      0