Discussion :

[Bernard35]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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