Re
Click droit sur l'onglet ==> Visualiser le code
Je te les commente içi :
'Si click droit
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
'Dans la plage E6:E12
If Not Intersect(Target, Range("E6:E12")) Is Nothing Then
'La cellule active prend la formule
Target.FormulaR1C1 = "=RC3+RC4"
'Fin de la condition
End If
'Sortie du code
End Sub
'Si on valide une saisie
Private Sub Worksheet_Change(ByVal Target As Range)
'Dans la plage F6:F12
If Not Intersect(Target, Range("F6:F12")) Is Nothing Then
'Si la cellule contient une valeur, la cellule à gauche de la cellule active prend la formule
If Target > 0 Then Target.Offset(0, -1).FormulaR1C1 = "=RC3+RC4"
'Fin de la condition
End If
'Sortie du code
End Sub
Pour la traduction de la formule, tu vas sur une cellule qui la contient. Tu lances l'enregistreur de macro et tu fais F2 puis entrée. Arrête l'enregistrement. Tu trouveras la formule dans le module qui s'est créé.
Amicalement
Nad