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