Discussion :

[curt]

Bonsoir à tous,

je récupère des données sous cette forme :
BU:5.1 { MB:101 MB:103 MB:105 MB:107 MB:109 MB:111 MB:113 MB:115 MB:117 }

Il faudrait pour les traiter arriver à cette forme :
BU MB
5.1 101
5.1 103
5.1 105
5.1 107
5.1 109
5.1 111
5.1 113
5.1 115
5.1 117

J'ai essayé plusieurs fonctions (STXT, CHERCHE, etc) mais aucune ne m'a donné satisfaction sur la finalité recherchée.
Je reste ouvert à toute idée : Fonction ou VBA.

Merci d'avance.

[Malick]

Salut,

En jouant un peu avec Power Query ( les différentes étapes dans la requête), j'y suis arrivé.
Si les données de la source changent, un clic droit ==> Actualiser fera la mise à jour

Mais sûrement il y a plus propre. @Pierre Fauconnier passera sûrement

[ARTURO83]

Bonjour,

Autre possibilité en VBA, histoire de s'amuser un peu, si le texte est en cellule A1

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Sub Isoler_les_Elements()
    Dim Prem_2Pts As Long, Deux_2Pts As Long, Accol_Ouv As Long, Accol_Fer As Long
    Dim Prem_Mot As String, Deux_Mot As String, Mot_Complet As String, Version As String, Reste As String
    Application.ScreenUpdating = False
 
    'Isoler BU et MB pour en faire un entête
    Prem_2Pts = InStr(1, Cells(1, 1), ":", 1)
    Prem_Mot = Left(Cells(1, 1), Prem_2Pts - 1)
    Accol_Ouv = InStr(1, Cells(1, 1), "{", 1)
    Deux_2Pts = InStr(Accol_Ouv, Cells(1, 1), ":", 1)
    Deux_Mot = Mid(Cells(1, 1), Accol_Ouv + 2, Deux_2Pts - Accol_Ouv - 2)
    Mot_Complet = Prem_Mot & " " & Deux_Mot
    Version = Mid(Cells(1, 1), Prem_2Pts + 1, Accol_Ouv - 2 - Prem_2Pts)
 
    'Isoler le reste du texte
    Accol_Fer = InStr(1, Cells(1, 1), "}", 1)
    Reste = ":" & Mid(Cells(1, 1), Deux_2Pts + 1, Len(Cells(1, 1)) - Deux_2Pts - 2) & ":"
    'Suppression du deuxième mot" MB" dans le reste
    Reste = Replace(Reste, " " & Deux_Mot, "")
 
    'Restitution
    Cells(2, "A") = Mot_Complet
    Valeur = Split(Reste, ":")
    For i = 1 To UBound(Valeur) - 1
        Cells(i + 2, "A") = Version & " " & Valeur(i)
    Next
End Sub

Pièce jointe 609008

ou un peu plus rapide pour la restitution:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
Sub Isoler_les_Elements()
    Dim Prem_2Pts As Long, Deux_2Pts As Long, Accol_Ouv As Long, Accol_Fer As Long
    Dim Prem_Mot As String, Deux_Mot As String, Mot_Complet As String, Version As String, Reste As String
    Application.ScreenUpdating = False
 
    'Isoler BU et MB pour en faire un entête
    Prem_2Pts = InStr(1, Cells(1, 1), ":", 1)
    Prem_Mot = Left(Cells(1, 1), Prem_2Pts - 1)
    Accol_Ouv = InStr(1, Cells(1, 1), "{", 1)
    Deux_2Pts = InStr(Accol_Ouv, Cells(1, 1), ":", 1)
    Deux_Mot = Mid(Cells(1, 1), Accol_Ouv + 2, Deux_2Pts - Accol_Ouv - 2)
    Mot_Complet = Prem_Mot & " " & Deux_Mot
    Version = Mid(Cells(1, 1), Prem_2Pts + 1, Accol_Ouv - 2 - Prem_2Pts)
 
    'Isoler le reste du texte
    Accol_Fer = InStr(1, Cells(1, 1), "}", 1)
    Reste = ":" & Mid(Cells(1, 1), Deux_2Pts + 1, Len(Cells(1, 1)) - Deux_2Pts - 2) & ":"
    'Suppression du deuxième mot" MB" dans le reste
    Reste = Replace(Reste, " " & Deux_Mot, "")
 
    'Restitution
    Valeur = Split(Reste, ":")
    ReDim Restit(UBound(Valeur)) As String
    For i = 1 To UBound(Valeur) - 1
        Restit(i) = Version & " " & Valeur(i)
    Next
    Range(Cells(2, "A"), Cells(UBound(Valeur) + 1, "A")) = Application.WorksheetFunction.Transpose(Restit)
    Cells(2, "A") = Mot_Complet
End Sub

Pièce jointe 609015


Cdlt

[curt]

Bonjour et merci à vous deux pour ces pistes

ARTURO83 : les 2 macros marchent bien à ceci prêt que BU est un entête et MD en est un autre.

Encore merci pour ces pistes. Je continue à creuser le sujet.

[ARTURO83]

BU est un entête et MD en est un autre.
Ok, alors ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
Sub Isoler_les_Elements()
    Dim Prem_2Pts As Long, Deux_2Pts As Long, Accol_Ouv As Long, Accol_Fer As Long
    Dim Prem_Mot As String, Deux_Mot As String, Mot_Complet As String, Version As String, Reste As String
    Application.ScreenUpdating = False
 
    'Isoler BU et MB pour en faire un entête
    Prem_2Pts = InStr(1, Cells(1, 1), ":", 1)
    Prem_Mot = Left(Cells(1, 1), Prem_2Pts - 1)
    Accol_Ouv = InStr(1, Cells(1, 1), "{", 1)
    Deux_2Pts = InStr(Accol_Ouv, Cells(1, 1), ":", 1)
    Deux_Mot = Mid(Cells(1, 1), Accol_Ouv + 2, Deux_2Pts - Accol_Ouv - 2)
    'Mot_Complet = Prem_Mot & " " & Deux_Mot
    Version = Mid(Cells(1, 1), Prem_2Pts + 1, Accol_Ouv - 2 - Prem_2Pts)
 
    'Isoler le reste du texte
    Accol_Fer = InStr(1, Cells(1, 1), "}", 1)
    Reste = ":" & Mid(Cells(1, 1), Deux_2Pts + 1, Len(Cells(1, 1)) - Deux_2Pts - 2) & ":"
    'Suppression du deuxième mot" MB" dans le reste
    Reste = Replace(Reste, " " & Deux_Mot, "")
 
    'Restitution
    Valeur = Split(Reste, ":")
    ReDim Restit(UBound(Valeur)) As String
    For i = 1 To UBound(Valeur) - 1
        Restit(i) = Valeur(i)
    Next
    Range(Cells(2, "A"), Cells(UBound(Valeur) + 1, "A")) = Version
    Range(Cells(2, "B"), Cells(UBound(Valeur) + 1, "B")) = Application.WorksheetFunction.Transpose(Restit)
    Range(Cells(2, "A"), Cells(2, "B")) = Array(Prem_Mot, Deux_Mot)
End Sub

Cdlt