[RESOLU]Supprimer caractèrers récurants dans une colonne

[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

 

[david84]

Re : Supprimer caractèrers récurants dans une colonne

Bonsoir,
le plus simple est de placer ton exemple sur un fichier en notant manuellement les résultats attendus.
A+

 

[camarchepas]

Re : Supprimer caractèrers récurants dans une colonne

Bonsoir,

A mettre dans un module et hop

Sub Coupe()
Dim LigneMax As Long
Dim Ligne As Long

LigneMax = Range("A" & Rows.Count).End(xlUp).Row
Ligne = 1
Do
  Ligne = Ligne + 1
  Range("B" & Ligne) = Trim(Split(Range("A" & Ligne), " ")(0))
  Range("C" & Ligne) = Trim(Replace(Split(Range("A" & Ligne), ",")(0), Range("B" & Ligne), ""))
  Range("D" & Ligne) = Replace(Trim(Split(Range("A" & Ligne), ",")(1)), """", "")
Loop Until Ligne = LigneMax
End Sub

 

[mapomme]

Re : Supprimer caractèrers récurants dans une colonne

Bonsoir michelw,

Sélectionner la colonne A
Menu Données/convertir
Sélectionner Délimité puis Suivant
Sélectionner la virgule et l'espace comme séparateurs
Sélectionner, si ce n'est fait, les guillemets doubles comme identificateur de texte puis Suivant
Sélectionner la 3eme colonne (date) dans l'aperçu des données
Cliquer sur date et Sélectionner le format de la date à convertir (MJA apparemment)
Cliquer sur Terminer
Supprimer les colonnes inutiles

-> plus facile à faire qu'à décrire...

nb: la date sera francisée au format jour/mois/année

 

[michelw]

Re : Supprimer caractèrers récurants dans une colonne

Merci pour votre réponse