Discussion :

[FramanKalima]

Bonjour à tous,
Je cherche un code qui me permettra de récupérer les deux dernières lettres dans une colonne et les renommer dans une nouvelle colonne.

Je m'explique: j'ai dans ma colonne B (ENTITEGESTION),des variables

REQETRA= SAINT JEAN DE BRAYE ( si les deux dernières lettres=RA)
REQGELI=LILLE (,, ,, =LI) ainsi de suite
REQGENA=NATIONALE
REQGERO=ROANNE
REQGESE=SAINT ETIENNE
REQGESJ= SAINT JEAN DE BRAYE
REQGETO=TOURS
REQGGLA=LAFFITTE
RSEDLCR=CRR

Je veux renommer les champs sur toute la colonne B, avec les noms (SAINT JEAN DE BRAYE,NATIONALE,LILLE ,ROANNE,SAINT ETIENNE, SAINT JEAN DE BRAYE, TOURS,LAFFITTE et CRR) dans une nouvelle colonne C (Site).

si les deux dernières lettres des variables de la colonne B sont:

RA=SAINT JEAN DE BRAYE
LI=LILLE
NA=NATIONALE
SE=SAINT ETIENNE
SJ=SAINT JEAN DE BRAYE
TO=TOURS
LA=LAFFITTE
CR=CRR

Merci par avance.

[Theze]

Bonjour,

Un truc dans le genre ?

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
26
27
28
29
30
31
32
33
34
35
36
 
Sub Test()
 
    Dim Plage As Range
    Dim Cel As Range
 
    'défini la plage sur colonne B à partir de B2
    With Worksheets("Feuil1")
 
        Set Plage = .Range(.Cells(2, 2), .Cells(.Rows.Count, 2).End(xlUp))
 
    End With
 
    For Each Cel In Plage
 
        Select Case Right(Cel.Value, 2)
 
            Case "RA": Cel.Offset(, 1).Value = "SAINT JEAN DE BRAYE"
 
            Case "LI": Cel.Offset(, 1).Value = "LILLE"
 
            Case "NA": Cel.Offset(, 1).Value = "NATIONALE"
 
            Case "SE": Cel.Offset(, 1).Value = "SAINT ETIENNE"
 
            Case "TO": Cel.Offset(, 1).Value = "TOURS"
 
            Case "LA": Cel.Offset(, 1).Value = "LAFFITTE"
 
            Case "CR": Cel.Offset(, 1).Value = "CRR"
 
        End Select
 
    Next Cel
 
End Sub

Hervé.

[FramanKalima]

Bonjour Theze,

Merci beaucoup pour votre réponse et la rapidité, ça marche bien ton code , c'est exactement ce que je voulais.


Bonne soirée et merci une fois de plus pour ce coup de main.


Cordialement