|
|
|
|
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
Répondre à Le Pingou
|
Bonjour
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
Toujours zen |
Calendrier 2010 excel Caractere speciaux clavier Chaine caractere contient vba excel Chaine de caractère en informatique Chaine de caractère sous excel Chercher une expresion reguliere sans chaine caractere Couples faisant l'amour a trois Excel maximum caracters per cell vba Javascript extraire dans une chaine de caractere regex Liste chainé caractere Manipuler chaine caractere en c Mettre une chaine de caracteres dans un tableau 2 dimension en c Php encodage formulaire caractères accentués Php tester existence caractere dans chaine Planning excel gratuit Tableur excel gratuit Word excel gratuit écrire une chaîne de caractères accentués dans un fichier php
