bonjour,

je voudrais arrondir au plus prés une plage de cellule, de E3 à E14
est ce quelqu’un peut m'aider please?
ci-dessous le début de mon code


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
Sub MajBareme()
'les variables pour la mise à jour du bareme
Dim annee As Object, annéecours As Integer
Dim anneeref, colref, annee_moins_un, col_en_cours
Dim Taux
Sheets("bareme").Activate
    '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 = 4 '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