Aide pour la rédaction d'une fonction dans VBA - TENDANCE | FILTRE

Bonjour,

Je souhaite réaliser un macro qui traite un grand nombre de donnée.

Ce traitement implique de calculer une tendance basée sur des plages de données possiblement incomplètes.

Une intrication entre ma fonction "Tendance", "LOG10", et "Filtre" me bloque dans l'écriture VBA. Pour une raison qui m'échappe, des messages d'erreur me reviennent systématiquement. J'ai bien entendu déjà cherché à m'aider avec l'enregistreur de macro.

Je joins à ce poste un fichier exemple. Dans ce fichier, la colonne AG applique le traitement que je souhaite "traduire" en VBA.

En vous remerciant par avance pour le temps que vous prendrez pour m'aiguiller :)

Bonsoir,

Essayez ceci:

Sub Formule()
    Dim DerLig As Long
    Application.ScreenUpdating = False
    DerLig = Range("A" & Rows.Count).End(xlUp).Row 'Dernière ligne du tableau

    'Formule appliquée en colonne AG
    Range("AG3:AG" & DerLig).Formula2R1C1 = "=10^TREND(LOG10(FILTER(RC[-31]:RC[-2],RC[-31]:RC[-2]<>"""")),LOG10(FILTER(R2C2:R2C31,RC[-31]:RC[-2]<>"""")),0)"

    'Remplacement des formules par les valeurs obtenues
    Range("AG3:AG" & DerLig).Value = Range("AG3:AG" & DerLig).Value
End Sub

Cdlt

Bonjour,

cela fonctionne parfaitement !

un grand merci,

Bien cordialement