Code VBA pour soustraire d'une cellule active.

Bonjour.
Comme vous décrivez le comportement souhaité, ne serait-ce pas plutôt une Worksheet_Change qu'il vous faudrait ?

Dranreb à dit:

Bonjour.
Comme vous décrivez le comportement souhaité, ne serait-ce pas plutôt une Worksheet_Change qu'il vous faudrait ?

VB:

Private Sub Worksheet_Change(ByVal Target As Range)
   If Target.CountLarge <> 1 Then Exit Sub
   If Intersect([Tableau1[[Janvier]:[Décembre]]], Target) Is Nothing Then Exit Sub
   Application.EnableEvents = False
   Target.FormulaR1C1 = "=" & Trim$(Str$(Target.Value)) & "-[@[Poids du fauteuil]]"
   Application.EnableEvents = True
   End Sub

Cliquez pour agrandir...

Bonjour Dranreb,
J'avais essayé d'enlever le " sélection Change" par "worksheet Change" mais je me suis retrouvé avec un problème de débogage! Et vu mon niveau 0 en vba...
Je ne sais pas pourquoi en rentrant un poids dans une cellule ça à rempli toute la colonne!
J'ai remarqué que si j'efface la valeur d'une cellule un 0 apparaît. Si j'essaie de le supprimer 0 apparaît à nouveau. C'est là que j'ai regarder dans la barre de formule. Et en sélectionnant 2 cellules j'arrive à supprimer la formule et faire disparaître le 0.
Peut-on faire disparaître le 0 en ne sélectionnant qu'une cellule?
Peut-on mettre un msgbox du genre " Confirmez-vous le changement de valeur?" dans une cellule ou le poids est déjà renseigné?
Merci pour ce code.

Je ne sais pas bien quoi y faire, si la colonne est vide, pour qu'il ne considère pas que la formule est pour toute la colonne.
Pour le second point, peut être en ajoutant au début : Si on tape et valide un nombre on ne peut plus savoir que la cellule était déjà renseignée. On peut tout au plus encore ajouter :

Peut-être en convertissant le tableau1 en plage normale de cellule et en modifiant
If Intersect([Tableau1[[Janvier]:[Décembre]]], Target) Is Nothing Then Exit Sub par la plage D2:O44 ?

Non, mais peut être n'est-ce pas une formule mais la valeur qu'il faut laisser ?

J'ai remplacé Target.FormulaR1C1.... par cette nouvelle ligne et c'est parfait.
Encore merci pour ce code qui évite de mettre des colonnes supplémentaires pour faire le calcul.
Bonne journée.