Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
With Target
If .CountLarge > 1 Then Exit Sub
If .Column <> 5 Then Exit Sub
If IsEmpty(.Value) Then Exit Sub
If Not IsNumeric(.Value) Then Exit Sub
Application.EnableEvents = 0
.NumberFormat = "#,##0"
.HorizontalAlignment = 4: .IndentLevel = 1
.Value = Val(Left$(.Value & "00000", 6))
Application.EnableEvents = -1
End With
End Sub
=CNUM(GAUCHE(E1 & "00000";6))
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Target.Column = 5 And Target.Count = 1 Then Target = Val(Left(Target & "000000", 6))
Application.EnableEvents = True
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 5 And Target.Count = 1 Then
If Target = "" Then Exit Sub
If IsNumeric(Target) Then
If Int(Abs(Target)) = Abs(Target) Then
Application.EnableEvents = False
Target = Sgn(Target) * Val(Left(Abs(Target) & "000000", 6))
Application.EnableEvents = True
End If
End If
End If
End Sub
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
With Target
If .CountLarge > 1 Then Exit Sub
If .Column <> 5 Then Exit Sub
If IsEmpty(.Value) Then Exit Sub
If Not IsNumeric(.Value) Then Exit Sub
Application.EnableEvents = 0
.NumberFormat = "#,##0"
.HorizontalAlignment = 4: .IndentLevel = 1
.Value = Val(Left$(.Value & "00000", 6))
Application.EnableEvents = -1
End With
End Sub
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
With Target
If .CountLarge > 1 Then Exit Sub
If .Column <> 5 Then Exit Sub
If IsEmpty(.Value) Then Exit Sub
If Not IsNumeric(.Value) Then Exit Sub
Application.EnableEvents = 0
.NumberFormat = "#,##0"
.HorizontalAlignment = 4: .IndentLevel = 1
.Value = Val(Left$(.Value & "00000", 7 + (Sgn(.Value) = 1)))
Application.EnableEvents = -1
End With
End Sub