Soustraction d'une même cellule.

[alexlebon]

Bonsoir,

Ayant quelques notions mais pas suffisantes pour résoudre mon problème je vous demande de l'aide.

Pour un gain de temps j'aimerais soustraire la valeur d'une cellule.

C'est a dire par exemple :

cellule C1 "=C2-C1"
cellule C2 "valeur "

Et indiquer une valeur qui sera soustraite a C2 dans C1, est ce possible ?

Merci d'avance.

 

[ROGER2327]

Re : Soustraction d'une même cellule.

Bonjour à tous

On pourrait aussi le faire directement à la saisie avec ça :

[COLOR="DarkSlateGray"][B]Private Sub Worksheet_Change(ByVal Target As Range)
Dim oCel As Range, dDif
   Set dDif = [F3] [COLOR="Green"]'paramètre modifiable[/COLOR]
   With Range("C7:W51") [COLOR="Green"]'paramètre modifiable[/COLOR]
      If Intersect(Target, .Cells) Is Nothing Then Exit Sub
      Application.ScreenUpdating = False
      Application.Calculation = xlCalculationManual
      Application.EnableEvents = False
      On Error Resume Next
      For Each oCel In Intersect(Target, .Cells).Cells
         If Not IsEmpty(oCel) Then
            oCel.Value = dDif.Value - oCel.Value [COLOR="Green"]'formule du calcul[/COLOR]
         End If
      Next oCel
      On Error GoTo 0
      Application.EnableEvents = True
      Application.Calculation = xlCalculationAutomatic
      Application.ScreenUpdating = True
   End With
End Sub[/B][/COLOR]

dans le module de la feuille Feuil1.
Chaque saisie serait immédiatement corrigée.​

ROGER2327
#2403

 

[ROGER2327]

Re : Soustraction d'une même cellule.

Suite...

Une solution simple et pas nécessairement très longue à réaliser. (Car adapter une procédure à diverses situations prend toujours un certain temps, quand ce n'est pas un temps certain...)

1. Dupliquer la feuille Feuil1 ;
2. Écrire la formule

   [B][COLOR="DarkSlateGray"]=SI(ESTVIDE(Feuil1!C7);"";SI(ESTNUM(Feuil1!C7);Feuil1!$F$3-Feuil1!C7;Feuil1!C7))[/COLOR][/B]

   en C7 ;
3. Étendre la formule à toute la plage à calculer.

Durée de l'opération : moins d'une minute.
Intérêt de la chose : séparation de la saisie et du résultat ; d'où correction facile.
Lorsqu'on est sûr que tout est bien fait, il ne reste qu'à copier les résultats et à les coller "valeur seule" dans la feuille de départ, puis supprimer la feuille auxiliaire.

Je joins le classeur avec l'illustration de cette méthode et aussi la mise en application de la procédure du message précédent (feuille Correction automatique).​

ROGER2327
#2404