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: 10

Hasco

XLDnaute Barbatruc
Repose en paix
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: 3

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: 6

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
 

Discussions similaires

Réponses
30
Affichages
1 K

Statistiques des forums

Discussions
311 729
Messages
2 081 970
Membres
101 852
dernier inscrit
dthi16088