Modifier le contenu d'une cellule en fonction d'une autre
Bonjour les amis
Je sollicite votre soutien pour trouver une solution VBA à mon fichier excel.
En effet je cherche une fonction qui me permet de modifier le contenus d'une cell en fonction des trois premiers caractères d'une autre cell:
à titre d'exemple, si la colonne code prod commence par 12A mettre sur Nature COS ...
12A=COS;
11B=ENF;
10C=AUTO;
13M=ALI
| Commande | code Prod | Nature |
| 1 | 12A44950 | COS |
2 | 12A39940 | COS |
| 3 | 11B99488 | ENF |
| 4 | 10C88398 | AUTO |
| 5 | 13M83983 | ALI |
un grand merci d'avance
Merci infiniment Renyeu,
Néanmoins je travail sur un programme VBA pour englober plusieurs taches.
Malheureusement seul cette étape qui me bloque, c'est pour cela je sollicite votre support !
Merci
J'ai trouvé cette commande, cependant le changement s'applique sur la fin de la colonne!
comment puisse j l'appliquer sur les premiers lettres ??
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 "12": 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