Problème de variable et syntaxe
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:
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:
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.
