Fonction suppression de contenu dans un champs

Hello le forum,

J'ai grandement besoin d'un coup de main sur une fonction VBA.

Je dispose d'un champs Fonction avec les postes de tous les employés d'une entreprise.

J'aimerai créer une fonction qui supprime tous les appelations du style 'junior','senior','assistant','1','2'

Par exemple quand j'ai Junior Accountant en valeur, cette fonction me ressort uniquement Accountant.

Attention le mot junior peut être au début de mon champs ou bien à la fin.

ex : Consultant junior

Il me semble que je dois mettre tout mon contenu à bannir :p dans un Array et ensuite faire un split :

Dim WordsToHide as String

Dim MyArray() As String

Dim intCount As Integer

WordsToHide = "Junior;Senior;1;2;3;4;5;6;7;8;9" (--essayons déjà avec Senior et Junior)

MyArray = Split(WordsToHide, ";")

For intCount = LBound(MyArray) To UBound(MyArray)

blablabla

End If

Je dois réutiliser cette fonction dans une expression/formule par la suite pour faciliter le traitement.

SVP aidez moi je suis perdue

Merci d'avance le forum

Amicalement

melanie57

Bonjour,

Merci de joindre un fichier à ta demande.

Cdlt.

Hello Jean-Eric

Voici un fichier test

Merci

Bien cordialement,

melanie57

Bonjour,

une fonction à mettre dans un module

Function supprime(r)
    Dim WordsToHide As String
    Dim MyArray() As String
    Dim intCount As Integer
    WordsToHide = "Junior;Senior;1;2;3;4;5;6;7;8;9"    '(--essayons déjà avec Senior et Junior)
    MyArray = Split(WordsToHide, ";")
    For intCount = LBound(MyArray) To UBound(MyArray)
        r = Replace(r, MyArray(intCount), "")
    Next intCount
    supprime = Trim(r)
End Function

et à utiliser dans excel

=supprime(A1) pour supprimer de A1 les mots de la liste wordstohide

Merci beaucoup h2so4

tu es le meilleur