selectionner une zone et modifier le signe d'un nombre VBA

[crisud]

Bonsoir,


J'ai du mal à trouver, et comme cela fait un petit moment que je chercher bien que j'ai trouvé un bout, pour terminer mon execution je fais appel à vous.

Pour un fichier de pointage d'un compte, je cherche à modifier le sens +/- des nombres dans une sélection.

j'ai trouvé ce code mais il me change le signe que d'une seule cellule

Private Sub CommandButton5_Click()
ActiveCell.Value = ActiveCell.Value * -1

End Sub

il me reste à trouver mon bout de procédure pour appliquer ma formule à toute la zone sélectionnée par la souris.

Merci d'avance de vos lumières

Christian

 

[Guest]

Re : selectionner une zone et modifier le signe d'un nombre VBA

Bonsoir,

Private Sub CommandButton5_Click()
    Dim c As Range
    if not typeof selection is range then exit sub
    For Each c In Selection.Cells
        c.Value = c.Value * -1
    Next c
End Sub

A+

 

[crisud]

Re : selectionner une zone et modifier le signe d'un nombre VBA

Merci beaucoup Hasco

Grâce à vous par 2 fois en venant ici, j'ai pu obtenir ce que je souhaite.

Voici le résultat final, pour pointer 2 comptes
Il pourrait être utile à quelqu'un

Cordialement et bonne soirée
Christian