Remplir liste en fontion donnees en x collone

[lahtag]

Bonjour,
J'ai une liste de donne compose de plusieurs colonne. Je cherche a ajouter une autre colonne dans la valeur dependera de la valeur d'une autre colonne.
Je join un exemple pour information.

Remerciements./.

 

[bqtr]

Re : Remplir liste en fontion donnees en x collone

Bonjour lahtag,

Une façon de faire :

Sub colRegion()
Dim cell As Range
For Each cell In Range("A4:A" & Range("A65536").End(xlUp).Row)
  Select Case cell.Value
   Case Is = "Branche001", "Branche002"
        cell.Offset(0, 4).Value = "Nord"
   Case Is = "Branche003", "Branche004"
        cell.Offset(0, 4).Value = "Est"
   Case Is = "Branche005"
        cell.Offset(0, 4).Value = "Centre"
   End Select
Next
End Sub

Bonne soirée

 

[lahtag]

Re : Remplir liste en fontion donnees en x collone

Cher Monsieur,

Vous etes un ange qui arrive du ciel. Merci infiniment pour votre precieuse aide. C'est exatement ce dont j'avais besoin. J'ai teste et ca marche tres bien.

Sinceres remerciements
Bonne soiree.