[XL-2007] Separer un champ contenant des points . [Résolu]

[Mimosa777]

Salut a tous,

j'ai la colonneA contenant des valeurs tel que : 103333.456.789 et j'aimerais le separer dans 3 colonnes differents tel que ColonneB = 103000, ColonneC = 456 et ColonneD= 789
Jaimerais faire cela pour ma colonneA entire, environ 4000 lignes.

Pouvez-vous m'aider svp ?

J'ai essayer avec la fonction right amsi je vois pas comment le faire pour toute la colonne et prendre uniquement les valeurs entre les points en excluant les points.

Merci pour votre aide

[jfontaine]

Bonjour,

As tu essayer d'utiliser le menu la conversion de colonne.
Menu Données>Convertir. Dans la partie "délimité", tu peux choisir le . comme séparateur et tu retrouveras tes données dans 3 colonnes

[Mimosa777]

Oui merci Jfontaine, ca marches bien comme ca mais j'aimerais cela le faire a partir d'une macro car cela est une partie de ce que je souhaite faire par la suite. J'aimerais que ca s'execute a l'ouverture de mon workbook, j'essaie d'automatiser cet outil qui avait ete monte par un autre.

[mercatog]

Essaie de faire la piste que t'as donné jfontaine sous l'enregistreur de macro.
Tu auras un code brut que tu peux alléger.

[Theze]

Bonsoir,

Teste ce qui suit pour voir si ça convient (adapte le nom de la feuille) :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub Test()
 
    Dim I As Long
    Dim DerLig As Long
 
    With Worksheets("Feuil1")
 
        DerLig = .Cells(.Rows.Count, 1).End(xlUp).Row 'sur colonne A
 
    End With
 
    For I = 1 To DerLig
 
        Range("B" & I) = Split(Range("A" & I), ".")(0)
        Range("C" & I) = Split(Range("A" & I), ".")(1)
        Range("D" & I) = Split(Range("A" & I), ".")(2)
 
    Next I
 
End Sub

Hervé.

[jfontaine]

Comme te le propose Mercatog, Voila ce que donne l'enregistreur de macro

Code :

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

[mercatog]

Et après allègement du code (à adapter)

Code :

1
2
3
4
5
6
7
Sub Test()
 
Application.ScreenUpdating = False
With Worksheets("Feuil1")                                            'A Adapter
    .Range("A:A").TextToColumns Destination:=.Range("A1"), Other:=True, OtherChar:="."
End With
End Sub

[lenovo49]

Ou bien dans le detail:

Mets ton chiffres en A1....

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
Sub TEST()
 
Dim CELLULE, Long_CELLULE, Extrait_CELLULE
 
Range("A1").Select
 
Do While ActiveCell.Offset(0, 0) <> ""
 
CELLULE = ActiveCell.Offset(0, 0).Value
Long_CELLULE = Len(CELLULE)
 
For a = 1 To Long_CELLULE
If Mid(CELLULE, a, 1) = "." Then
ActiveCell.Offset(0, 1).Value = Mid(CELLULE, 1, (a - 1))
Exit For
End If
Next a
 
Extrait_CELLULE = Mid(CELLULE, a + 1, Long_CELLULE - a)
Long_CELLULE = Len(Extrait_CELLULE)
 
For a = 1 To Long_CELLULE
If Mid(Extrait_CELLULE, a, 1) = "." Then
ActiveCell.Offset(0, 2).Value = Mid(Extrait_CELLULE, 1, (a - 1))
Exit For
End If
Next a
 
Extrait_CELLULE = Mid(Extrait_CELLULE, a + 1, Long_CELLULE - a)
ActiveCell.Offset(0, 3).Value = Extrait_CELLULE
 
ActiveCell.Offset(1, 0).Select
Loop
 
End Sub

Efficasse et modulable......

[mercatog]

Efficace et modulable

Avec les Select et l'Activecell, sans déclarer convenablement ses variables et enfin les boucles interminables, personnellement je ne vois pas où est l'efficacité du code que tu as proposé.

Suppose qu'au lieu de 2 points, tu as 50! combien de boucles tu aurais fais?

[Mimosa777]

Salut Theze,

ton code fonctionne seulement sur le premiere colonne, sur la colonne C et D, ca me retourne une erreur tel que :
''Subscript out of range''

Salut Lenovo,

ton code fonctionne sauf que lorsque je tombe sur une ligne de la colonne A ou on a seulement un point tel que 123456.567, ca ne marches pas car ton code recherche toujours le 2eme point dans les champs de la colonne A.. Mais lorsqu'il ya 3 segment tel que 1234.345.65, ca fonctionne..
est ce possible que ton code soit plus flexible pour que cela fonctionne avec 2 segment seulement ou plus que 3 ?

Merci

[jfontaine]

pourquoi faire simple ....

[Mimosa777]

Envoyé par jfontaine

pourquoi faire simple ....

Salut Jfontaine,

l'enregistreur de macro n'est pas dynamique. Si jamais j'ai d'autres lignes qui se rajoute dans ma colonne A et d'autres segments, par exemple 123.456.567.7890.767.54, je devrais a chaque fois modifier ma macro ou refaire l'enregistrement non ?

A moins que qu'il ait un moyen d'automatiser. Merci

[lenovo49]

Merci pour la reprise mais efficace dans le sens que ce code fonctionne mais bon c'est juste une solution de plus...

J'avoue je suis fan des boucles...

[jfontaine]

Le code épuré de Mercatog traite la colonne A dans son intégralité et ce quelque soit le nombre de séparateur

[Mimosa777]

OUI effectivement, ca marches impec. Merci a tous..