Simplifier macro

[BRUNO62]

Bonjour,
Je cherche à simplifier la macro
Je cherche à remplacer les données de la feuil21 par la liste de remplacement en feuil1
Avez vous une idée, merci
Bon dimanche
a+

 

[Dranreb]

Re : Simplifier macro

Bonjour.
Comme ça peut être:

Sub Macro2()
With Columns("B:D")
  .Offset(, 3).FormulaR1C1 = "=MATCH(RC[-3],Feuil1!R2C1:R10C1,0)"
  .Value = .Offset(, 3).Value
  .Offset(, 3).ClearContents
  .SpecialCells(xlCellTypeConstants, 16).ClearContents
End Sub

Cordialement.

 

[Papou-net]

Re : Simplifier macro

Bonjour BRUNO62, Dranreb,

Bien que je ne sois pas le premier, je l'ai fait (autrement) donc je transmets :

Sub Macro2()
For Each cel In Range("B2:B" & Rows.Count).SpecialCells(xlCellTypeConstants)
  Set nom = Feuil1.Range("A:A").Find(cel.Value, LookIn:=xlValues, lookat:=xlWhole)
  If Not nom Is Nothing Then cel.Value = nom.Offset(0, 1)
Next
End Sub

Cordialement.

 

[BRUNO62]

Re : Simplifier macro

Bonjour Dranreb,Papou-net,
Merci, à vous pour votre rapidié et efficacité.
C'est OK
Merci, bon dimanche
A+