Discussion :

[michelw]

Bonjour,
J'ai une colonne qui contient des données sous cette forme:
S3 19-347,"01/19/12","12:00:00 ","01/20/12","12:00:00 ","True","False","","","","","","False"
Je souhaiterai:
* supprimer tous les termes après la deuxième virgule et cette deuxième virgule:
S3 19-347,"01/19/12"
* les guillemets de la deuxième expression
S3 19-347,01/19/12
* et mettre cette dernière expression sous forme de 3 colonnes:
Colonne 1: S3
Colonne 2: 19-347
Colonne 3: 01/19/12
Auriez-vous un tutoriel qui pourrai me guider pour mettre cela en place
En vous remerciant

[mercatog]

J'ai utilisé l'enregistreur de macro sur la méthode Convertir (Onglet Données)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Sub Repartir()
Dim LastLig As Long
 
Application.ScreenUpdating = False
With Worksheets(1)
    LastLig = .Cells(.Rows.Count, "A").End(xlUp).Row
    .Range("A1:A" & LastLig).Replace ",", " "
    .Range("A1:A" & LastLig).TextToColumns Destination:=.Range("A1"), DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, Space:=True, FieldInfo:=Array(Array(1, 2), Array(2, 2), Array(3, 4), Array(4, 1), Array(5, 1), Array(6, 1), Array(7, 1), Array(8, 1), Array(9, 1), Array(10, 1), Array(11, 1), Array(12, 1), Array(13, 1), Array(14, 1)), TrailingMinusNumbers:=True
    .Range("D1:N1").EntireColumn.Delete
End With
End Sub

[michelw]

Merci pour votre répnse