Multiplier une sélection par -1

Bonjour,

Malgré plusieurs recherches je n'arrive pas à trouver la solution, je me permets donc de solliciter votre aide.

Je souhaiterais créer une macro qui multiplie les différentes cellules de ma sélection par "-1". Petite contrainte, ces cellules ont déjà des formules. Cela revient à faire un Collage spécial - Multiplication, mais sans avoir à taper dans une cellule "-1" puis de la copier.

Merci beaucoup pour votre aide.

Bonjour Melinch

Perso, je ne comprends pas la demande

Si ces cellules contiennent des formules, il faut les écraser pour les multiplier par -1 ou ajouter -1 à la formule !?

A+

Bonjour,

Il faut ajouter -1 à la formule. Exactement sur le même principe que le Collage spécial - Multiplication.

Merci

Bonjour melinch,

Alors vous pouvez utiliser ceci

Sub MultiMoins()
  Dim Cel As Range
  For Each Cel In Selection
    If Cel.HasFormula Then
      Cel.FormulaLocal = "=(" & Mid(Cel.FormulaLocal, 2) & ")*-1"
    End If
  Next Cel
End Sub

A+