Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

[VBA] Remplacer par, avec tableau correspondance

Anthonymctm

XLDnaute Occasionnel
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èleLibellé
01Matière première
02Elément de mécano-soudure
03Elément d'assemblage mécanique
04Elément manufacturé / PSF
05Sous-traitance (Prestation)
06Outillage
07Opération
08Produit-fini
09Article temporaire
10Frais généraux
11Pied de document

Et je cherche le moyen plus propre d'effectuer un remplacement en utilisant ce tableau.
Plutôt que faire 10 x
VB:
Selection.Replace What:="01", Replacement:="Matière première", LookAt:= _
        xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False, FormulaVersion:=xlReplaceFormula2

voilà, merci
 
Solution
Bonjour,
Ca ressemble quand même pas mal à une boucle, comme par exemple :
VB:
Sub Remplace()
Dim i As Integer, Modèle As String, Libellé As String
For i = 1 To 11
    Modèle = Cells(i, 1)
    Libellé = Cells(i, 2)
    Selection.Replace What:=Modèle, Replacement:=Libellé, LookAt:= _
        xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False, FormulaVersion:=xlReplaceFormula2
Next i
End Sub
en supposant votre tableau en A1:B11

chris

XLDnaute Barbatruc
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
 

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…