Re : Aide pour modification de codes VBA
Bonsoir,
Désolée Si, en fait je n'avais pas très bien compris le fonctionnement de ton code, je n'avais plus le cumul.
En ce qui concerne la correction que tu as apportée à la proposition de Robert c'est nickel.
Private Sub Worksheet_Change(ByVal R As Range)
If Not Intersect(R, Range("D7
17,H7:H17,L7:L17")) Is Nothing Then
If IsNumeric(R) Then
R(1, 2) = R(1, 2) + R
Else
Application.EnableEvents = False: R = "": R.Select: Application.EnableEvents = True
End If
End If
End Sub
J'ai complété comme suit pour que ça fonctionne dans tout mon tableau "test". J'espère que je parviendrai à le reproduire dans mon fichier réel.
En ce qui concerne le code de Robert du 13/01/2013 20h26, j'ai complété comme suit et j'ai le résultat escompté :
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
If Application.Intersect(Target, Application.Union(Range("D7
17"), Range("H7:H17"), Range("L7:L17"), Range("D24
34"), Range("H24:H34"), Range("L24:L34"))) Is Nothing Or Target.Count > 1 Then Exit Sub
Cancel = True
Select Case Target.Column
Case 4
Range("E" & Target.Row) = Range("E" & Target.Row) - Target
Case 8
Range("I" & Target.Row) = Range("I" & Target.Row) - Target
Case 12
Range("M" & Target.Row) = Range("M" & Target.Row) - Target
End Select
Target = ""
End Sub
Que signifie Case 4 et case 12?
En tout cas je vous remercie très chaleureusement.
Je joins mon fichier test modifié.
@+