Discussion :

[jalseth]

Voila, je programme sous VBA depuis Mind Manager. Mon problème est je le sais, très simple mais je n'arrive vraiment pas à trouver la solution...

Quand je programme, j'utilise parfois la fonction Round pour effectuer un arrondi. A un autre moment, j'ai besoin d'utiliser la troncature d'un nombre. J'ai tenté Truncate mais cette fonction ne marche pas, je ne sais pas comment faire...

Merci de votre attention

[J.Michel]

Tu peux aussi utiliser Round dans ce cas.
Extrait de l'aide:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Round, fonction
 
Description
Renvoie un nombre arrondi à un nombre spécifié de positions décimales.
 
Syntaxe
Round(expression [,numdecimalplaces])
 
La syntaxe de la fonction Round comprend les éléments suivants :
expression = Expression numérique arrondie. 
numdecimalplaces (Facultatif) = Nombre indiquant combien de positions à droite 
de la virgule sont incluses dans le nombre arrondi. 
Si cette valeur est omise, les entiers sont arrondis par la fonction Round.

[jalseth]

Merci pour ta rapide réponse

Je connais la fonction Round mai sje ne vois pas trop commment l'utiliser...

Voila pourquoi...

J'ai un tableau de n lignes
Je l'envoie en image sur PPT et je souhaite mettre que 3 ligne du tableau par slide. Ainsi, je compte le nombre total de ligne. Je le divise par trois. Je tronque le ce nombre pour obtenir le nombre de slides "régulier" (i.e. avec 3 lignes). Le reste de ma troncature est donc un nombre de ligne compris entre 0 et 2. Ceci constitue le dernier slide.

L'arrondi ne fonctionnera pas car la troncature est donne un entier qui me sert d'indice pour une boucle for. Je sais pas si c'est possible avec un Single.

Pour le moment, j'utilise un passage par excel et donc une fonction EXCEL qui me tronque le nombre...

Ma macro fonctionne mais disons que je voulais un peu optimiser la chose...

Je sais pas si j'ai été très clair mais je fais ce que je peux lol

[J.Michel]

Peut être que ceci pourra t'aider:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Sub TestSilde()
    Dim A 'Nombre de lignes
    Dim B 'Resultat de la division par 3
    Dim C 'Nombre de slides complet
    Dim D 'Nombre de ligne du dernier slide
 
    A = 23
    B = A / 3
    C = Int(B)
    D = A - (3 * C)
 
    MsgBox "A:" & A & " B:" & B & " C:" & C & " D:" & D
End Sub

Le MsgBox n'est là que pour visualiser les résultats obtenus

[jalseth]

Effctivement c'est pile ce qu'il me faut puisque la partie entière d'un nombre n'est rien d'autre que sa troncature

Encore merci

[JackOuYA]

Bonsoir,

la division entiére : \ et peu-être plus appropriée :

Code :

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

1
2
3
4
5
6
 
Sub monTest()
For i = 1 To 30
 Debug.Print CInt(i / 3) & " -- " & i \ 3 & "-- " & i / 3
 Next
End Sub

JacqueS.