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

Guest

Pièces jointes

Guest

Guest

crisud

Guest

Pièces jointes

Discussions similaires

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

crisud

Guest

Pièces jointes

Guest

Guest

crisud

Guest

Pièces jointes

Discussions similaires

Privacy & Transparency

Privacy & Transparency