XL 2016 Aide extract texte d'une cellule dans colonnes

chaelie2015 à dit:

Bonjour
Pour bien comprendre ton souci,tu souhaites extraire les noms de machines commençant par "a82" du texte de la cellule J3 et les noter successivement dans les cellules L3, M3, N3, etc., en cas de présence de plusieurs noms de ce type dans le texte.

Dans l'exemple que tu as présenté, tu as trouvé deux noms de machines dans le texte : a82siin30 et a82siin40. Tu voudrais extraire ces noms et les placer dans les cellules L3, M3, N3, etc.
Y a-t-il systématiquement des caractères suivant "a82" sans espace ?
a+

Cliquez pour agrandir...

sylvanu à dit:

Bonjour Richard, Chaelie,
Un essai en PJ avec une fonction personnalisée.
Le nom de la machine doit commencer par a82 et contenir 9 caractères ( type a82siin99 ) sinon il faut donner les règles de nommage.
On ne peut pas utiliser "jusqu'à l'espace" car on a "a82siin30.- KO" sans espace à la fin du nom de machine.

VB:

Function Machine(C$)
    Machine = "": On Error GoTo FinVM
    Application.Volatile
    VM = Mid(Cells(2, Application.Caller.Column), 3)
    T = Split(C, "a82")
    Machine = "a82" & Mid(T(VM), 1, 6)
FinVM:
End Function

Cliquez pour agrandir...

chaelie2015 à dit:

Bonjour sylvanu
un essai en PJ
Ce code est conçu pour automatiser l'extraction et l'affichage de mots commençant par "a82" à partir de la cellule J3,ce code divise le texte en mots en utilisant l'espace comme délimiteur pour les extraits et les affichés dans les colonnes à partir de la colonne L de manière automatisée.
A+

Cliquez pour agrandir...