Discussion :

[horemheb]

Bonjour à tous,
Je crée plusieurs feuilles par recopie sous VBA et souhaite réaliser un report d'une feuille sur la suivante.
Je voudrais, dans la feuille appelée Sept (pour Septembre), en E6, écrire la formule "=Août 2016!L6C9", sachant que 2016 est stocké dans la variable numérique Annee.
Pour cela j'ai écrit le code suivant:

Code :

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

1
2
3
4
5
6
7
8
With Sheets(2)
    .Select
    .Name = "Sept"
    .Cells(4, 4).Value = Nom & " " & Prenom
    .Cells(5, 4).Value = "Septembre " & Annee
    Formule = "=Août " & CStr(Annee) & "!L6C9"
    .Range("E6").FormulaR1C1Local = Formule
End With

A la place de ma formule j'obtiens "=Août '2016'!L6C9". Vous remarquerez les apostrophes de part et d'autre de 2016, ce qui déclenche le message d'erreur #NOM

Pouvez-vous m'indiquer la syntaxe correcte

Merci

[antonysansh]

Bonjour Horemheb,

Pour voir la bonne syntaxe d'une formule :

• Tu l'écris toi même dans la cellule E6
• Lance l'enregistreur de macro
• Place toi dans E6
• F2
• Enter
• Stop l'enregistreur

La macro vient de te donner la solution.
Il n'y a plus qu'a adapter.

[horemheb]

La macro ne permet pas d'utiliser la variable de date, ce qui ne règle pas le problème de la présence des apostrophes autour de l'année

[clementmarcotte]

Bonjour,

Essaie d'extraire juste les caractères de l'année avant de concaténer

Code :

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

annee = mid(annee,2,4)

[antonysansh]

La macro ne permet pas d'utiliser la variable de date, ce qui ne règle pas le problème de la présence des apostrophes autour de l'année

L'idée de l'enregistreur est juste pour voir la syntaxe exacte d'une formule qui fonctionne.
Car

en E6, écrire la formule "=Août 2016!L6C9", sachant que 2016 est stocké dans la variable numérique

est faux !

Je remarque aussi que dans ton code, une fois tu convertis l'année en String et pas la seconde fois.
Concaténer des chiffres les convertis automatiquement en string.

Petit test pour t'en convaincre :

Code :

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

1
2
3
4
Sub test()
    Dim i As Long, j As Integer, k As Double
        MsgBox TypeName(i & j & k)
End Sub

Pour ce qui est de ta problématique, il y a une grosse différence entre un onglet nommé Août 2016 et un autre nomme Août2016.
Pour faire référence à une cellule de l'un, la syntaxe va être =Août2016!$I$6 (sans quotes) alors que pour l'autre ça va être ='Août 2016'!$I$6 (avec quotes pour indiquer que l'espace est dans le nom de l'onglet).


Voila une solution :

Code :

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

formule = "='Août " & annee & "'!L6C9"

Excel va interpréter une formule syntaxiquement valide et ne va donc pas décider de la modifier par lui même comme il les fait en ajoutant les quotes dans ton cas.

En espérant être clair

[Philippe Tulliez]

Bonjour,
La lecture de ces deux billets t'inspirera peut-être Ecrire une formule dans Excel à l'aide d'une procédure VBA et sa suite Comment écrire des formules plus complexes et rendre dynamique les références aux plages de cellules ?

[horemheb]

Merci Antonysansh, je ne connaissais pas cette subtilité des apostrophes dans l'écriture des noms de feuille, d'où mon souci pour obtenir une formule correcte. J'ai rectifié, ça marche.
Encore merci.