Microsoft 365 Extraction de données sur une colonne

[Abdoul aziz]

Bonjour à tous je souhaite extraire les chiffres des données de ma colonne C pour les mettre dans ma colonne D
CI JOINT UN FICHIER EN EXEMPLE

 

[JHA]

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

 

[Abdoul aziz]

j'ai simplifié la tache pouvez vous regarder le nouveau fichier

 

[Hasco]

Bonjour,

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

 

[Abdoul aziz]

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

 

[st007]

Bonjour le fil, comme j'y étais .....
ah gauche, droite, trouve....

 

[fanch55]

Bonjour, avec une fonction spéciale :

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

 

[Abdoul aziz]

Bonjour, avec une fonction spéciale :

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 TESTER

 

[Abdoul aziz]

Bonjour,

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

MERCI à l'air de fonctionner