Discussion :

[kari1978]

dysorthographie,


oui j'ai corrigé le then mais même comme ca il le prend pas

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If annéecours <"2016"or > "2019" then annéecours=""

il me met "ERREUR DE COMPILATION" "ERREUR DE SYNTHAXE"

je suis vraimant desolée je débute le vba..et c'est pas facile
en tout cas merci de ton aide

[unparia]

If expression or expression et non if expression = .. or ..

[Invité]

ne sois pas désolé, vraisemblablement, je débute également!

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If annéecours < "2016" Or annéecours > "2019" Then annéecours = ""

[kari1978]

Merci ça fonctionne très bien ! dysorthographie

Cela fonctionne du coup pour l'année 2017
il prend l'année 2016 * taux en % puisque l'année de référence est 2016.

Pour les autres années, il prend toujours l'année de référence 2016.

je voudrais que: quand l'utilisateur tape une année il me prend l'année n-1 pour me faire le calcul (j’espère que j'ai été explicite

j'imagine que le code à changé est celui-ci:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
    For Each Cellule In Range("C2:C" & Range("C2").End(xlDown).Row)
    Cells(Cellule.Row, année(annéecours)).Value = Cellule.Value * (1 + Taux / 100)

mais je n'y arrive pas à part si je passe pas des

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

if

et encore merci de ton aide précieuse

[Invité]

Je pens que je viens de comprendre!

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
For Each Cellule In Range(année(annéecours) & "2:" & année(annéecours) & Range(année(annéecours) & "2").End(xlDown).Row)
    Cells(Cellule.Row, Cellule.Column + 1).Value = Cellule.Value * (1 + Taux / 100)
    Next Cellule

[kari1978]

Merci à vous tous et surtout à dysorthographie

cela fonctionne très bien.

si quelqu'un en a besoin, voici le code (que j'ai une peu modifié):

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
20
Sub MajBareme()
'les variables
Dim annee As Object, annéecours As Integer
Dim anneeref, colref, annee_moins_un, col_en_cours
Dim Taux
 
    'Set année = CreateObject("scripting.dictionary")
    annéecours = InputBox("Veuillez saisir l'année en cours?")
    Taux = Application.InputBox("Veuillez indiquer le pourcentage d'augmentation du prix en %.", "Pourcentage d'augmentation du prix", , , , , , 1)
    anneeref = 2016
    colref = 3 'année 2016
    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 = 3 To 100
    Cells(i, col_en_cours).Value = Cells(i, col_annee_moins_un).Value * (1 + Taux / 100)
    Next
 
     End Sub