Mqcro excel couper chaine de caractères

Résolu
Morbonnat Messages postés 19 Statut Membre -  
Morbonnat Messages postés 19 Statut Membre -
Bonjour,

J'ai recu un document sous excel ou dans la meme cellule se trouve différentes information séparée par une virgule:
Nom, Prénom, fonction, téléphone....

Je voudrais que chaque champs se retrouve dans une colone différente...

Mais je n'arrive pas a trouvé la fonction adéquate sous VBA

A l'aide !!!
Configuration: Windows XP
Firefox 2.0.0.14

2 réponses

  1.
    gbinforme Messages postés 14930 Date d'inscription   Statut Contributeur Dernière intervention   4 744
     
    bonjour

    Si j'ai bien compris ton problème essaies cette macro 
    Sub virgule()
Dim l As Long
l = 1
Do Until Cells(l, 1) = ""
    Do Until InStr(1, Cells(l, 1), ",") = 0
        Cells(l, 1).Insert
        Cells(l, 1).Value = Left(Cells(l + 1, 1).Value, InStr(1, Cells(l + 1, 1), ",") - 1)
        Cells(l + 1, 1).Value = Right(Cells(l + 1, 1).Value, Len(Cells(l + 1, 1).Value) - InStr(1, Cells(l + 1, 1), ","))
    Loop
    l = l + 1
Loop
End Sub
    2
    1. Morbonnat Messages postés 19 Statut Membre 1
       
      Merci gbinforme !!!

      T'es vraiment un crack

      sa fait plusieurs fois que je suis bloqué et tes réponses sur ce forum m'ont très souvent aidé

      Encore Merci
      0
  2. Le Pingou Messages postés 12273 Date d'inscription   Statut Contributeur Dernière intervention   1 476
     
    Bonsoir,
    Juste en passant, pas besoin de vba, vous sélectionnez la cellule et dans la barre des menus sous "Données" clic sur "Convertir" et suivez les instructions...
    -1
    1. Morbonnat Messages postés 19 Statut Membre 1
       
      Merci pour ton aide. Cepdant je voudrais faire une macro car cette tache se répéte toutes les semaines.

      Un document m'arrive avec plein de lignes et dans lesquelles une seule cellule est rempli genre:
      a, b, c, d
      e, f, g, h
      .....

      et je voudrais pouvoir avoir:

      a
      b
      c
      d
      e
      f
      ...

      Merci a tout ceux qui coudront bien se pencher sur mon probleme !!!
      0