changer présentation de données

[carlito]

Tout d'abord, bonjour

Voila mon problème, j'ai une colonne d'une feuille Excel qui contient des données présentés comme dans l'exemple suivant :

2510136-01-(01-02)
2510136-02-(03-04)

dans ce cas j'aimerai qu'une fonction me transforme la cellule avec les données suivantes:


2510136-01-01
2510136-01-02
2510136-02-03
2510136-02-04


Seulement, je me demande si c'est possible et quelle fonction vba utiliser

Voili voila, merci

A bientot

 

[MichelXld]

bonjour

si tes données sont toujours au meme format , tu peux tester


Sub extraireDonnees()
Dim Cell As Range
Dim Cible As String
Dim Tableau() As String
Dim i As Integer

'boucle sur les données de la colonne A
For Each Cell In Range('A1:A' & Range('A65536').End(xlUp).Row)
Cible = Mid(Cell, 13, 5) 'extraire xx-yy du format 2510136-01-(xx-yy)
Tableau = Split(Cible, '-') 'recuperer xx et yy dans un tableau

i = i + 1
Cells(i, 2) = Left(Cell, 11) & Tableau(0) 'transfert des données dans la colonne B
i = i + 1
Cells(i, 2) = Left(Cell, 11) & Tableau(1) 'transfert des données dans la colonne B

Next
End Sub



bonne soiree
MichelXld