Autres XL2007 Enlever tirets et mettre en colonne

chris

XLDnaute Barbatruc

• 18 Mai 2020

• #2

Bonjour
Sélectionner la colonne A, Données, Convertir, Délimité, cocher espace et Autre et indiquer -
Terminer

 

Vote positif 0 Vote négatif

J

jmfmarques

XLDnaute Accro

• 18 Mai 2020

• #3

Bonjour
Menu -->> données --->> convertir -->> suivre les boites de dialogue

 

Vote positif 0 Vote négatif

E

erics83

XLDnaute Impliqué

• 18 Mai 2020

• #4

Merci jmfmarques,
Merci chris,

C'es clair qu'à force de chercher des solutions, on oublie les choses simples....j'avais oublié d'utiliser ce chemin....(j'avais créé des séries de formules avec "trouve", mais j'avais des erreurs....)

Donc, comme je souhaite le faire en VBA, j'ai utilisé l'assistant et cela donne :

VB:

Application.CutCopyMode = False
    Selection.TextToColumns Destination:=Range("A3"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
        :="-", FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, _
        1)), TrailingMinusNumbers:=True

En enlevant les "choses inutiles", on peut réduire à

Code:

Selection.TextToColumns Destination:=Range("A3"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, Tab:=True, Other:=True, OtherChar:="-", FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1)), TrailingMinusNumbers:=True

Mais maintenant ma question est : mes séries ont parfois 5, 8, 10, 2 noms, etc....comment faire pour le

Code:

FieldInfo:Array(

, puisqu'il peut changer de format (=nombre de noms) ?

Merci pour votre aide,

 

Vote positif 0 Vote négatif

J

jmfmarques

XLDnaute Accro

• 18 Mai 2020

• #5

Bonjour
Oublie-le donc complètement (ne l'utilise pas)

 

Vote positif 0 Vote négatif

mutzik

XLDnaute Barbatruc

• 18 Mai 2020

• #6

bonjour
en VBA, utiliser split (voir aide excel)

 

Vote positif 0 Vote négatif

Solution

E

erics83

XLDnaute Impliqué

• 18 Mai 2020

• #7

Merci jmfmarques,

Effectivement, cela fonctionne sans....peut-on encore simplifier ?
Merci pour votre aide

Merci mutzik, je vais faire un tour pour voir comment je pourrais utiliser "split"

 

Vote positif 0 Vote négatif

E

erics83

XLDnaute Impliqué

• 18 Mai 2020

• #8

Merci à vous deux,
Et surtout merci à notre très cher Silkyroad qui explique très bien dans son tuto comment utiliser "split" et donc en l'adaptant à mon cas :

VB:

Tableau = Split(Feuil1.Range("A3"), "-")

et merci à mutzik pour la piste....top !

Merci pour votre aide,

 

Vote positif 0 Vote négatif

J

jmfmarques

XLDnaute Accro

• 18 Mai 2020

• #9

Tableau = Split(Feuil1.Range("A3"), "-")

Cliquez pour agrandir...

Du VBA sans nécessité !
Mais ma foi : pourquoi faire simple lorsque l'on peut faire compliqué ?😉

 

Vote positif 0 Vote négatif

E

erics83

XLDnaute Impliqué

• 18 Mai 2020

• #10

merci jmfmarques,

En fait, ce code va être utilisé dans un "grand" ensemble, mais c'est vrai que juste dans ce cas là, ça peut sembler inutile....😉

Merci pour votre aide,

 

Vote positif 0 Vote négatif