Nombre arrondi en VBA
Bonjour à tous,
J'ai une macro dont les détails est les suivants:
Sub prixtest()
Dim prestas As String
Dim px As Integer
h = 2
For I = 2 To 100
prestas = Range("d" & I)
If prestas = "ddddd" Then px = 75.684
If prestas = "ppppp" Then px = 74.684
Range("f" & h) = px
h = h + 1
Next I
End Sub
mon pb ce que lorsque j'exécute la macro les px sont affichés arrondis :
75.684 me donne 76
74.684 me donne 75
j'ai essayé de changer le format de cellule en nombre 3 chiffres après la virgule, mais ça n'a pas marché il change juste le nouveau px (76.000) et (75.000)
Merci d'avance de votre aide.
slts
Rached
Bonjour,
Il est toujours préférable d'ajouter un petit fichier d'exemple (avec données non confidentielles) et de même présentation que l'original, ça aide
rached2015 a écrit :Dim px As Integer
mon pb ce que lorsque j'exécute la macro les px sont affichés arrondis :
75.684 me donne 76
74.684 me donne 75
Bonjour et
Votre variable "px" a été déclarée comme entière (Dim px as Integer).
Il est donc parfaitement logique que la valeur retournée soit..... entière
Essayez avec
Dim as singleMerci beaucoup !
ça bien marché !
slts
Rached
Bonjour à tous,
j'ai réussi à faire une macro(voir pièce jointe) qui copie une cellule et la colle dans un autre feuille mon probleme ce que l'execution de cette macro est tres lente surtout si j'utilise un nombre important des ligne 17000 lignes.
j'ai essayer de copier une plage (a7:a20) et faire un step de 20 lignes mais ça n'a pas marché.
quelcun peut m'aider.
merci d'avance