Macro qui s'exécute trop lentement
K
Bonjour chers tous
J'utilise une macro pour insérer une formule dans ma colonne "P".
La macro fonctionne bien mais il se trouve qu'elle est une peu lente si les lignes sont trop nombreuses.
Existe t il un moyen de l'accélérer ?
Merci.
J'utilise une macro pour insérer une formule dans ma colonne "P".
La macro fonctionne bien mais il se trouve qu'elle est une peu lente si les lignes sont trop nombreuses.
Existe t il un moyen de l'accélérer ?
Merci.
Sub Lenteurformule()
With Sheets("Grille_de_Disp")
.[Q11] = .Range("A" & Rows.Count).End(xlUp).Row + 1
.Range("P2").FormulaArray = _
"=MAX((R2C1:INDIRECT(""$A$""&R11C[1])=RC[-15])*(R2C2:INDIRECT(""$B$""&R11C[1])=RC[-14])*(R2C3:INDIRECT(""$C$""&R11C[1])=RC[-13])*(R2C11:INDIRECT(""$K$""&R11C[1])))"
.Range("P2").AutoFill Destination:=.Range("P2:P" & .Range("A" & Rows.Count).End(xlUp).Row), Type:=xlFillDefault
End With
End SubBonjour
Utilise un tableau structuré et une seule formule sur la 1ère du tableau suffit : la propagation est automatique
C'est probablement le temps de calcul qui plombe
Et encore un multipost