Raccourci clavier pour mettre un nombre en négatif ???

[Malka]

Bonjour,

Je cherche le raccourci clavier me permettant de mettre en negatif le nombre sur une cellule ? (ou inverser le signe)

Je precise que je fais une analyse cellule par cellule donc la solution qui consiste de selectionner toute la colonne de multiplier par -1 ne repondra pas à mon pb...

Merci pour les réponses

Malka

 

[Pierrot93]

Re : Raccourci clavier pour mettre un nombre en négatif ???

Bonjour Malika,

Perso connais pas de raccourci particulier, peut être en utilisant le collage spécial, dans une cellule quelconque tu tapes -1, tu la copie et ensuite dans les cellules dont le résultat est à retrourné => click droit => collage spcial, tu coches "multiplication"...

bonne journée
@+

 

[kiki29]

Re : Raccourci clavier pour mettre un nombre en négatif ???

Salut, je doute qu'il existe ce raccourci va jeter un oeil sur http://www.microsoft.com/enable/products/keyboard.aspx à tout hasard

 

[JNP]

Re : Raccourci clavier pour mettre un nombre en négatif ???

Bonjour le fil 🙂,
Eventuellement en passant par VBA :
Dans ThisWorkbook

Private Sub Workbook_BeforeClose(Cancel As Boolean)
OnKey "^m"
End Sub
Private Sub Workbook_Open()
Application.OnKey "^m", "Négatif"
End Sub

et dans un module

Sub Négatif()
If Selection.Count = 1 Then
Selection = Selection * -1
End If
End Sub

Utiliser Ctrl+m quand une seule cellule est sélectionnée.
Bon WE 😎
Ajout : ATTENTION, une formule sera transformée en son résultat en négatif...

 

[Staple1600]

Re : Raccourci clavier pour mettre un nombre en négatif ???

Bonjour à tous


Une possibilité par menu contextuel perso

Sub MenuPerso()
With CommandBars("Cell").Controls
    With .Add(1, 1)
        .Caption = "Inverser signe"
        .OnAction = "Inversion"
    End With
End With
End Sub

Sub inversion()
Dim a As Range: Set a = ActiveCell
[COLOR=SeaGreen]'L'inversion n'a lieu que si la cellule n'est pas une date , 
'est numérique, ne contient pas de formule[/COLOR] [COLOR=SeaGreen]et n'est pas vide[/COLOR]
If a.HasFormula Or IsDate(a) Or Not IsNumeric(a) Or IsEmpty(a) Then Exit Sub
With a
    .Value = .Value * -1
End With
End Sub

Sub ResetMenuPerso()
[COLOR=SeaGreen]'Code pour réinitialiser le menu contextuel[/COLOR]
CommandBars("Cell").Reset
End Sub

Fonctionnement:
Exécuter une fois la macro: MenuPerso
Faire un clic-droit sur la cellule
puis clic-gauche sur Inverser signe

PS: Pour un reinit du menu contextuel, exécuter la macro: ResetMenuPerso

 

[MJ13]

Re : Raccourci clavier pour mettre un nombre en négatif ???

Bonjour à tous

Tiens je viens de voir Excel 2003 en vert . Serait-ce l'arrivée du nouveau forum 🙂.

 

[Staple1600]

Re : Raccourci clavier pour mettre un nombre en négatif ???

Re


MJ13
Oui voir ce fil pour plus d'infos

EDITION: je viens de voir que tu viens de voir 😉

 

[Malka]

Re : Raccourci clavier pour mettre un nombre en négatif ???

Salut,

Merci pour les reponses !!
Je vais les essayer
J'aime bien la solution de Staple1600.... elle est plus adaptée à ma problematique.
Les autres sont efficaces aussi..
Je teste.
Merci encore
Bon WE

Malka