Nombre positf en nombre négatif

[Emmanuel]

Bonjour le Forum

Y a t'il une personne qui connaitrait un moyen de transformer un nombre positif à la saisie en un nombre négatif automatiquement ?

J'ai essayé avec format de cellule personnalisé, en ajoutent le signe moins devant le format numérique, mais le nombre apparait avec le signe sans le considérer comme un nombre négatif !!!

merci par avance

A bientôt

Emmanuel

 

[jmps]

Bonjour Emmanuel,

Par un format je vois pas trop. Essaye ce code :

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Excel.Range)
Application.EnableEvents = False
Target.Value = Abs(Target.Value) * -1
Application.EnableEvents = True
End Sub

Le Abs() sert à ne pas tenir compte des négatifs éventuellement saisis.
Les Application.EnableEvents sont là pour éviter des appels récursifs de l'évènement lors de la modif de la cellule par le Sub lui-même.

Dernière chose, si tu ne veux pas que cela fonctionne pour toutes les feuilles de ton classeur, place le code dans le WorksheetChange() de la feuille concernée plutôt que le Workbook_SheetChange().

Bonne journée.

José

 

[Emmanuel]

Bonjour jmps,

merci pour ta réponse, j'essaye et je te tiens au courant.

Bonne journée

Emmanuel