Discussion :

[Ronaldo03]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Philippe Tulliez]

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

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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