Exporter Access/Excel selon une condition d'une cellule

Bonjour à tous,
J'ai un petit problème j'aimerais exporter un seul champ de la table access nommée "RESULTATS", le champ se nomme "Ménages" j'aimerais le mettre dans la colonne "E" d'Excel (ici "E7").

Mais le probleme, j'aimerais la mettre dans les lignes où il ya un chiffre de 5 caracteres dans la colonne "D" (ici "D7") qui correspond à un code.

Ce code correspond au champ "CODE" de la table ACCESS.


Donc on gros j'aimerais que à chaque qu'il voit le code, la table se place automatiquement dans les bonnes lignes selon le code indiqués par Excel!

Voila j'espere que vous m'avez tous compris car c'est assez chaud à expliquer...

Merci pour votre aide et n'hesitez pas à me poser des questions!!

hummm! pas très claire tous ça

Comme ça la seule solution que je vois, serait d'exporter le contenut de ta table sur une nouvelle feuille de ton classeur et ensuite de transferer le contenu de cette nouvelle feuille sur ta première feuille contenant tes codes à 5 chiffres grace à une ou plusieurs boucles vba.
 

Ah, sinon j'ai pensais, mais je ne suis pas sûr que ça marche ; ce serait d'effectuer par code une liaison entre Access et Excel pour que ta feuille contenant les codes s'affiche dans Access comme une table. Il ne te resterait plus qu'à réaliser une simple requête SQL de sélection avec ta table Access et ta table Excel lié par le champ code.
A tester

Ou lala ça me parait tres compliqué à realiser non?
Tu n'aurais pas un petit bout de code pour me mettre sur la voie?

Merci à toi

Voici un petit bout de code pour exemple.

Dim SQL As String
' Import de la feuille Excel sur la base Access (Liaison)
        DoCmd.TransferSpreadsheet transfertype:=acLink, _
                SpreadsheetType:=acSpreadsheetTypeExcel9, TableName:="tmpExcel", FileName:="c:\Temp\Monclasseur.xls", _
                HasFieldNames:=True
' Requête SQL de Sélection utilisant la requête importé et la table résultat
SQL = " SELECT tmpExcel.Code, tmpExcel.Valeur, tmpExcel.Comentaire, RESULTATS.Ménages " & _
     " FROM RESULTATS RIGHT JOIN tmpExcel ON RESULTATS.Code = tmpExcel.Code;"

En espérant que cela pourra t'aider