Changer le signe d'une cellule

Bonjour,

encore plus simple (ça vient du support Microsoft) :

1. Ecrire le chiffre -1 dans une cellule vierge de la feuille de calcul
2. Sélectionner cette cellule
3. Dans le menu Edition, choisir la commande Copier
4. Sélectionner la plage de cellule dont on désire inverser le signe
5. Dans le menu Edition, choisir la commande Collage spécial
6. Sélectionner Coller Valeur et Opération Multiplication
7. Cliquer sur OK

à +
Eric

Sub InverserSigne()
Dim cel As Range
For Each cel In Selection
If cel.Value = "" Then
Else
If IsNumeric(cel) Then
cel.Value = cel.Value * -1
End If
End If
Next
End Sub

tiens ce code permet de changer le signe d'une ou plusieurs cellule(s) sélectionnée(s)

Merci pour cette réponse rapide.

Cette macro fonctionne parfaitement.

Elle est maintenant intégrée dans mon programme de gestion club, qui contient maintenant quelques 45 macros

tu devrait fusionner tes macros

Fusionner des macros, je ne sais pas faire.

Toutefois, je ne comprends pas très bien, car chacune a sa propre fonction et sont créées dans le dossier Visual basic editor qui lui-même est intégré dans mon programme excel.

Merci tout de même pour l'info.

Je pense que la solution la plus simple est celle de Kgigan qui consiste en une macro VBA que je lance par pression d'un bouton.
Cela marche aussi pour une ou plusieurs cellules sélectionnées.
Merci toutefois pour ta réponse.

Papyjlsn