Voila le code que j'utilise pour faire une formule sur plusieurs lignes.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
 
With Worksheets("LGDVARIAB")
     .Cells(1, k + 4) = "Borne sup IC"
     .Cells(2, k + 4) = "=RC[-4]+1.96*RC[-3]/SQRT(RC[-2])"
     .Cells(3, k + 4) = "=RC[-4]+1.96*RC[-3]/SQRT(RC[-2])"
     .Cells(4, k + 4) = "=RC[-4]+1.96*RC[-3]/SQRT(RC[-2])"
     .Cells(5, k + 4) = "=RC[-4]+1.96*RC[-3]/SQRT(RC[-2])"
     .Cells(6, k + 4) = "=RC[-4]+1.96*RC[-3]/SQRT(RC[-2])"
     .Cells(7, k + 4) = "=RC[-4]+1.96*RC[-3]/SQRT(RC[-2])"
     .Cells(8, k + 4) = "=RC[-4]+1.96*RC[-3]/SQRT(RC[-2])"
     .Cells(9, k + 4) = "=RC[-4]+1.96*RC[-3]/SQRT(RC[-2])"
 
End With
Est il possible de remplacer les 1,2,3,4,,....par une variable qui s'incremente de 1 à 1 jusqu'a la fin
genre
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
for i =1 to 15
.Cells(i, k + 4) = "=RC[-4]+1.96*RC[-3]/SQRT(RC[-2])"
next i
cette derniere formule ne marche pas je ne sais pas pourqoi...