Discussion :

[spoyet]

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 :

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

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

[casefayere]

Bonojur,
et avec :

Code :

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

1
2
3
plage = range("d3:d" & i)
fformule = "=SUBTOTAL(9," & plage & ")"
Cells(1, 6).Formulalocal = fformule

[spoyet]

Bonjour;

J'ai essayer mais ça ne marche pas

[issoram]

Bonjour,

Code :

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

1
2
3
plage = "d3:d" & i    'chaine de caractères
fformule = "=SUBTOTAL(9," & plage & ")"
Cells(1, 6).Formula = fformule   'formule en anglais. FormulaLocal pour formule en français (SOUSTOTAL....)

Cordialement.

[spoyet]

Merci;

comme cela ça marche