jeromeN95
XLDnaute Impliqué
Bonjour le forum,
tout est dans le titre, je souhaite ecrire une formule dans une plage de ceulle Q14 à Q200 dés l'ouverture du fichier...
Une idée??
Début de code peut etre :
Private Sub Workbook_Open()
colonne = 17
For i = 13 To 5
Cells(i, colonne).FormulaLocal = "=IF(AND(RC[-1]="""",RC[-14]=""""),"""",IF(RC[-1]="""",R1C19-RC[-14],RC[-1]-RC[-14]))"
End If
Next
End Sub
tout est dans le titre, je souhaite ecrire une formule dans une plage de ceulle Q14 à Q200 dés l'ouverture du fichier...
Une idée??
Début de code peut etre :
Private Sub Workbook_Open()
colonne = 17
For i = 13 To 5
Cells(i, colonne).FormulaLocal = "=IF(AND(RC[-1]="""",RC[-14]=""""),"""",IF(RC[-1]="""",R1C19-RC[-14],RC[-1]-RC[-14]))"
End If
Next
End Sub