Microsoft 365 Extraction de données sur une colonne

Abdoul aziz

XLDnaute Junior
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
 

Pièces jointes

  • Nouveau Feuille de calcul Microsoft Excel (3).xlsx
    10.6 KB · Affichages: 8

Hasco

XLDnaute Barbatruc
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
 

Pièces jointes

  • Nouveau Feuille de calcul Microsoft Excel (3).xlsx
    25.7 KB · Affichages: 2

fanch55

XLDnaute Barbatruc
Bonjour, 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
 

Pièces jointes

  • Nouveau Feuille de calcul Microsoft Excel (3).xlsm
    18.4 KB · Affichages: 5

Abdoul aziz

XLDnaute Junior
Bonjour, 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 JE VAIS TESTER
 

Statistiques des forums

Discussions
299 845
Messages
1 979 513
Membres
206 755
dernier inscrit
So78310