Souci code pour calcul pourcentage

Bonjour,

J'aurais besoin d'aide pour un calcul.

J'ai des montants en colonne M et des années en colonne K et en M1 je veux afficher le résultat du calcul.

si année = 2020 je veux ajouter au montant ou je clique colonne M 30% et à ce résultat ajouter à nouveau 5%

si année = 2021 je veux ajouter au montant ou je clique colonne M 20% et à ce résultat ajouter à nouveau 5%

si année = 2022 je veux ajouter au montant ou je clique colonne M 10% et à ce résultat ajouter à nouveau 5%

si année = 2023 je veux ajouter au montant seulement 5%.

Voici ce que j'ai fait mais qui ne donne pas le résultat attendu.

 Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Cells.Count = 1 And Not Intersect(Target, Range("M:M")) Is Nothing Then
        Dim SelectValeur As Variant
        SelectValeur = Target.Value
        If IsNumeric(SelectValeur) Then
            Dim Annee As Integer
            Annee = year(Date)
            Dim pourcentage As Double
            pourcentage = 0
                If Annee = 2020 Then
                    pourcentage = (SelectValeur * 1.3) * 1.05
                End If
                If Annee = 2021 Then
                    pourcentage = (SelectValeur * 1.2) * 1.05
                End If
                If Annee = 2022 Then
                    pourcentage = (SelectValeur * 1.1) * 1.05
                End If
                If Annee = 2023 Then
                    pourcentage = SelectValeur * 1.05
                End If
            Range("M1").Value = pourcentage
        End If
    End If
End Sub

Merci pour votre aide

Bonjour Tespark

A+

Bonjour,

désolé pour le dérangement, mais je vient de refaire et j'ai enfin trouvé.

Il faut que je vous sollicite pour trouver, alors que je galère depuis plus de deux heures dessus

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Cells.Count = 1 And Not Intersect(Target, Range("M:M")) Is Nothing Then
        Dim SelectValeur As Variant
        SelectValeur = Target.Value
        If IsNumeric(SelectValeur) Then
            Dim Annee As Integer
            Annee = Range("K" & Target.Row).Value
            Dim montant As Double
            montant = 0
                If Annee = 2020 Then
                    montant = (SelectValeur * 1.3) * 1.05
                End If
                If Annee = 2021 Then
                    montant = (SelectValeur * 1.2) * 1.05
                End If
                If Annee = 2022 Then
                    montant = (SelectValeur * 1.1) * 1.05
                End If
                If Annee = 2023 Then
                    montant = SelectValeur * 1.05
                End If
            Range("M1").Value = montant
        End If
    End If
End Sub

Re,

C'est souvent comme ça

Je valide votre réponse comme solution