Format nombres

phlaurent55

Nous a quittés en 2020

Repose en paix

• 16 Juin 2011

• #16

Re : Format nombres

Bonjour à tous,

Pierrot étant absent en ce moment, voici le code:

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
Static b As Boolean
If b Or (Target.Column <> 8 And Target.Column <> 10) Or Target.Count > 1 Then Exit Sub
If IsNumeric(Target) Then b = True: Target = Target / 100: b = False
End Sub

à+
Philippe

 

Vote positif 0 Vote négatif

aubelix

XLDnaute Impliqué

• 17 Juin 2011

• #17

Re : Format nombres

Bonjour Matinal à phlaurent55 et tout les Amis du Forum.

Merci pour ta réponse phlaurent55.
Sous Excel 2003 ça fonctionne très bien.

Bonne journée à Tous.
Cordialement.

 

Dernière édition: 23 Juin 2011

Vote positif 0 Vote négatif

aubelix

XLDnaute Impliqué

• 23 Juin 2011

• #18

Re : Format nombres

Bonjour à tous les Ais du Forum. 🙂

Je reviens vers vous pour le problème suivant:
La macro fonctionne très bien. Mais...
Si je fais échap ou efface la saisie un zéro"0" s'inscrit dans la cellule
en lieu et place de la saisie. Je ne peux l'effacer, ni le supprimer.

Avez-vous la solution ?
Par avance, Merci.
Cordialement.

 

Pièces jointes

• SAISIE EN CENTIEME.xls

  17 KB · Affichages: 36

Vote positif 0 Vote négatif

phlaurent55

Nous a quittés en 2020

Repose en paix

• 23 Juin 2011

• #19

Re : Format nombres

Re,

avec ce code, tout effacement de cellule ne provoquera pas l'apparition d'un zéro

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Value = 0 Then Exit Sub
Static b As Boolean
If b Or (Target.Column <> 8 And Target.Column <> 10) Or Target.Count > 1 Then Exit Sub
If IsNumeric(Target) Then b = True: Target = Target / 100: b = False
End Sub

à+
Philippe

 

Vote positif 0 Vote négatif

aubelix

XLDnaute Impliqué

• 23 Juin 2011

• #20

Bonjour phlaurent55 🙂

Ca fonctionne très bien.
Mille Mercis.
Cordialement.

 

Vote positif 0 Vote négatif

M

mickey3d

Guest

• 4 Août 2011

• #21

Re : Format nombres

Je viens d'avoir le même souci aujourd'hui, j'ai excel 2003, et pour rajouter des zéros dérrière un nombre, on fait menu "Format=>cellules=>Onglet Nombres=>personnalisée,
Voici ce qu'il faut faire, par exemple pour rajouter un 0 : #"0"

Bonsoir🙂

Rachid_0661 à dit:

Salut,
essayer Format===>Cellule===>personnalisee===>"0,0"0
si ca te convient

Cliquez pour agrandir...

 

Vote positif 0 Vote négatif