A voir également:
- Nombre negatif
- Nombre de jours entre deux dates excel - Guide
- Nombre facile - Télécharger - Outils professionnels
- Negatif telephonique - Guide
- Ascii nombre de caractères - Guide
- Gto nombre episode - Forum Cinéma / Télé
4 réponses
Bonjour
Format/Cellule/Personnaliser et quelque chose comme "-"###
RQ. Les contenus des cellules seront quand même vus comme positifs
Cdlmnt
Format/Cellule/Personnaliser et quelque chose comme "-"###
RQ. Les contenus des cellules seront quand même vus comme positifs
Cdlmnt
bonjour
si tu as beaucoup de nombre négatif à saisir.
tu peux les saisir en positif.
Puis sélection une plage de taille identique ne comprenant que des -1.(rapide à faire).
Et coller ces cellules sur ta saisie, en prenant: Collage spéciale/Opération /multiplication.
Cordialement
si tu as beaucoup de nombre négatif à saisir.
tu peux les saisir en positif.
Puis sélection une plage de taille identique ne comprenant que des -1.(rapide à faire).
Et coller ces cellules sur ta saisie, en prenant: Collage spéciale/Opération /multiplication.
Cordialement
Salut Iama
On peut aussi envoyer l'artillerie lourde au cas où on taperait (par erreur) un négatif
Alt-F11 pour accéder à l'éditeur vba et coller le code
Modifier la valeur de la constante plage
Cdlmnt
On peut aussi envoyer l'artillerie lourde au cas où on taperait (par erreur) un négatif
Alt-F11 pour accéder à l'éditeur vba et coller le code
Modifier la valeur de la constante plage
Option Explicit
Const plage = "A1:A10"
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Not Intersect(Target, Range(plage)) Is Nothing Then
If IsNumeric(Target.Value) Then
If Target.Value > 0 Then
Target.Value = -Target.Value
End If
End If
End If
Application.EnableEvents = True
End Sub
Cdlmnt
Bonjour
suite à une idée de ccm81
Voici 3 petits codes
suite à une idée de ccm81
Voici 3 petits codes
Public Sub InverserLesSignes()
Dim i As Range
For Each i In Selection
If i.Value = Empty = False Then
If IsNumeric(i.Value) Then i.Value = i.Value * -1
End If
Next
End Sub
Public Sub Mettre_Au_Negatif()
Dim i As Range
For Each i In Selection
If IsNumeric(i.Value) Then
If i.Value > 0 Then i.Value = i.Value * -1
End If
Next
End Sub
Public Sub Mettre_Au_Positif()
Dim i As Range
For Each i In Selection
If IsNumeric(i.Value) Then
If i.Value < 0 Then i.Value = i.Value * -1
End If
Next
End Sub
