For each cell in range("C17:L865") select case cell.column case 3 'colonne C cell.formulaR1C1="=IF(ISNA(VLOOKUP(R[2]C14,'CATALOGUE ACHAT'!R2C1:R6393C14,4,FALSE)),"""",VLOOKUP(R[2]C14,'CATALOGUE ACHAT'!R2C1:R6393C14,4,FALSE))" result=cell.value cell.value=result ... end select Next cell
Sub RechVonlyResult() For Each cell In Range("C17:C865") Select Case cell.Column Case 3 'colonne C cell.FormulaR1C1 = "=IF(ISNA(VLOOKUP(RC14,'CATALOGUE ACHAT'!R2C1:R6393C14,4,FALSE)),"""",VLOOKUP(RC14,'CATALOGUE ACHAT'!R2C1:R6393C14,4,FALSE))" result = cell.Value cell.Value = result End Select Next cell End Sub
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question