Arrondi en VBA

Version imprimable

Arrondi en VBA

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:

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

30/11/2016, 15h53
triaguae

un petit round

round(valeur, nb de décimales)

round(100.23456,1) =>100.2
round(100.25456,1) =>100.3
30/11/2016, 17h07
Invité

Code:

Format(dblNumber ,"###,##0.00")
01/12/2016, 10h42
kari1978

Citation:

Envoyé par dysorthographie

Format(dblNumber ,"###,##0.00")

bonjour,

par contre il me met une erreur "erreur de compilation" Attendu: =
tu peux m'aider stp car je vois pas ce que je pourrais mettre après le =
01/12/2016, 12h39
unparia

Bonjour
Je bondis lorsque je lis ta dernière réponse (car cela révèle trop de méconnaissances des bases de chez base) :

Citation:

par contre il me met une erreur "erreur de compilation" Attendu: =
tu peux m'aider stp car je vois pas ce que je pourrais mettre après le =

Oh !
rien après le "=", mais ce qu'il faut AVANT
Format s'applique à une variable. Format n'est pas une méthode, mais une fonction
Tu ne peux imaginer à quel point ces incompréhensions là me donnent envie de fuir (de manière plus que justifiée).
Et si tu commençais par l'apprentissage des bases ? Cela t'aiderait sans aucun doute à comprendre ce que tu fais.
01/12/2016, 13h07
kari1978

je débute et je suis loin de tout connaitre, je suis sur qu'il va falloir du temps mais je vais y arriver. Je pensais que ce site était pour tout les niveaux même pour ceux qui n'ont pas de niveau (comme moi). pour toi cela dois être facile mais pas forcement pour tout le monde. mais je prendre tes conseils à la lettre. Mais je pense que si tu réponds aux débutants ainsi cela ne va pas les aider.
01/12/2016, 13h31
Invité

oui en fait, un numérique en fonction de la convention Ecriture n'en est peut être pas un!

d'un point de vu Excel, vue qu'il utilise le paramètres régionaux peu être mais pas de vba!

ainsi une virgule sera vue comme le séparateur décimal mais pas en vba qui respecte le point d'ou la fonction round ne notre amis précédant qui retourne que 2 chiffre derrière le milliers!

format(12.126,"#.00") retournera 12,13 et format(12.124,"#.00") 12,12 nous avons bien un arrondi!

mais encore faut-il que la valeur soit un numérique et ça 100.23456,126456789) j'en doute du point de vue vba!

Code:

Format(val(replace(replace("100.23456,126456789",".",""),",",".")),"###,##0.00")

ça ce complique car si je place 100.23456,126456789 il m'affiche à gauche de la cellule, preuve que même pour lui c'est pas un numérique!
01/12/2016, 14h37
unparia

A kari1978 :
C'est donc au débutant, que je vais m'adresser :
Un débutant s'empressze d'ouvrir son aide VBA à la rubrique Format et à l'exemple dont cette rubrique est assortie.
Il y découvre que son utilisation est du type :

Code:

var_retour = Format(var_traitée, type_de_format)

et en aucun cas

Code:

Format(var_traitée, type_de_format)

ou

Code:

Format(var_traitée, type_de_format) = quelque_chose

Et ce mécanisme (cette forme d'écriture) est rigoureusement le même pour tout type de fonction (Format étant une fonction).

Code:

var_retour = ma_fonction(tel_paramètre_d'entrée, tel_autre_paramètre, etc ...)

Ce sont CES bases, qu'il te faut d'abord assimiler. Elles sont indispensables.
Voilà