Bonjour,
Voici ci-dessous un code VB qui me permet d'incrémenter une cellule en passant par une autre :
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Message As String, Valeur As Long
With Target
If Not .Address(False, False) = "K64" Then Exit Sub
Valeur = .Value
Message = "Valider le rajout de " & Valeur & " m3 au cubage annuel"
If MsgBox(Message, vbYesNo) = vbNo Then Exit Sub
Range("H49").Value = Range("H49").Value + Valeur
Application.EnableEvents = False
.Value = Empty
Application.EnableEvents = True
Call Macro998
End With
End Sub
Mon soucis est que j'aimerai, dans la même feuille faire la même chose pour une autre matière !
Par exemmple taper une valeur en H64 pour incrémenter la cellule en F40.
Comment puis-je procéder s'il vous plait ?
Merci par avance.