Actualiser données feuille Excel

Bonjour,

Dans un onglet "Analyse", je fais une comparaison des variations d'un mois sur l'autre.

Je souhaite récupérer sur un autre onglet "synthèse", uniquement les données qui sont soit inférieures ou égales à -2% soit supérieures ou égales à 2% (mise en forme conditionnelle en rouge). Le but serait de remplir les trois premiers éléments du tableau Date, JJ, % de variation grâce aux données de l'onglet "Analyse". Dans la mesure du possible, j'aimerais automatiser ce traitement.

Pourriez-vous m'aider sur ce point.

En vous remerciant.

Bonsoir romain_guignard,

Vite fait :

Option Explicit
Sub test()
Dim a, b(), i As Long, j As Long, n As Long
    a = Sheets("Analyses Abonnements").Range("a46").CurrentRegion.Value2
    ReDim b(1 To (UBound(a, 1) - 1) * (UBound(a, 2) - 1), 1 To 3)
    For j = 2 To UBound(a, 2)
        For i = 2 To UBound(a, 1)
            If IsNumeric(a(i, j)) Then
                If a(i, j) < -0.02 Then
                    n = n + 1
                    b(n, 1) = a(i, 1)
                    b(n, 2) = a(i, j)
                    b(n, 3) = a(1, j)
                End If
            End If
        Next
    Next
    With Sheets("Synthèses").Range("a55").CurrentRegion
        With .Offset(1)
            .ClearContents
            .Resize(n, 3).FormulaLocal = b
            .Columns(2).NumberFormat = "0.00%"
        End With
    End With
End Sub

N'oublie pas de changer cette condition :

If a(i, j) < -0.02 Then

klin89

Bonjour.

Merci pour ton retour klin89.

Par contre, la macro bloque sur l'élément en PJ. Est-ce normal ?

Cdt,

bonjour

sujet en doublon ?

https://forum.excel-pratique.com/viewtopic.php?f=2&t=117421&p=712316#p712316