[VBA] Remplacer par, avec tableau correspondance

Anthonymctm · 29 Juin 2020

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

VB:

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

voilà, merci

sylvanu · 29 Juin 2020

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 · 30 Juin 2020

Bonjour

Anthonymctm à dit:
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

Anthonymctm à dit:
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

[VBA] Remplacer par, avec tableau correspondance

Anthonymctm

XLDnaute Occasionnel

sylvanu

chris

XLDnaute Barbatruc

Discussions similaires