J jeromegmc XLDnaute Occasionnel 9 Janvier 2006 #1 Bonjour à tous, Je cherche la fonction 'TRONQUE' mais en VBA. J'ai bien essayé 'LEFT' mais le résultat est un chaîne de caractères alors que je souhaite obtenir un chiffre. Merci d'avance A+
Bonjour à tous, Je cherche la fonction 'TRONQUE' mais en VBA. J'ai bien essayé 'LEFT' mais le résultat est un chaîne de caractères alors que je souhaite obtenir un chiffre. Merci d'avance A+
mapomme XLDnaute Barbatruc Supporter XLD 22 Août 2016 #16 Salut Modeste geedee Modeste geedee à dit: Bonsour® pourquoi pas simplement : (...) Cliquez pour agrandir... Je voulais, pour le fun, trouver une méthode sans faire appel aux fonctions Excel. Dans la 'vraie vie', je les utilise les fonctions Excel . Vote positif 0 Vote négatif
Salut Modeste geedee Modeste geedee à dit: Bonsour® pourquoi pas simplement : (...) Cliquez pour agrandir... Je voulais, pour le fun, trouver une méthode sans faire appel aux fonctions Excel. Dans la 'vraie vie', je les utilise les fonctions Excel .
Modeste geedee XLDnaute Barbatruc 22 Août 2016 #17 mapomme à dit: Salut Modeste geedee Je voulais, pour le fun, trouver une méthode sans faire appel aux fonctions Excel. Dans la 'vraie vie', je les utilise les fonctions Excel . Cliquez pour agrandir... pour le fun alors VB: Function VBTronque(Target, Decimale As Integer) As Double VBTronque = Int(Target * (10 ^ Decimale)) / (10 ^ Decimale) End Function Vote positif 0 Vote négatif
mapomme à dit: Salut Modeste geedee Je voulais, pour le fun, trouver une méthode sans faire appel aux fonctions Excel. Dans la 'vraie vie', je les utilise les fonctions Excel . Cliquez pour agrandir... pour le fun alors VB: Function VBTronque(Target, Decimale As Integer) As Double VBTronque = Int(Target * (10 ^ Decimale)) / (10 ^ Decimale) End Function
Dranreb XLDnaute Barbatruc 22 Août 2016 #18 Bonsoir. VB: Function Tronque(ByVal Valeur As Double, ByVal Décimales As Integer) As Double Dim Pui10 As Double Pui10 = 10# ^ Décimales Tronque = Int(Valeur * Pui10) / Pui10 End Function Vote positif 0 Vote négatif
Bonsoir. VB: Function Tronque(ByVal Valeur As Double, ByVal Décimales As Integer) As Double Dim Pui10 As Double Pui10 = 10# ^ Décimales Tronque = Int(Valeur * Pui10) / Pui10 End Function