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

[Theze]

Bonjour,

Teste ceci et adapte :

Code :

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

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é.

[Thautheme]

Bonsoir Bernard, Hervé, bonsoir le forum,

Une petite variante à la proposition d'Hervé :

Code :

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

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