Calculer avec VBA

Bonjour,

Je souhaite après avoir sélectionné deux cellules sur une même colonne cliquer sur un bouton lié a une macro afin qu'il me calcul la différence et que le résultat soit enregistré dans une cellule de la colonne jusqu'à coté.

Merci de bien vouloir m'aider...

Bonjour

Pourquoi ne pas rentrer la formule différence à la main?

Bonjour,

Un exemple à adapter.

Cdlt.

Public Sub Calcul()
Dim ACell As Range, Cell As Range
    Set ACell = ActiveCell
    Set Cell = Application.InputBox(prompt:="Sélectionner la cellule.", _
                                     Title:="Calcul de différence", Type:=8)
    If Not Cell Is Nothing Then _
       ACell = ACell.Offset(, -1).Value - Cell.Value
    Set Cell = Nothing: Set ACell = Nothing
End Sub