Créer automatiquement un autre fichier Excel qui continue d'utiliser la formule du fichier précédent

Bonjour,
J'aimerais savoir si c'est possible de créer automatiquement d'autres fichiers excel qui pourrais continue à utilisé la formule du fichier précédent et que la valeur à la cellule A500 reste la même.
Voici le code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Sub lasomme()   Dim i As Integer   With Worksheets(1) For i = 1 To 498 .Cells(i + 1, 1).Value = .Cells(i, 1).Value + 1 Next i End With   Range("A500").Value = 999999000   End Sub

---

Exemple:

Fichier1		A	Fichier2		A	Fichier3		A
	1	56787600000		1	56787600499		1	56787600998
	2	56787600001		2	56787600500		2	56787600999
	3	56787600502		3	56787600501			56787601000
	......	.....		......	.....		......	.....
	499	56787600498		499	56787600997		499	56787601496
	500	999999000		500	999999000		500	999999000

Bonjour,

Citation:

---

J'aimerais savoir si c'est possible de créer automatiquement d'autres fichiers excel qui pourrais continue à utilisé la formule du fichier précédent et que la valeur à la cellule A500 reste la même

---

Je ne comprends pas la question. Tu évoques une "Fomrule" or je ne vois auncune formule dans le code présenté. Je ne saisi pas d'avantage la finalité de cette procédure.

J'en profite pour signalé que pour ajouter 1 à la cellule qui précède, il y a bien plus simple qu'une boucle

Exemple 1

Code:

---

1 2 3 4 5 6 7 8

Sub LaSomme() With Worksheets(1) With .Range("A2:A499") .Formula = "=A1+1" .Value = .Value End With End With End Sub

---

Exemple 2 : Encore plus simple

Code:

---

1 2 3 4 5

Sub LaSomme3() With Worksheets(1) .Cells(1, 1).DataSeries Rowcol:=xlColumns, Step:=1, Stop:=499 End With End Sub

---