Fonction d'arrondi Excel et VBA

Apprendre à utiliser la fonction "Roundup" d'Excel à partir de son langage de programmation intégré VBA, ou Visual Basic pour Applications, vous aide à exécuter n'importe quelle fonction Excel à partir de VBA. Cette compétence est utile car Excel possède de nombreuses fonctions que VBA n'a pas et que vous devrez peut-être appliquer à partir d'un programme VBA. Notez que la fonctionnalité VBA qui vous permet d'accéder à la fonction "Roundup" ne vous avertira pas d'une syntaxe ou d'un argument incorrect, comme ce serait le cas lors de l'utilisation de l'interface de feuille de calcul standard.

Objet

La fonction Excel "Roundup" arrondit un nombre vers le haut au nombre de chiffres que vous spécifiez. Par exemple, l'exécution de "Roundup (2.2, 0)" indique à Excel que vous souhaitez qu'il arrondisse le nombre 2.2 au nombre entier suivant. Le "0" dans le deuxième argument indique à Excel que vous ne voulez aucun chiffre après la virgule décimale, ce qui équivaut à dire que vous voulez une réponse entière.

Fonction d'arrondi VBA

VBA n'a pas de fonction "Roundup" intégrée. La fonction la plus proche dont il dispose est la fonction "Round", qui arrondit vers le haut ou vers le bas selon que le dernier chiffre du nombre que vous arrondissez est supérieur ou inférieur à 5. Par exemple, taper "Arrondi (2.2, 0)" dans la fenêtre "Immédiat" de VBA donne un 2, au lieu du 3 auquel la fonction "Arrondi" d'Excel arrondirait.

Propriété "Formule"

Bien que VBA ne dispose pas de sa propre fonction "Roundup", il peut utiliser la fonction "Roundup" d'Excel. Pour demander à VBA de le faire, définissez la propriété "Formula" de l'objet virtuel "Range" sur la fonction "Roundup". L'exemple suivant vous montre comment procéder. Ouvrez l'environnement de développement VBA en appuyant simultanément sur "Alt" et "F11" à partir d'Excel. Cliquez sur la souris dans la fenêtre "Immédiat", puis tapez l'instruction suivante :"Plage ("A1").Formule ="=Roundup (2.2, 0)"." Retournez à Excel en utilisant la touche "Alt-F11" que nous venons de décrire . Vous verrez le résultat "3" dans la cellule A1, indiquant que votre instruction a appliqué avec succès la fonction "Roundup" d'Excel.

Exemple interactif

Vous pouvez créer un programme VBA interactif qui accepte d'un utilisateur les arguments de la fonction "Roundup" et affiche le résultat de cette fonction. Après avoir ouvert l'environnement de développement VBA, collez le programme suivant dans la fenêtre :

Public Sub roundUpANumber() Dim a1, a2, s a1 =CDbl(InputBox("Entrez le nombre que vous souhaitez arrondir")) a2 =CInt(InputBox("Entrez le nombre de décimales auquel vous souhaitez arrondir le nombre que vous venez d'entrer.")) s ="=Roundup(" &a1 &"," &a2 &")" Range("A1").Formula =s Range("A1").Calculate MsgBox (Range( "A1").Valeur) End Sub

Exécutez le programme en cliquant sur l'une de ses instructions, puis en cliquant sur la commande "Exécuter" du menu "Exécuter". Lorsque Excel vous demande les arguments de la fonction, tapez-les et appuyez sur "Entrée". Votre programme affichera le résultat de la fonction "Arrondi" pour les arguments que vous avez saisis.