Suite à question de Flash pour séparer liste noms

[BobStriker]

Bonsoir au forum,
pour Eric c & éventuellemnt MyDearFriend , ai utilisé le code vba décrit,très bien.
que faire de plus si dans la liste de noms prénoms il ya des signes au lieu d'espaces ?
merci

 

[myDearFriend!]

Bonsoir BobStriker,


Je suppose que tu veux parler de ce Lien supprimé, non ?
Il serait quand même souhaitable que tu restes sur ce même fil pour être clair... (ou tu aurais pu au moins le citer).

Cela dit, pour répondre à ta nouvelle question, tu peux utiliser quelque chose comme ça :

Sub DecoupChaine()
        Columns(1).TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, Space:=True, _
        Semicolon:=True, Comma:=True,    Other:=True, OtherChar:="-"
End Sub

Dans cet exemple, l'espace, le point-virgule, la virgule et un caractère au choix (j'ai pris "-") sont gérés.


Cordialement,
Didier_mDF

 

[CBernardT]

Bonsoir BobStriker et Didier


Tu peux utiliser aussi le code suivant :

1- Remplacer les signes( , ou - ou : ou = ou ; ect...) par un espace avec la fonction remplacer puis poursuivre sur le code précédent :

Sub DecoupChaine()
Columns(1).Replace What:="-", Replacement:=" "
Columns(1).Replace What:=",", Replacement:=" "
Columns(1).Replace What:=":", Replacement:=" "
Columns(1).Replace What:=";", Replacement:=" "
Columns(1).Replace What:="=", Replacement:=" "

Columns(1).TextToColumns Destination:=Range("B1"), DataType:=xlDelimited, Space:=True
End Sub

Cordialement

CBernardT

 

[BobStriker]

Bonsoir à tous,
mes excuses MyDearFriend,j'ai pensé que le sujet suffisait.ferais mieux la prochaine fois.sois tolérant,je découvre le fonctionnement du forum.
merci pour ta transmission des connaissances.
bonne soirée

 

[myDearFriend!]

Re BobStriker,
Bonsoir CBernardT,


Pas de problème BobStriker, je n'avais pas l'intention de t'enguirlander lol !
Et si le ton que j'ai utilisé le laissait croire, c'est moi qui m'en excuse...


Cordialement,
Didier_mDF