Discussion :

[facteur]

Bonjour à tous et toutes

J’aimerais modifier un fichier en insérant un petit programme.
Ce programme me permettrait d’annoter, dans les cellules de la colonne C, (à partir de C6), un "nom" en fonction du contenu des cellules de la colonne B
Je m’explique:
Si B6 contient "69" ou "1" alors C6= "ain-rhone"
Si B6 contient "26" alors C6 = "drome-ardeche"
Si B6 contient "38" alors C6= "isere"
Si B6 contient "39" alors C6= "jura"
Si B6 contient "42" alors C6= "loire"
Si B6 contient "71" alors C6= "saone et loire"
Si B6 contient "73" alors C6= "savoie"
Si B6 contient "74" alors C6= "haute savoie"
Si B6 contient "nat" alors C6= "nationale"

Il y a donc 9 conditions et je précise l’importance du verbe « contient » car dans les cellules de la colonne B, les chiffres comme 69 peuvent etre dans un groupe de nom comme par exemple "69 rilleux ppdc" ou "69 corbas ppdc". Et c'est la même chose pour les autres chiffres

J’ai crée la macro ci-dessous avec malheureusement qu’une seule condition et elle ne fonctionne pas…

J’ai besoin d’aide...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub test()
 
Dim ligFin As Integer
Dim Cell As Range
 
 
Range("B6").Select
ligFin = Range("B6").End(xlDown).Row
 
For Each Cell In Range("B6" & ligFin)
If Cell Like "*69*" Then Cell.Offset(0, 1).Value = "ain-rhone"
Next Cell
 
End Sub

PS : je vous mon fichier si utilité