Bonjour,

Je sollicite votre aide pour un problème pour lequel je n'ai pas trouvé de solution malgré une recherche intensive sur beaucoup de forums..
Ce que j'aimerai faire
j'ai par exemple une colonne avec des lignes qui se suivent de type :
Normal : menu_principal/21/menu53/1/menu54/1/
Normal : menu_principal/20/menu53/1/menu54/1/
Normal : menu_principal/28/menu41/1/menu42/*/menu41/3/

J'aimerai pouvoir supprimer le "Normal : menu_principal/ZZ/", les "menuZZ" ainsi que les "/*/" (ZZ sont les nombres que l'on voit dans les lignes ci-dessus) afin qu'il ne me reste plus que les /1/, /2/, /3/

Voici pour le moment ce que j'ai tenté de faire, mais les nombres que je souhaite supprimer n'accroche pas aux variables de mon code :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub txt()
 
Dim X As Long
Dim Z As integer
 
For X = 1 To Range("A" & Application.Rows.Count).End(xlUp).Row
 
Sheets("TEST").Select
Range("A" & X) = Replace(Replace(Replace(Range("A" & X), "Normal : menu_principal/", ""), "/menu" + ZZ, ""), "/*/", "")
 
 
Sheet("TEST").Select
  Column("A").Select
    Selection.Copy
  Column("E").Select
 
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
 
End Sub
Si quelqu'un a une astuce ce serait super !
Merci

François