Discussion :

[Frululu]

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

[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.

[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

[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..!
Merci

François

[nibledispo]

Bonjour,

Peut-être quelque chose comme ceci.

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
 
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

[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 ?

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 pour chaque message ayant aidé puis sur pour clore cette discussion …

__________________________________________________________________________________________
Quelle époque terrible que celle où des idiots dirigent des aveugles. (Shakespeare)

[nibledispo]

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.

[Marc-L]

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

Sinon autant pour moi !