Marcro arrondi inf.
Résolu
ptit-suisse
Messages postés
256
Statut
Membre
-
ptit-suisse Messages postés 256 Statut Membre -
ptit-suisse Messages postés 256 Statut Membre -
Bonjour,
J'aurai besoin d'une macro pour un fichier excel.
L'idée est que lorsque je quitte une cellule après y avoir saisie une valeur, celle-ci soit arrondie à un chiffre après la virgule en inferieur !
exemple :
10.20 => 10.2
10.19 => 10.1
10.11 => 10.1
10.09 => 10.0
pour faire simple, le 2ème chiffre après la virgule doit disparraitre ! ;)
Plage de donnée : F18:M117
Format fichier : xlsm | Office 2010
Le document comporte déjà 3 autres macros (du basique : bouton pour sauvegarder le document avec la date + 2 macro de raccourci (type : Ctrl+* = OK)
& si j'peu un peu abusé, est-il possible de desactiver sur ce document la fenetre "voulez vous enregistrer ce document" ? (je voudrai que ce document reste tjr vierge)
Le document sera un formulaire verouillé.
Merci d'avance pour votre aide & n'hesitez surtout pas à me demander d'autres informations.
J'aurai besoin d'une macro pour un fichier excel.
L'idée est que lorsque je quitte une cellule après y avoir saisie une valeur, celle-ci soit arrondie à un chiffre après la virgule en inferieur !
exemple :
10.20 => 10.2
10.19 => 10.1
10.11 => 10.1
10.09 => 10.0
pour faire simple, le 2ème chiffre après la virgule doit disparraitre ! ;)
Plage de donnée : F18:M117
Format fichier : xlsm | Office 2010
Le document comporte déjà 3 autres macros (du basique : bouton pour sauvegarder le document avec la date + 2 macro de raccourci (type : Ctrl+* = OK)
& si j'peu un peu abusé, est-il possible de desactiver sur ce document la fenetre "voulez vous enregistrer ce document" ? (je voudrai que ce document reste tjr vierge)
Le document sera un formulaire verouillé.
Merci d'avance pour votre aide & n'hesitez surtout pas à me demander d'autres informations.
3 réponses
-
Bonjour,
Clic droit sur l'onglet de la feuille concernée / Visualiser le code, copier coller ce code :Private Sub Worksheet_Change(ByVal Target As Range) Dim Plage As Range Set Plage = Range("F18:M117") If Not Intersect(Target, Plage) Is Nothing Then If IsNumeric(Target) Then If InStr(Target, ",") > 0 Then Target.Value = CDbl(Left(Target.Value, InStr(Target, ",") + 1)) End If End If End Sub
-
Bonjour,
Application.RoundDown(Valeur_à_arrondir, Nb_chiffre_après_virgule)
Application.RoundDown(1,21, 1) -> 1.2
Cordialement, -
Salut pijaku !
encore une fois tu me sauves !
... j'ai juste eu peur au début, mais comme la dernière fois, c'était un soucis de "." et de "," j'ai juste inversé et la macro fonctionne nickel chrome !
Merci beaucoup ! =)
Bonnes Fêtes de Pâques à tous ! :)
