Supprimer ou extraire texte et variable d'une cellule

Version imprimable

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:

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

02/10/2013, 17h42
Marc-L

Bonjour,

merci d'uiliser l'icône # dévolue au code …

Afin d'enlever toute ambiguïté, la présentation d'un tableau chaine source - résultat désiré serait un plus pour une solution.
03/10/2013, 07h58
verredewhisky

tu peux utiliser la fonction right ou split ou les regex :
http://silkyroad.developpez.com/VBA/...nesCaracteres/
http://www.developpez.net/forums/arc...t-1310074.html
03/10/2013, 10h01
Frululu

Merci des infos, je vais creuser, bien que je me sens un peu perdu sur ce que je pourrait utiliser.

Il n'y a pas un moyen simple en VBA de définir dans mon "Normal : menu_principal/ZZ/" que le ZZ en question est un nombre à deux chiffre qui varie et qui doit être pris en compte ?

Pour être plus précis, ma question est : peut on demander à VBA de rechercher une chaine de caractère comprenant une partie fixe et une partie variable ?

Si vous avez plus d'indications à me donner pour résoudre le problème je suis preneur..! :D
Merci

François

supprimer ou extraire texte et variable d'unne cellule

Bonjour,

Peut-être quelque chose comme ceci.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
Sub extract()
sch = ""
derlig = Range("a65536").End(xlUp).Row
'Cells(1, 3) = derlig
For i = 2 To derlig
    ext = Split(Cells(i, 1), "/")
    For j = 0 To UBound(ext) - 1
        If IsNumeric(ext(j)) Then
           sch = sch + "/" & ext(j) & "/;"
        End If
        Cells(i, 2) = sch
    Next j
    sch = ""
Next i
End Sub

Il t'appartiendra de l'améliorer si cette approche te convient.

Cordialement

03/10/2013, 14h38
Frululu

Super Nibledispo pour ce code avec lequel je viens de faire un essai, même si en voyant celui ci je ne comprenait pas grand chose du fonctionnement, et bien ça fonctionne à merveille !! A moi de l'adapter maintenant. ;)

Merci de ton temps !

François
03/10/2013, 14h46
Marc-L
Citation:

Envoyé par Marc-L

Afin d'enlever toute ambiguïté, la présentation d'un tableau chaine source - résultat désiré serait un plus pour une solution

Est-ce vraiment si difficile ? :roll:

Si j'ai bien compris, tu veux conserver uniquement la fin ? En gardant les / ?

Si c'est juste cela, en reprenant ton code initial, c'est vraiment simple :
Code:

1 2 3 With Cells(X, 1) .Value = Mid$(.Value, InStrRev(.Value, "/", Len(.Value) - 1)) End With
Et si la fin est toujours composée d'un seul chiffre entre /, il y a vraiment plus simple !

Cells(X, 1).Value = Right$(Cells(X, 1).Value, 3) …
__________________________________________________________________________________________

Merci de cliquer sur :plusser: pour chaque message ayant aidé puis sur :resolu: pour clore cette discussion …

__________________________________________________________________________________________
Quelle époque terrible que celle où des idiots dirigent des aveugles. (Shakespeare)
03/10/2013, 15h36
nibledispo

supprimer ou extraire texte et variable d'unne cellule

Bonjour Marc,

Selon ce que j'ai compris et essayé de faire ? il veut conserver uniquement les valeurs numériques encadrées de "/".

Il lui faudra éventuellement remplacer séparateur ";" par des "," ou des "espaces " et vraisemblablement supprimer le dernier ";" superflu dans ma proposition.

De plus, il lui appartiendra de savoir s'il veut remplacer les chaines existantes ou mettre la nouvelle chaine à coté comme fait dans le code.

Il m'aura fallu pas moins d'une heure pour sortir tant bien que mal ce bout de code.
C'est dire que ce n'est pas demain la veille que je parviendrai à codifier ma gestion immeuble (je suis syndic bénévole).

Cordialement.
03/10/2013, 16h09
Marc-L

J'ai demandé des éclaircissements afin d'enlever toute ambiguïté …

Sinon autant pour moi !