Bonjour,
J'espère que vous pourrez me donner un coup de pouce pour m'aider à faire fonctionner mon fichier.
j'aimerais qu'Excel attribue automatiquement un code aux pays recensés dans mon fichier:
Mais j'éprouve quelques difficultés.
On m'a conconté un code VBA que voici :
sur ta feuil1 a partir de la ligne 7, en colonne 1 tu écris le code en colonne 2 tu mets le pays
fais attention que les noms ne soit pas précédé d'espace
Geog Country
APAC (Asia PACific) China
APAC (Asia PACific) Hong-Kong
APAC (Asia PACific) Japan
APAC (Asia PACific) Malaysia
APAC (Asia PACific) Singapore
APAC (Asia PACific) Taiwan
APAC (Asia PACific) Thailand
APAC (Asia PACific) Indonesia
BELUX (BElgium Luxembourg) Belgium
BELUX (BElgium Luxembourg) Luxembourg
FR France
FR Morocco
FR Austria
GCE Germany
GCE Poland
IB Andorra
IB Portugal
IB Spain
INDIA India
IT Italy
dans la feuille 2
dans cells(1,1) tu écris le non du pays
dans cells(1,2) tappes la formules =rep(LC(-1)
Fonction VBA :
Function rep(pays1)
pays1 = Trim(pays1)
Application.Volatile
Dim tab_code 'Crée une variable
Set tab_code = CreateObject("Scripting.Dictionary" )
l = 7
col = 2
While Sheets("feuil1" ).Cells(l, col) <> ""
pays = Trim(Sheets("feuil1" ).Cells(l, col))
' Sheets("feuil1" ).Cells(l, col) = pays
code = Trim(Sheets("feuil1" ).Cells(l, col - 1))
If code = "" Then
code = code_old
Else
code_old = code
End If
tab_code(pays) = code
l = l + 1
Wend
If tab_code.exists(pays1) Then
rep = tab_code(pays1)
Else
rep = "Non défini"
End If
End Function
Seulement je n'ai rien qui se produit.
JE ne suis pas utilisateur de VBA a la base donc il se peut que j'ai omis de faire quelque chose, j'ai pourtant suivi la démarche ci dessus.
Sauriez vous d'ou peut venir le probleme?
Je vous joint le fichier concerné.
J'espère que vous pourrez me donner un coup de pouce pour m'aider à faire fonctionner mon fichier.
j'aimerais qu'Excel attribue automatiquement un code aux pays recensés dans mon fichier:
Mais j'éprouve quelques difficultés.
On m'a conconté un code VBA que voici :
sur ta feuil1 a partir de la ligne 7, en colonne 1 tu écris le code en colonne 2 tu mets le pays
fais attention que les noms ne soit pas précédé d'espace
Geog Country
APAC (Asia PACific) China
APAC (Asia PACific) Hong-Kong
APAC (Asia PACific) Japan
APAC (Asia PACific) Malaysia
APAC (Asia PACific) Singapore
APAC (Asia PACific) Taiwan
APAC (Asia PACific) Thailand
APAC (Asia PACific) Indonesia
BELUX (BElgium Luxembourg) Belgium
BELUX (BElgium Luxembourg) Luxembourg
FR France
FR Morocco
FR Austria
GCE Germany
GCE Poland
IB Andorra
IB Portugal
IB Spain
INDIA India
IT Italy
dans la feuille 2
dans cells(1,1) tu écris le non du pays
dans cells(1,2) tappes la formules =rep(LC(-1)
Fonction VBA :
Function rep(pays1)
pays1 = Trim(pays1)
Application.Volatile
Dim tab_code 'Crée une variable
Set tab_code = CreateObject("Scripting.Dictionary" )
l = 7
col = 2
While Sheets("feuil1" ).Cells(l, col) <> ""
pays = Trim(Sheets("feuil1" ).Cells(l, col))
' Sheets("feuil1" ).Cells(l, col) = pays
code = Trim(Sheets("feuil1" ).Cells(l, col - 1))
If code = "" Then
code = code_old
Else
code_old = code
End If
tab_code(pays) = code
l = l + 1
Wend
If tab_code.exists(pays1) Then
rep = tab_code(pays1)
Else
rep = "Non défini"
End If
End Function
Seulement je n'ai rien qui se produit.
JE ne suis pas utilisateur de VBA a la base donc il se peut que j'ai omis de faire quelque chose, j'ai pourtant suivi la démarche ci dessus.
Sauriez vous d'ou peut venir le probleme?
Je vous joint le fichier concerné.