mettre une formule excel dans une cellule
Bonjour;
Après plusieurs tentatives j'ai réussi à mettre ma formule dans la cellule d’un fichier.
Par contre elle est modifiée et donc ne marche pas.
Voici le
Code :
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
| Option Explicit
Sub Arborescence()
'Déclaration des variables
Dim objXl As New Excel.Application
Dim Dossier As String
Dim fformule As String
Dim cmpt As Integer '# variable ajouté
Dim i As Long
Dim plage As String
'……
'Récupère le numéro de la dernière ligne vide dans la colonne A.
i = Range("A65536").End(xlUp).Row + 1
plage = "d3:d" & i
fformule = "=SUBTOTAL(9," & plage & ")"
Cells(1, 6).FormulaR1C1 = fformule |
Pouvez-vous me donner un coup de main.
D’avance merci
