Bonjour à tous, je sollicite votre aide aujourd'hui car j'ai un nouveau problème que je n'arrive pas à résoudre.
Aujourd'hui j'ai un fichier excel avec un onglet Barème.
Dans cet onglet j'ai une en-tête colonne:

B
Jusqu'a pressent de devais juste appliquer un pourcentage pour l'ensemble de ma colonne et en fonction d'une année
ci-dessous mon code
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
    Taux = Application.InputBox("Veuillez indiquer le pourcentage d'augmentation du prix en % .", "Pourcentage d'augmentation du prix", , , , , , 1)
    Anneeref = 2019
    colref = 5 'année 2019
    Annee_moins_un = annéecours - Anneeref
    col_en_cours = colref + Annee_moins_un
    col_Annee_moins_un = col_en_cours - 1
    Cells(1, col_en_cours).Value = Taux / 100
 
    For i = 2 To 39
    Cells(i, col_en_cours).Value = Round(Cells(i, col_Annee_moins_un).Value * (1 + Taux / 100), 0)
    Next
Aujourd'hui je dois faire la meme chose mais en fonction de la colonne A (mon tableau ci-dessus: bareme_Code)
le taux d'augmentation est différent en fonction de ce qu'il en colonne A
il depend de:
[CERTIF_GESTION]
[CERTIF_AUDIT]
[CERTIF_FMD]



J'ai essayé de commencé par cela mais ca marche pas:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Sheets("bareme").Activate
    'Set année = CreateObject("scripting.dictionary")
    annéecours = InputBox("Veuillez saisir l'année en cours?")
 
    Taux_GESTION = Application.InputBox("Veuillez indiquer le pourcentage d'augmentation du prix en % pour les frais de gestion.", "Pourcentage d'augmentation du prix", , , , , , 1)
    Anneeref = 2019
    colref = 5 'année 2019
    Annee_moins_un = annéecours - Anneeref
    col_en_cours = colref + Annee_moins_un
    col_Annee_moins_un = col_en_cours - 1
    Cells(1, col_en_cours).Value = Taux / 100
 
 
    Range("A:A").Select
    If Bareme_Code = ("CERTIF_GESTION") Then
    For i = 2 To 39
    Cells(i, col_en_cours).Value = Round(Cells(i, col_Annee_moins_un).Value * (1 + Taux / 100), 0)
    Next
    End If

Merci d'avance pour votre aide.