Feuille de congé

Pas à ma connaissance.
Mais votre requète est très incomplète.
A quel moment souhaitez vous avoir ces calculs bloqués ? Y'a t'il des critères spécifiques ?
Y'a t'il une cellule particulière dont le changement d'état lancerait le calcul et qui permettrait de définir une condition?
Sinon, si vous ne voulez pas que les calculs s'effectuent, soit vous arrêtez le calcul automatique dans les options, soit vous faite un copier/coller spécial de la valeur.
Après, il reste la possibilité de réaliser la fonction avec une macro, mais là encore il faudrait que vous définissiez vos critères de lancement de calcul.

Michel

Merci pour cette réponse Michel, effectivement comme vous l'évoquer il faudra le par un macro.
Ce que je souhaite c'est quand t'ont fait la somme automatique que le résultat reste invariable même si l'on change les données de la source.

oui mais encore une fois, selon quels critères ?
Il faut bien que le calcul se fasse à un moment ou à un autre sinon, je ne vois pas pourquoi il y aurait une formule.
Qu'est-ce qui doit déclencher le calcul : l'ouverture du fichier ? le choix de la feuille ?
le changement d'une variable ? votre choix personnel ?

Super si vous vous en êtes sorti tout seul.
Je fais simplement remarquer que votre code est bien éloigné de votre demande initiale puisque maintenant vous faites entrer un mot de passe dans le processus.
Si vous aviez répondu à mes demandes concernant le déclenchement du calcul (message 7), je vous aurais sans doute proposé quelque chose de similaire.

Michel

Je ne comprends pas la première partie de votre question dans la mesure ou le calcul est déjà bloqué.

Pour effacer G7 si H7 < 0, vous avez deux possibilités suivant ce que vous désirez faire :

La première consiste à faire l'opération en 2 temps. 1er temps, on effectue le calcul, 2eme temps si le calcul est négatif, la cellule H7 est effacée. Il faut donc saisir 2 fois le mdp

Private Sub CommandButton1_Click()

mot = InputBox(Prompt:="mot de passe :", Title:="validation")
If mot = "mdpàlc" Then
 If Range("H7") < 0 Then
    Range("G7").Clear
    Else
    Range("H7") = Range("D7") - Range("G7")
End If
End If
End Sub

La deuxième consiste à réaliser la même opération en une seule passe (soit une seule saisie du mdp).

Private Sub CommandButton1_Click()

mot = InputBox(Prompt:="mot de passe :", Title:="validation")
If mot = "mdpàlc" Then Range("H7") = Range("D7") - Range("G7")
If Range("H7") < 0 Then Range("G7").Clear
    
End Sub

A vous de choisir

Michel

Bien sur que ça fonctionne !
Seulement si vous demandez d'effacer une cellule qui contient une formule (votre message #11), le résultat est celui que vous avez constaté. Ce n'est pas sur G7 qu'il faut agir, mais sur une cellule de saisie dont dépend la formule.

Merci de passer le sujet comme résolu

Michel