Discussion :

[frisou65]

Bonjour,
je dois me servir d'une formule qui est la suivante:

Code :

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

1
2
3
 
    ActiveCell.FormulaR1C1 = _
        "='Récap_2ème trimestre 2008'!R[72]C[31]+'Récap_1er trimestre'!R[77]C[31]+'Récap_4ème trimestre'!R[85]C[28]+'Récap_1er et 2ème trimestre'!R[89]C[46]"

Comme vous pouvez constater elle fait appel à différentes feuilles et le problème c'est que au fil du temps ces feuilles changent de nom et de place mais les positions entre elles par rapport à la dernière feuille du fichier sont identique donc j'ai créé ce code:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Dim FL1, FL2, FL3, FL4 As Sheets

    Sheets("Récap_graph_trimestre").Select
    
    FL1 = Sheets.Count - 5
    FL2 = Sheets.Count - 8
    FL3 = Sheets.Count - 11
    FL5 = Sheets.Count - 14

    Range("I14").Select
    ActiveCell.FormulaR1C1 = _
        "='Activeworkbook.FL1.name'!R[72]C[31]+'Activeworkbook.FL2.name'!R[77]C[31]+'Activeworkbook.FL3.name'!R[85]C[28]+'Activeworkbook.FL5.name'!R[89]C[46]"

Les lignes en bleu me permettent de récupérer la position des feuilles que je dois utiliser ds la formule.
Le code ne marche pas il me met un message d'erreur : fichier non trouvé!
Est ce que quelqu'un peut m'aider?
Merci d'avance.

[youn1096]

bonjour,


tu doit mettre des guillemets et des &

Code :

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

1
2
 
        "=' " & Activeworkbook.FL1.name & "'!R[72]C[31]

[fring]

Bonjour,

Tout d'abord lorsqu'on déclare des variables, chaque variable doit être typée sinon elle prend le type Variant par défaut.

Code :

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

Dim a, b, c As Byte

Ci-dessus seul c sera de type Byte, a et b seront de type Variant, la bonne syntaxe est :

Code :

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

Dim a As Byte, b As Byte, c As Byte

Ensuite, déclarer une variable de type "Feuille" s'écrit

Code :

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

Dim FL1 As Worksheet

Pour initialiser cette variable

Code :

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

Set FL1 = Sheets.Count - 5

Et pour intégrer cette variable dans une formule

Code :

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

Range("A14").FormulaR1C1 = "=" & FL1.Name & "!R[72]C[31]"

Ce qui devrait donner pour ton code

Code :

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

1
2
3
4
5
6
7
Dim FL1 As Worksheet, FL2 As Worksheet, FL3 As Worksheet, FL5 As Worksheet 
    Set FL1 = Sheets(Sheets.Count - 5)
    Set FL2 = Sheets(Sheets.Count - 8)
    Set FL3 = Sheets(Sheets.Count - 11)
    Set FL5 = Sheets(Sheets.Count - 14)     
   Sheets("Récap_graph_trimestre").Range("I14").FormulaR1C1 = _
    "=" & FL1.Name & "!R[72]C[31]+" & FL2.Name & "!R[77]C[31]+" & FL3.Name & "!R[85]C[28]+" & FL5.Name & "!R[89]C[46]"