Répartir une information dans plusieurs coloneRésolu

Question

Voila, je recoit de mon boss un fichier excel d'enviton 20 000 ligne qui se presente comme ca
A1 contient :            1.,,None,0,0.0%,"2,317",20.8%,0%
Je voudrait une macro qui poura répartir les informations dans les cellules de la ligne en considerant la virgule comme un separateur
Si quelqu'un a une solution ca m'eviterais de perdre une matiné minimum a remettre le fichier en ordre manuellement (sauvez moi de ca c'est une urgence :-)

Merci d'avance
ashtar

B0mbJacK · Accepted Answer

Lu, 

Je voudrait une macro qui poura répartir les informations dans les cellules de la ligne en considerant la virgule comme un separateur

A1 contient :            1.,,None,0,0.0%,"2,317",20.8%,0%
Temp = "1.,,None,0,0.0%,"2,317",20.8%,0%"

dim Info() as string 
Info = split(Temp,",") <--tu donne comme séparateur la virgule
.... apres 
for i = 0 to Ubound(Info) 
   TaCellule = Info(i) 
next i 

bonne journée

cs_casy · Answer

En gros, tu sélectionne la colonne, Menu Données/Convertir et tu répond aux différentes options de l'assitant.

En version macro ça donne ceci :
Sub ConvertCol()
    Columns("A:A").Select
    Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
        Semicolon:=False, Comma:=True, Space:=False, Other:=False, FieldInfo _
        :=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), _
        Array(7, 1), Array(8, 1)), TrailingMinusNumbers:=True
End Sub

---- Sevyc64  (alias Casy) ----<hr size="2" width="100%" /># LE PARTAGE EST NOTRE FORCE #

ashtar · Answer

Merci du coup de main vous me sauvez la vie la !
Bonne journée

ashtar

Répartir une information dans plusieurs colone

3 réponses

Votre réponse

Discussions similaires