Error on VBA

Bonjour mes amis.

J'ai un code VBA pour coller la même formule dans plus de 170 tableaux de feuilles de calcul.

La formule est collée dans "E13" de chaque table de la feuille de calcul 170.

Mon problème ici est le suivant.

Je reçois un message d'erreur en utilisant le code vba. Comment puis-je corriger l'erreur.

Ceci à l'avance.

Veuillez consulter le code ci-dessous.

[codeSub Macro1()

Dim wb As Workbook

Set wb = ActiveWorkbook

Dim ws As Worksheet

For Each ws In wb.Sheets

ws.Activate

On Error GoTo err1

Range("E13").Formula = "=IF(ROW(A13)<13,"",AVERAGEIFS($C$2:$C$5000,$B$2:$B$5000," > "&EDATE(B13,-12),$B$2:$B$5000," <= "&B13))"

Next ws

Exit Sub

err1:

Range("E13").Formula = "IF(ROW(A13)<13,"",AVERAGEIFS($C$2:$C$5000,$B$2:$B$5000," > "&EDATE(B13,-12),$B$2:$B$5000," <= "&B13))"

Resume Next

End Sub

][/code]

Bonjour corriedtoppin, le forum,

As-tu essayé de doubler les guillemets à l'intérieur de tes parenthèses ?

Range("E13").Formula = "=IF(ROW(A13)<13,"""",AVERAGEIFS($C$2:$C$5000,$B$2:$B$5000,"" > ""&EDATE(B13,-12),$B$2:$B$5000,"" <= ""&B13))"

Cordialement,

Bonjour. xorsankukai

J'aime ta photo de profil.

Lorsque j'entre les guillemets doubles. Ça marche. Le problème que je reçois est ce "# DIV / 0!"

Bonjour,

à quoi te sert ta gestion d'erreur qui n'en est pas une ?

Tu cherches à remettre la même chose. Comme tu es dans la gestion d'erreur il ne peut plus t'alerter mais tu n'as rien corrigé du tout...

Enlève donc cette hérésie

eric

Merci pour votre réponse.

Lorsque je supprime le codage d'erreur, j'obtiens une erreur suivante. Veuillez voir l'image ci-dessous.

On ne voit pas de message d'erreur.

Et enlève ce On error qui cherche à mettre la poussière sous le tapis, ça t'empêche d'avancer dans le débogage. Si tu les caches comment veux-tu les corriger.

Et garde tes photos pour les forums photoshop stp

On devine vaguement que tu fais un branchement vers une étiquette inexistante (programmation et manque de logique ne font pas bon ménage) mais ça arrache les yeux...

eric

Veuillez consulter le lien ci-dessous.

Je suis nouveau pour exceller.

Je ne sais pas si j'ai fait une erreur.

En espérant que vous puissiez m'aider à résoudre le problème.

Le fichier est trop volumineux pour être placé sur le site Web.

Aurait à télécharger avec Google Drive.

Merci d'avance

Bonjour,

comme tous les mois sont présents, et une seule fois, tu peux simplifier ta formule.

Regarde si ça te va :

Sub majFormule()
    Dim sh As Worksheet
    For Each sh In Worksheets
        With sh
            If .[E1] = "12 Mth Rolling Avg." Then
                .[E2].Resize(.Cells(Rows.Count, "C").End(xlUp).Row - 1).FormulaR1C1 = "=IF(ROW()<13,"""",AVERAGE(OFFSET([@Last],,,-12)))"
            End If
        End With
    Next sh
End Sub

Comme ce sont des tableaux, inutile de relancer la macro une fois tes feuilles à jour.

La formule s'ajoutera toute seule à chaque ajout.

eric

Je suis vraiment désolé pour la réponse tardive.

Merci d'avoir pris l'opportunité de m'aider à passer à l'étape suivante.

Appréciez vraiment votre temps et vos efforts.

le code fonctionne à merveille.

L'utilisera avec d'autres livres de travail, à l'avenir.

Merci.