1 2 3 4 5 6 7 8
|
Sub Form()
Dim DerLig As Long
Application.ScreenUpdating = False
DerLig = [A10000].End(xlUp).Row
Range("T1:T" & DerLig).FormulaR1C1 = "=IFERROR(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(INDEX(SMS!$A:$B,MATCH($P1,SMS!$A:$A,0),2), ""(Colonne C)"",C1,1),""(Colonne D)"",D1,1),""(Colonne B)"",B1,1),""(Colonne M)"",IF(M1="",N1,M1),1),""(Colonne Q)"",Q1,1),""(Colonne B de la feuille MAPPING)"",INDEX(MAPPING!$A:$B,MATCH($O1,MAPPING!$A:$A,0),2),1),"")"
Range("T1:T" & DerLig).Value = Range("T1:T" & DerLig).Value
End Sub |
Partager