[VBA] Remplacer par, avec tableau correspondance

[Anthonymctm]

Bonjour le forum,

Je vous sollicite parceque je n'ai pas trouvé de réponse sur le net

J'aimerai automatiser une extraction et un traitement que je fais actuellement manuellement.

J'en suis à la partie remplacement.
Dans une feuille à part "famille", j'ai un tableau de correspondance des termes que je souhaite remplacer :

Modèle	Libellé
01	Matière première
02	Elément de mécano-soudure
03	Elément d'assemblage mécanique
04	Elément manufacturé / PSF
05	Sous-traitance (Prestation)
06	Outillage
07	Opération
08	Produit-fini
09	Article temporaire
10	Frais généraux
11	Pied de document

Et je cherche le moyen plus propre d'effectuer un remplacement en utilisant ce tableau.
Plutôt que faire 10 x

Selection.Replace What:="01", Replacement:="Matière première", LookAt:= _
        xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False, FormulaVersion:=xlReplaceFormula2

voilà, merci

 

[chris]

Bonjour

Je crois avoir compris que je dois coller mes données sur extraction et ensuite actualiser le power query.

oui en ne supprimant pas le tableau structuré : juste supprimer les lignes avant de coller, ou si plus de lignes coller directement les données sans titre en A2

Pour le coup là y a aussi d'autre utilisateurs et je pense que c'est un peu plus source à erreurs pour eux

Pas plus que VBA : on peut d'ailleurs déclencher l'actualisation de la requête par VBA