Remplacer de manière dynamique les valeur d’une colonne par
Bonjour,
J’aimerai un code ou fonction pour remplacer de manière dynamique les valeur d’une colonne (PAYS NAISSANCE) d’un tableau Excel par des valeurs correspondantes
TABLEAU ORIGINE
CORRESPONDANT
RESULTAT ATTENDU
Bonjour atitila
J’aimerai un code ou fonction pour remplacer de manière dynamique les valeur d’une colonne (PAYS NAISSANCE) d’un tableau Excel par des valeurs correspondantes
Soit plus explicite et tu trouvera la réponse à ton problème.
Cordialement
ok petite illustration
TABLEAU ORIGINE
NOM PRENOM SEXE PAYS NAISSANCE
ALICE PINNOT F FRANCE
JET LI M CHINE
ALI BONGO M GABON
ETOO SAMUEL M CAMEROUN
CORRESPONDANT
PAYS CORRESPONDANT
FRANCE FR
CHINE CH
GABON GA
CAMEROUN CM
RESULTAT ATTENDU
NOM PRENOM SEXE PAYS NAISSANCE
ALICE PINNOT F FR
JET LI M CH
ALI BONGO M GA
ETOO SAMUEL M CM
ok petite illustration
TABLEAU ORIGINE
** NOM ** PRENOM ** SEXE ** PAYS NAISSANCE **
** ALICE ** PINNOT ** F ** FRANCE **
** JET ** LI ** M ** CHINE **
********************************************************************
** ALI ** BONGO ** M ** GABON **
** ETOO ** SAMUEL ** M ** CAMEROUN **
TABLEAU CORRESPONDANT
** CORESPONDANCE ***** PAYS NAISSANCE *****
** FR ***** FRANCE *****
** CH ***** CHINE *****
***********************************************************
** GA ***** GABON *****
RESULTAT ATTENDU
** NOM ** PRENOM ** SEXE ** PAYS NAISSANCE **
** ALICE ** PINNOT ** F ** FR **
** JET ** LI ** M ** CH **
********************************************************************
** ALI ** BONGO ** M ** GA **
** ETOO ** SAMUEL ** M ** CM **
Bonjour le forum,
je reformule
J’aimerai avoir un code vba qui me permettrai de remplacer les données d’une colonne par celle d’un tableau de correspondance.
Ci-dessous un exemple .
Merci.
TABLEAU ORIGINE
[table="width: 500, class: grid"]
TABLEAU DE CORRESPONDANT
[table="width: 500, class: grid"]
RESULTAT ATTENDU
[table="width: 500, class: grid"]
Private Sub cmdCodeOTAN_Click()
Dim ws, ws2 As Worksheet
Dim objList As ListObject, objList2 As ListObject
Dim Cell As Range
Dim Result As Variant
Application.ScreenUpdating = False
Set ws = Worksheets("Données"): Set ws2 = Worksheets("Liste")
Set objList = ws.ListObjects(1): Set objList2 = ws2.ListObjects(1)
With ws
For Each Cell In objList.ListColumns(4).DataBodyRange
Result = Application.VLookup(Cell.Value, objList2.DataBodyRange, 2, False)
If IsError(Result) Then
Cell.Value = "N/A"
Else
Cell.Value = Result
End If
Next Cell
End With
Set objList = Nothing: Set objList2 = Nothing
Set ws2 = Nothing: Set ws = Nothing
End Sub