Msg box permettant un calcul

[mcj1997]

Bonjour,

Question dans mon fichier joint,


Merci d'avance,

 

[Staple1600]

Re : Msg box permettant un calcul

Bonsoir

mcj1997
Tous les calculs se faisaient déjà modestement ici, non ?
Il était 14h54. 😉

 

[Chris401]

Re : Msg box permettant un calcul

Désolé ; j'avais mal lu les formules de ton fichier.

Modification dans celui-ci

 

[mcj1997]

Re : Msg box permettant un calcul

Merci beaucoup pour ma gouverne ou la modif se fait car j'ai essaye dans le tableau de remplacer cv par km et ca n'a pas marche

 

[Chris401]

Re : Msg box permettant un calcul

Re

Il faut également modifier le code dans l'Userform

ActiveWorkbook.Names.Add Name:="KM", RefersTo:=TextBox2.Value

 

[mcj1997]

Re : Msg box permettant un calcul

merci pour tout

Bonne soirée

 

[mcj1997]

Re : Msg box permettant un calcul

Bonjour,

J'avance dans mon fichier joint, j'ai notamment mis le tableau de calculs dans la feuil2 et j'aimerai que le ms box apparaisse non pas en cliquant sur la case A7 mais en cochant la case B5.

Merci d'avance,

 

[Si...]

Re : Msg box permettant un calcul

salut

j'avais commencé donc je complète. A tester (poids dû aux explications).

 

[mcj1997]

Re : Msg box permettant un calcul

Merci beaucoup c'est super, juste un problème lorsque l'on décoche la case b5 le revenu net ne se recalcule pas.

 

[Si...]

Re : Msg box permettant un calcul

re

on cache et ne voit plus bien 😱
Voir Si... cela va mieux.
(Fichier du #22 supprimé)

 

[mcj1997]

Re : Msg box permettant un calcul

Non c'est pas ok lorsque l'on décoche la case B5 et que l'on change le montant en b4, b9 ne se met pas à jour.

 

[Si...]

Re : Msg box permettant un calcul

re

Heureusement que tu suis 😛; rajoute dans le module de la feuille Feuil1

Private Sub Worksheet_Change(ByVal R As Range)
  If R.Address = "$B$4" Then [B9] = [B4] - [B6]
End Sub

et rajoute

Private Sub Tx_Change()
If Tx <> "" Then Feuil2.Cells([plage].Rows(0).Row, [plage].Columns(1).Column) = Val(Tx)
End Sub

 

[mcj1997]

Re : Msg box permettant un calcul

re

Heureusement que tu suis 😛; rajoute dans le module de la feuille Feuil1

Private Sub Worksheet_Change(ByVal R As Range)
  If R.Address = "$B$4" Then [B9] = [B4] - [B6]
End Sub

et rajoute

Merci impeccable,

En PJ fichier que j'ai modifié afin de pouvoir saisir les éléments du conjoint mais je n'arrive pas à trouver car il y a un bug mon msg box alimente toujours dans la colonne Monsieur et non conjoint et pour le conjoint les 10% ne fonctionnent pas.

Merci d'avance,

Bonne journée

 

[Si...]

Re : Msg box permettant un calcul

salut

tu as mal regardé l'image.
Dans ce cas, il est préférable de "cacher" les contenus (blancs sur blancs).
(Pas eu le temps de tester longuement)

 

[mcj1997]

Re : Msg box permettant un calcul

salut

tu as mal regardé l'image.
Dans ce cas, il est préférable de "cacher" les contenus (blancs sur blancs).
(Pas eu le temps de tester longuement)

Bonjour,

Pour cacher, j'ai effectivement mis un format conditionnel dans la case des 10 % (si case des frais réels > 0 alors police blanche dans la case des 10%.

Autrement je viens de tester et cela ne fonctionne pas lorsque je coche frais réels pour le conjoint cela vient alimenter les frais réels Monsieur et non Madame.

Je suppose que dans la feuille 2 il faudrait un autre tableau (le même) qui serait en lien avec le MS BOX 2 car actuellement les kms renseignés vont toujours dans la case I1 qu'ils soient rentrés dans le MS BOX 1 ou MS BOX 2.

Merci d'avance,