Bonjour,
Je suis débutante en VBA et je souhaiterais gagner du temps en remplaçant une boucle par un étirement de formule.
Je m'explique, j'ai réalisé cette boucle :
For j = 51 To 60
For i = 4 To 21112
If (Cells(i, 11) >= Cells(i, 10)) Then
Cells(i, j) = 0
Else
Cells(i, j) = 1
End If
Next i
Next j
Cependant, le temps de réalisation du programme est long.
Pour cela j'aimerai savoir comment étendre la formule que j'aurais mise en cellule (4,51) et l'étendre jusqu'en cellule (21112,51).
Merci pour votre aide
Je suis débutante en VBA et je souhaiterais gagner du temps en remplaçant une boucle par un étirement de formule.
Je m'explique, j'ai réalisé cette boucle :
For j = 51 To 60
For i = 4 To 21112
If (Cells(i, 11) >= Cells(i, 10)) Then
Cells(i, j) = 0
Else
Cells(i, j) = 1
End If
Next i
Next j
Cependant, le temps de réalisation du programme est long.
Pour cela j'aimerai savoir comment étendre la formule que j'aurais mise en cellule (4,51) et l'étendre jusqu'en cellule (21112,51).
Merci pour votre aide