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

crisud · 20 Octobre 2009

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 · 20 Octobre 2009

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

Bonsoir,

Code:

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 · 20 Octobre 2009

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

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

crisud

XLDnaute Nouveau

Pièces jointes

Guest

Guest

crisud

XLDnaute Nouveau

Pièces jointes

Discussions similaires