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 :
Si quelqu'un a une astuce ce serait super !
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
Merci
François
Partager