enlever des lettre de serie de chiffre Résolu/Fermé

Question

Bonjour,
 j ai une colonne contenant des serie de chiffre et des lettre( ex: 2462c54g) , je voudrais enlever les lettre et gardes que les chiffre dans le meme ordre (ma colonne contient environ 200 ligne)

cb · Answer

Bonjour,
 j ai une colonne contenant des serie de chiffre ET des lettre (854525h556hg) , je voudrais enlever les lettre et gardes que les chiffre dans le meme ordre (ma colonne contient environ 200 ligne)

michel_m · Answer

Bonjour,
Essaies cette fonction personnalisée:
Function extrait_nbre(ByRef texto As String) As Double
    Dim reg As Object
    Dim extraction As Object

   ' instancie
    Set reg = CreateObject("vbscript.regexp")
    
    '  travaille sur toute la cellule
    reg.Global = True
    '  définit le modèle (caractères "digitaux" à N chiffres)
    reg.Pattern = "(\d?\d?\d)|(,)"
    
    ' éxécute l'extraction svt modèle (collection des digits...)
    Set extraction = reg.Execute(texto)
    ' concaténète les membres de la collection "extraction"
    For Each digit In extraction
        extrait_nbre = extrait_nbre & (digit.Value)
    Next digit
    
    Set extraction = Nothing
    Set reg = Nothing
End Function

pour installer si tu ne connais pas VBA
 (on vit très bien sans...)
1/ copies cette fonction ci dessus en entier
2/ sur XL, alt+F11 t'amènes sur l'éditeur VBA
3/ insertion-module
4/ coller

ensuite dans XL insertion-fonctions-fonctions personnalisées et tu sélectionnes extrait_nbre
tu cliques alors dans la cellule dont tu ne veux que les chiffres

michel_m · Answer

je suppose que 6 7 9 10 sont le nombre de chiffres ,
si oui, le nombre dans A1 par ex.
=ENT(A1/100)

Enlever des lettre de serie de chiffre

3 réponses

Discussions similaires