Discussion :

[coralie1301]

Bonjour à tous,

J'aimerais créer un mapping de données via macro VBA.
J'ai un export, avec des données, sauf que je dois remplacer ces données par d'autres.
Par exemple, le code 100 doit être remplacé par le code 55.

J'ai un fichier de mapping avec les anciens codes et les nouveaux codes. Ce fichier fait 500 lignes, mais il peut être amené à évoluer.

Le but de la macro est de remplacer de façon rapide (aujourd'hui j'utilise des recherchev) les anciens codes par les nouveaux codes.

Savez-vous quel code utiliser ?
Merci beaucoup

[mfoxy]

Bonjour,

À l époque j avais trouvé une petite sub qui fonctionnait plutôt bien.

Si tu veux l'essayer
Le lien vers site développeur https://www.extendoffice.com/documen...s-at-once.html

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
Sub MultiFindNReplace()
'Update 20140722
' https://www.extendoffice.com/documents/excel/1873-excel-find-and-replace-multiple-values-at-once.html
 
Dim Rng As Range
Dim InputRng As Range, ReplaceRng As Range
xTitleId = "KutoolsforExcel"
Set InputRng = Application.Selection
Set InputRng = Application.InputBox("Original Range ", xTitleId, InputRng.Address, Type:=8)
Set ReplaceRng = Application.InputBox("Replace Range :", xTitleId, Type:=8)
Application.ScreenUpdating = False
For Each Rng In ReplaceRng.Columns(1).Cells
    InputRng.Replace what:=Rng.Value, replacement:=Rng.Offset(0, 1).Value
Next
Application.ScreenUpdating = True
End Sub