Bonjour à tous,
Je pense que tu n'auras pas beaucoup de réponse car il n'y a rien de cohérent pour les extractions.
JHA
Option Compare Text
Function ExtSpec(Cell) As Variant
Dim T As Variant
Select Case True
Case Cell Like "not*"
T = Split(Cell): ExtSpec = T(1) & " " & T(2)
Case Cell Like "*cmd*"
T = Split(Cell): ExtSpec = T(2)
Case Cell Like "export 5*"
T = Split(Cell, "_")
ExtSpec = Mid(T(1), 9)
Case Cell Like "export natif*"
T = Split(Cell, "_")
ExtSpec = Mid(T(2), 9)
Case Cell Like "creation*/*"
T = Split(Cell, "/"): T = Split(T(0), ":")
ExtSpec = T(1)
Case Cell Like "creation*"
T = Split(Cell): ExtSpec = T(2)
End Select
ExtSpec = Trim(ExtSpec)
End Function
MERCI JE VAIS TESTERBonjour, avec une fonction spéciale :
VB:Option Compare Text Function ExtSpec(Cell) As Variant Dim T As Variant Select Case True Case Cell Like "not*" T = Split(Cell): ExtSpec = T(1) & " " & T(2) Case Cell Like "*cmd*" T = Split(Cell): ExtSpec = T(2) Case Cell Like "export 5*" T = Split(Cell, "_") ExtSpec = Mid(T(1), 9) Case Cell Like "export natif*" T = Split(Cell, "_") ExtSpec = Mid(T(2), 9) Case Cell Like "creation*/*" T = Split(Cell, "/"): T = Split(T(0), ":") ExtSpec = T(1) Case Cell Like "creation*" T = Split(Cell): ExtSpec = T(2) End Select ExtSpec = Trim(ExtSpec) End Function
MERCI à l'air de fonctionnerBonjour,
Une tentative par power query qui fonctionne sur les données exemples du premier. Mais sur d'autres ???? Car comme le dit @JHA (que je salue ) rien de bien cohérent.
cordialement