Macro : supprimer début si texte commun

[boby63]

Bonjour
Dans le fichier joint, je souhaiterai svp par macro en cellule F8 (ici en jaune) n'avoir que la fin de la cellule F6.
Ce qui est à supprimer est noté dans la cellule F3.
Merci d'avance et bonne journée

 

[JHA]

Bonjour à tous,

Par formule 3 possibilités

JHA

 

[boby63]

Bonjour JHA,
Et merci.
Si quelqu'un a une solution en VBA, je suis partant.
Merci encore.

 

[job75]

Bonjour boby63, JHA,

Voyez cette petite macro dans le fichier joint :

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
On Error Resume Next 'sécurité
[F8] = "" 'RAZ
[F8] = "\" & Split([F6], "\", 6)(5) 'critère modifiable
Application.EnableEvents = True
End Sub

Edit : on peut comme pour les formules utiliser d'autres critères, par exemple ceux-ci :

[F8] = Split([F6], "Machin", 2)(1)
[F8] = "\" & Split(Split([F6], "Documents\", 2)(1), "\", 2)(1)

"Machin" à remplacer peut-être par Environ("username").

A+

 

[boby63]

Bonjour Job75
Merci, je regarde de plus près dès que possible.
Bonne journée

 

[boby63]

C'est parfait.
Avec tous mes remerciements.

 

[boby63]

Bonjour
Bon ben je me suis prononcé trop vite, ce n'est pas parfait ... le nombre de "\" étant variable donc ça ne fonctionne pas à tous les coups.
J'ai regardé un peu partout sur les chaînes de caractères, les replace, les InStr, ... etc ... je n'arrive rien à adapter dans le cas précis ...

 

[job75]

Bonjour boby63,

C'est à vous de définir les critères de recherche en fonction de ce que vous savez.

Nous on ne sait rien mais on vous a donné plusieurs exemples.

A+