[résolu] Tri par colonnes en enlevant les tirets et 2 points

JBARBE · 20 Février 2017

Bonjour à tous,
Dans la feuille 1, j'ai des données en colonne 1 séparées par des tirets et 2 points !
Je voudrais que l'on supprime ces tirets et 2 points et que l'on mette chaque élément séparé dans plusieurs colonnes comme dans l'exemple de la feuille 2 !
Nota: l'espacement entre les lignes n'a aucune importance !
Merci à l'avance et bonne journée!

JBARBE · 20 Février 2017

Re,
Bon toutes mes excuses, j'ai trouvé la solution avec cette macro :

Code:

Sub unparun()
  Dim l As Byte, n As Byte, a
  Application.ScreenUpdating = 0
  For l = 1 To 113 Step 2
    Cells(l, 1) = Trim(Cells(l, 1))  'plus d'espaces
    Cells(l, 1) = Replace(Cells(l, 1), ":", "-") 'remplacement de : par -
    a = Split(Cells(l, 1), "-")  'tableau des éléments de la cellule séparés par -
    For n = 0 To 8: Cells(l, 7 + n) = a(n): Next 'écriture
  Next
[A1:A113] = ""   'nettoyage
End Sub

Bonne journée !

[résolu] Tri par colonnes en enlevant les tirets et 2 points

JBARBE

XLDnaute Barbatruc

Pièces jointes

JBARBE

XLDnaute Barbatruc

Discussions similaires

[résolu] Tri par colonnes en enlevant les tirets et 2 points

JBARBE

XLDnaute Barbatruc

Pièces jointes

JBARBE

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency