Convertir en vba

Y compris Power BI, Power Query et toute autre question en lien avec Excel
D
Dehbi
Membre habitué
Membre habitué
Messages : 90
Inscrit le : 30 décembre 2017
Version d'Excel : 2010

Message par Dehbi » 16 avril 2019, 02:10

bonjour a tous ,

je souhaiterai a partir de cette formule =ENT((A1+"0:7:30")/"0:15")*"0:15" la convertir en code vba

Merci
T
Theze
Passionné d'Excel
Passionné d'Excel
Messages : 3'514
Appréciations reçues : 242
Inscrit le : 26 janvier 2011
Version d'Excel : 2007

Message par Theze » 16 avril 2019, 06:46

Bonjour,

ENT() = INT() :
=INT((A1+"0:7:30")/"0:15")*"0:15"
mais si tu veux l'utiliser dans du code, cette formule ne marchera pas, il te faut la modifier comme ceci :
Dim Valeur As Single

Valeur = Int((Range("A1").Value + CDate("0:7:30")) / CDate("0:15")) * CDate("0:15")

MsgBox Valeur
comme tu utilises des heures formatées, il est plus propre de les entrer de cette façon :
Valeur = Int((Range("A1") + CDate("00:07:30")) / CDate("00:15")) * CDate("00:15")
1 membre du forum aime ce message.
Il vaut mieux un qui sait que cent qui cherchent :wink:

Ce forum étant un lieu de partage, je n'accepte pas les messages privés !
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message