Discussion :

[Vadorblanc]

Bonjour
Un code de Mr Mercatog transforme en minuscule uniquement à l'intérieur des parenthèses, j'essaie d'ajouter des paramètres de changement toujours uniquement à l'intérieur des parenthèses, mais mes quelques lignes s'appliquent évidemment aussi à l'ensemble du contenu de la cellule. Comment modifier celà de façon que les changements se fassent seulement au sein des parenthèses.
Merci

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
21
22
23
24
25
Sub Module01RemplacerDansParenthèseMajEnMinus()
 
Dim LastLig As Long, i As Long
Dim n As Integer
Dim Mot As String
 
With Sheets("Base")
    LastLig = .Cells(.Rows.Count, "C").End(xlUp).Row
    For i = 2 To LastLig
        Mot = .Range("C" & i).Value
        n = InStrRev(Mot, "(")
        If n > 0 Then .Range("C" & i).Value = Left(Mot, n) & LCase(Mid(Mot, n + 1))
    Next i
End With
 
'voici ce qu'il faut ajouter à la boucle
With Sheets("Base")
 .Range("C1", Range("C65536").End(xlUp)).Replace "route", "rte"
 .Range("C1", Range("C65536").End(xlUp)).Replace "chemin", "che"
 .Range("C1", Range("C65536").End(xlUp)).Replace "impasse", "imp"
 .Range("C1", Range("C65536").End(xlUp)).Replace "avenue", "av"
 .Range("C1", Range("C65536").End(xlUp)).Replace "allee", "allée"
End With
 
End Sub

[mercatog]

Bonsoir Vadorblanc
On va utiliser la boucle déjà en place pour faire nos modifications (je suppose que le changement s'opérera à partir de la première parenthèse d'ouverture)

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
 
Dim LastLig As Long, i As Long
Dim n As Integer
Dim Mot As String, MotChg As String
 
With Sheets("Base")
    LastLig = .Cells(.Rows.Count, "C").End(xlUp).Row
    For i = 2 To LastLig
        Mot = .Range("C" & i).Value
        n = InStrRev(Mot, "(")
        If n > 0 Then
            MotChg = Replace(LCase(Mid(Mot, n + 1)), "route", "rte")
            MotChg = Replace(MotChg, "chemin", "che")
            MotChg = Replace(MotChg, "impasse", "imp")
 '.....
            .Range("C" & i).Value = Left(Mot, n) & MotChg
        End If
    Next i
End With

[Vadorblanc]

MERCI Mr Mercatog, toujours un plaisir de te lire.
Très cordialement