Formule pour additionner

Bonjour,

Je voudrais savoir comment modifier le code suivant pour additionner plus n'importe quel chiffre par exemple B3 14 je voudrais ajouter 10 pour faire 24 et dans E9 50 je voudrais ajouter 5 pour faire 55.

Voici le code que mis dans ThisWorkbook :

Code:

---

1 2 3 4 5 6 7 8 9 10

Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean) If Target.Count > 1 Then Exit Sub If Not Intersect(Target, Sh.[B3:U28]) Is Nothing Then confirm = MsgBox("Ajouter 1?", vbOKCancel, "Confirmez, svp") If confirm = 1 Then Target = Target + 1 Cancel = True End If End If End Sub

---

Je voudrais a la place 1 cela pourrais additionné n'importe quel chiffre. si je veux ajouter 1 dans B3 ou le nombre est 14 pour faire 15 ou ajouter 10 pour faire 24 sans que cela change dans les autres cellules.

Merci d'avance

Bonjour,

Teste ceci et adapte :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)   Dim Somme As Double   If Target.Count > 1 Then Exit Sub   If Not Intersect(Target, Sh.Range("B3:U28")) Is Nothing Then   On Error GoTo Fin Somme = InputBox("Indiquer la somme à ajouter !", "Somme")   Target.Value = Target.Value + Somme   End If   Exit Sub   Fin: MsgBox "Somme non valide !" & vbCrLf & "Utiliser le séparateur décimal de votre système comme par exemple la virgule."   End Sub

---

Hervé.

Bonsoir Bernard, Hervé, bonsoir le forum,

Une petite variante à la proposition d'Hervé :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean) Dim Somme As Double   If Target.Count > 1 Then Exit Sub If Not Intersect(Target, Sh.Range("B3:T24")) Is Nothing Then Cancel = True Somme = Application.InputBox("Indiquer la somme à ajouter !", "Somme", Type:=1) If Somme = False Then Exit Sub Target.Value = Target.Value + Somme End If End Sub

---