Convertir du texte en VBA

[blord]

Bonjour à tous,

J'essaie d'utiliser le code qui suit pour séparer une colonne de noms/prénoms qui sont séparés par une virgule :


Columns("A:A").Select
Selection.TextToColumns Destination:=Range("B1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=False, Comma:=True, Space:=False, Other:=False, FieldInfo _
:=Array(Array(1, 1), Array(2, 1)), TrailingMinusNumbers:=True
Range("C2").Select


Le problème que je rencontre avec ce code c'est qu'il demande si on veut remplacer le contenu des cellules de destinations même si ces dernières sont complètement vides.

Existe-t-il un bout de code qui permet de dire "OK" automatiquement à cette question sans que l'utilisateur soit obligé d'intervenir ?

Les noms dans la colonne sont comme suit :

Bérubé, Martine
Jolie, Marie
Boivin, Nicole

etc...

Merci pour vos précieux conseils...

Blord

 

[CB60]

Re : Convertir du texte en VBA

Bonsoir
Sub toto()
Columns("b:c").ClearContents
Columns("A:A").TextToColumns Destination:=Range("B1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=False, Comma:=True, Space:=False, Other:=False, FieldInfo _
:=Array(Array(1, 1), Array(2, 1)), TrailingMinusNumbers:=True
Range("C2").Select
End Sub
de cette façon ta macro fonctionne car j'enleve les valeurs de la colonne B et C avant de faire la conversion.

 

[blord]

Re : Convertir du texte en VBA

Merci beaucoup pour la très simple solution proposée... C'est presque gênant d'avoir posé la question O🙂


Merci !