G
gab
Guest
Bonjour,
(fait suite à mon post de ce matin)
Voici un petit extrait d'une macro :
Dim EndRow As Long
Dim EndCol As Long
EndRow = Range('A65536').End(xlUp).Row
EndCol = Range('IV1').End(xlToLeft).Column
Range(Cells(2, EndCol + 1), Cells(EndRow, EndCol + 1)).FormulaR1C1 = _
'=IF(VLOOKUP(RC[-3],'C:COD[fichier.xls]tableau'!R2C2:R100C5,4,FALSE)<>''MUTUEL'','''' ,''MUT'')'
C'est un petit bout de code qui positionne une formule sur toutes les lignes contenant des valeurs. Cela indique MUT si il trouve la valeur MUTUEL dans le fichier interrogé en Vlookup...
Le souci, c'est que cette macro tourne assez lentement (du certainement au fait qu'il y a beaucoup de lignes à traiter, environ 40 000), y a t'il moyen que cela se fasse plus rapidement ?
(fait suite à mon post de ce matin)
Voici un petit extrait d'une macro :
Dim EndRow As Long
Dim EndCol As Long
EndRow = Range('A65536').End(xlUp).Row
EndCol = Range('IV1').End(xlToLeft).Column
Range(Cells(2, EndCol + 1), Cells(EndRow, EndCol + 1)).FormulaR1C1 = _
'=IF(VLOOKUP(RC[-3],'C:COD[fichier.xls]tableau'!R2C2:R100C5,4,FALSE)<>''MUTUEL'','''' ,''MUT'')'
C'est un petit bout de code qui positionne une formule sur toutes les lignes contenant des valeurs. Cela indique MUT si il trouve la valeur MUTUEL dans le fichier interrogé en Vlookup...
Le souci, c'est que cette macro tourne assez lentement (du certainement au fait qu'il y a beaucoup de lignes à traiter, environ 40 000), y a t'il moyen que cela se fasse plus rapidement ?