Marcro arrondi inf.
Résolu
ptit-suisse
Messages postés
227
Date d'inscription
Statut
Membre
Dernière intervention
-
ptit-suisse Messages postés 227 Date d'inscription Statut Membre Dernière intervention -
ptit-suisse Messages postés 227 Date d'inscription Statut Membre Dernière intervention -
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.
A voir également:
- Marcro arrondi inf.
- Excel arrondi à 0.5 ✓ - Forum Excel
- Intel inf - Télécharger - Pilotes & Matériel
- Arrondi publipostage - Forum Word
- Arrondi 0.5 supérieur ou inférieur - Forum Excel
- Ini:shortcut-inf ✓ - Forum Virus
3 réponses
Bonjour,
Clic droit sur l'onglet de la feuille concernée / Visualiser le code, copier coller ce code :
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,
Application.RoundDown(Valeur_à_arrondir, Nb_chiffre_après_virgule)
Application.RoundDown(1,21, 1) -> 1.2
Cordialement,
