Discussion :

[Atitila]

Classeur1.xlsx

Bonjour le forum,
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

NOM	PRENOM	SEXE	PAYS NAISSANCE
ALICE	PINNOT	F	FRANCE
JET	LI	M	CHINE
ALI	BONGO	M	GABON
ETOO	SAMUEL	M	CAMEROUN

TABLEAU DE CORRESPONDANT

PAYS	CORRESPONDANCE
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

[BDA53]

Met tes 2 tableaux dans 2 feuilles différentes, tu pourras exécuter le code suivant :

Code :

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

1
2
3
4
5
6
7
 
Private Sub CommandButton1_Click()
    Dim i As Integer
    For i = 1 To 4
        Worksheet("Tableau_Origine").Cells(i, 4) = Worksheet("Tableau_Correspondance").Cells(i, 2)
    Next i
End Sub

Pour t'aider dans le code, fait le code à partir d'un bouton. Va dans le menu développeur et active le mode création pour ajouter un bouton. Puis clique droit sur le bouton et choisi l'option "visualiser le code" et copie le code suivant

Cordialement
xela57

[Atitila]

bonjour XELA 57,
j'ai une erreur de compilation.

[BDA53]

Erreur de ma part dans le code. Remplace Worksheet par Worksheets

[Atitila]

merci XELA57,
ça marche.