Comment optimiser boucle for

Bonjour,

alors j'aimerais savoir s'il y a possibilité d'optimiser mon code et de le rendre plus rapide (en fait savoir si on peut coder d'une autre façon)

la facon manuelle c'est celle la

'Range("d5:d42,h5:h42,l5:l42, etc etc etc").FormulaR1C1 = "=if(RC[-1]="""","""",2)"

la facon automatisée que j'utilise

Dim i As Integer
Dim j As Integer
For i = 4 To 48 Step 4
For j = 5 To 41
Cells(j, i).FormulaR1C1 = "=if(RC[-1]="""","""",2)"
Next j
Next i

Alors peut on faire mieux?

petite vérification vous me confirmez qu'on ne peut pas faire directement de boucle

avec des lettres de colonnes comme par exemple for "A" to "Z"

Merci de votre aide

Bonjour

Ce que je ferai

Sub test()
'Range("d5:d42,h5:h42,l5:l42, etc etc etc").FormulaR1C1 = "=if(RC[-1]="""","""",2)"
Dim i As Integer
  For i = 4 To 48 Step 4
    Range(Cells(5, i), Cells(41, i)).FormulaR1C1 = "=if(RC[-1]="""","""",2)"
  Next i
End Sub

Les boucles ne fonctionnent qu' avec des nombres

Dans tous les cas il faudra transformer la lettre de la colonne en nombre

Merci

c'est ce que j'avais essayer de faire mais j'avais pas mis la bonne syntaxe j'utilisais ":" au lieu de "," entre les cells.

bref merci c'est deja bien plus rapide