Discussion :

[karima2017]

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.

[halaster08]

Bonjour,

mais ca marche pas:

Si tu souhaites une réponse pertinente évite les "ça marche pas"
Que se passe-t-il exactement ? un message d'erreur ? si oui lequel et sur quel ligne ?
Sinon que se passe-t-il le résultat du calcul n'est pas bon ? qu'est-ce que tu obtiens ? quelle est la valeur que tu attendais ?

[karima2017]

bonjour halaster08,

effectivement tu as raison.

il se passe qu'il fait le calcul mais pour toute les lignes sans prendre en considération les différents taux d’augmentation que j'indique dans la inputbox

j'ai un taux d'augmentation par code article:
CERTIF_GESTION : 2.5%
CERTIF_AUDIT : 1.5%
CERTIF_GESTION : 3%

je souhaite pas intégrer un pourcentage dans mon code, mais je souhaites que chaque utilisateur puisse mettre un taux d'augmentation en fonction de ces 3 codes.
j’espère avoir été plus clair.
Merci d'avance