Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ActiveCell.Offset(-1, 0) = ActiveCell.Offset(-1, 0) / 100
End Sub
if activecell.column = 8 then
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Static b As Boolean
If b Or Target.Column <> 8 Or Target.Count > 1 Then Exit Sub
If IsNumeric(Target) Then b = True: Target = Target / 100: b = False
End Sub
Attention ce n'est qu'un format, la valeur de la cellule sera toujours la même...Salut,
essayer Format===>Cellule===>personnalisee===>"0,0"0
si ca te convient