Optimisation code

[Cacou78]

Bonjour, je viens de commencer en VBA, et j'aimerais savoir s'il serait possible d'optimiser ce code en instaurant une boucle for

Range("S2").Select
ActiveCell.FormulaR1C1 = _
"=IF(Data!RC[17]=""OPEN"",IF(Data!RC[32]<>"""","""",Data!RC[23]),"""")"
Range("S2").AutoFill Destination:=Range("S2", Range("S2").End(xlDown))
Range("S:S").NumberFormat = "m/d/yyyy"

Range("X2").Select
ActiveCell.FormulaR1C1 = _
"=IF(Data!RC[12]=""OPEN"",IF(Data!RC[28]<>"""","""",Data!RC[19]),"""")"
Range("X2").AutoFill Destination:=Range("X2", Range("X2").End(xlDown))
Range("X:X").NumberFormat = "m/d/yyyy"

Range("AC2").Select
ActiveCell.FormulaR1C1 = _
"=IF(Data!RC[7]=""OPEN"",IF(Data!RC[24]<>"""","""",Data!RC[15]),"""")"
Range("AC2").AutoFill Destination:=Range("AC2", Range("AC2").End(xlDown))
Range("AC:AC").NumberFormat = "m/d/yyyy"



Merci D'avance

 

[job75]

Re : Optimisation code

Bonjour Cacou78, bienvenue sur XLD,

On peut toujours écrire ceci :

Sub Entre()
Dim t, i As Byte
t = Array("S2", "X2", "AC2")
For i = 0 To 2
  Range(t(i)).Select
  ActiveCell.FormulaR1C1 = _
  "=IF(Data!RC[" & 17 - 5 * i & "]=""OPEN"",IF(Data!RC[" & 32 - 4 * i & "]<>"""","""",Data!RC[" & 23 - 4 * i & "]),"""")"
  Range(t(i)).AutoFill Destination:=Range(t(i), Range(t(i)).End(xlDown))
  Range(t(i)).EntireColumn.NumberFormat = "m/d/yyyy"
Next
End Sub

Appelons ça optimisation si vous voulez.

Mais une réelle optimisation c'est de ne rien sélectionner et d'entrer la formule d'un coup dans la plage :

Sub Entre()
Dim t, i As Byte
t = Array("S2", "X2", "AC2")
For i = 0 To 2
  Range(t(i), Range(t(i)).End(xlDown)).FormulaR1C1 = _
  "=IF(Data!RC[" & 17 - 5 * i & "]=""OPEN"",IF(Data!RC[" & 32 - 4 * i & "]<>"""","""",Data!RC[" & 23 - 4 * i & "]),"""")"
  Range(t(i)).EntireColumn.NumberFormat = "m/d/yyyy"
Next
End Sub

Edit : quel étourdi je fais, j'avais mis EntireRow au lieu de EntireColumn...

A+

 

[Cacou78]

Re : Optimisation code

merci beaucoup!