Marcro arrondi inf. Résolu/Fermé

Question

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. 

Configuration: Windows 7 / Internet Explorer 9.0

eljojo_e · Answer

Bonjour,

Application.RoundDown(Valeur_à_arrondir, Nb_chiffre_après_virgule)

Application.RoundDown(1,21, 1) -> 1.2

Cordialement,

pijaku · Answer

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

ptit-suisse · Answer

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 ! :)

Marcro arrondi inf.

3 réponses

Discussions similaires