Récupérer une partie de textes

Bonjour,

Dans mon ERP, les numéros de facture client comment par "91" et contiennent toujours 8 caractères. Exemple : 91567891

Dans une liste d'écritures manuelles, j'ai identifié les libellés qui contiennent soit "FA 9" soit "FA9".

Je souhaite récupérer les 8 numéros des factures.

Via des TROUVE, REMPLACER ou SUBSTITUTE, ça devrait être possible (ou autre chose).

Je manque visiblement d'inspiration aujourd'hui

Merci !

EDIT: l'inspiration est revenue. Je posterai un autre message avec un résultat. Inutile de vous embêter.

Et voilà une solution possible.

Bonjour

avec du vba on peux le faire

a toi de voir

voila un test

A+

Maurice

Sub Test()
    For L = 2 To 8
        Test = Replace(Range("A" & L).Value, "ANNUL", "")
        Test = Val(Replace(Test, "PR FA", ""))
        Range("D" & L).Value = Test
    Next
End Sub

Merci pour la proposition.

Cela implique le lancement manuel de la macro du coup.

Sauf erreur, ton code liste toutes les possibilités de libellé, non ? Impossible à appliquer dans les faits.

Bonjour

sa utilise surtout moins de mémoire

en voila une autre

A+

Maurice

Sub Convert2()
Dim Str As String
Dim Tabl As Variant
Dim L&, C&
 Tabl = Array("ANNUL", "PR", "FA")
    For L = 2 To Range("A" & Rows.Count).End(xlUp).Row
         Str = Range("A" & L).Value
            For C = LBound(Tabl) To UBound(Tabl)
                Str = Replace(Str, Tabl(C), "")
            Next
        Range("B" & L).Value = Val(Str)
    Next
End Sub

Certes mais je ne peux pas lister tous les cas possibles dans

Tabl = Array("ANNUL", "PR", "FA")

re

laisse tomber

amuse toi avec les funtion

A+

Maurice