Code plus simple?

Voila le code que j'utilise pour faire une formule sur plusieurs lignes.

Code:

---

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:

---

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...

qu'est ce que tu obtient comme erreur, je l'ai tester elle marche parfaitement

en fait cela marche tres bien :
le probleme c'est que j'ai une trentaine de ligne a recopier donc je voulais savoir si cela eait possible en creant une variable i pour alleger le code.

A chaque formule de ma feuille cree je recree une trentaine de ligne donc c'est un peu lord comme methode je trouve (meme si cela marche..)

Bonjour,

Votre code peut fonctionner, mais le :

Code:

---

For i = 1 to 15

---

ne semble pas être valable puisque lorsque la valeur de i est 1 vous affectez un texte et non une formule identique aux autres.

à mon avis il faut donc indiquer :

Code:

---

1 2 3 4 5 6

With Worksheets("LGDVARIAB") .Cells(1, k + 4) = "Borne sup IC" For i = 2 to 15 .Cells(i, k + 4) = "=RC[-4]+1.96*RC[-3]/SQRT(RC[-2]) Next i End With"

---

j'avoue j'ai pas tres bien compris ce que tu veux faire envoi ta procedure en entier stp
jacques_jean a raison pour la premiere cellule qui contient un string

oui mais je ne comprends pas pourquoi ca ne marche pas avec du texte dans la premiere cellule...si texte cela est donc impossible d'appliquer cette methode?

Ce n'est pas parce qu'il s'agit de texte pour la 1ère cellule c'est parce que pour toutes les autres cellules l'affectation est identique.

Autrement dit vous pourriez aussi mettre :

Code:

---

1 2 3 4 5 6 7 8 9 10

With Worksheets("LGDVARIAB")   For i = 1 to 15 If i = 1 .Cells(i, k + 4) = "Borne sup IC" Else .Cells(i, k + 4) = "=RC[-4]+1.96*RC[-3]/SQRT(RC[-2]) End If Next i End With

---

compris merci...