XL 2019 Question pratique calcul logique

[menjoe]

Bonjour,

Sur excel je souhaite faire un calcul dans un tableau et pouvoir modifier la valeur du résulta ce qui modifie les autres résultats sans supprimer la formule..
c'est pas très clair je vais essayer d'expliquer:

En gros je veux mettre en relation ma cadence de pose avec la quantité de pose,

Par exemple pour des plinthe:
Case A1 : 0.05h Case B1 : 1ml
Case A2 : 1h Case B2 : 20ml

Je veux entre autre pouvoir donné une cadence de pose de 0.05 h/ml
ce qui me donne pour 1 heure 20 ml de plinthe posé
avec le calcul suivant : 1h/0.05
Et dans la case A1 je pourrais mettre 1h/20ml = 0.05h/ml

mais je veux pouvoir changer la valeur de cadence pour modifié la case avec la quantité total,
et modifié la case de quantité total pour avoir ma cadence,

J'espère que c'est plus clair comme ça,

 

[sylvanu]

Bonjour Joe et bienvenu sur XLD,
Vous n'auriez pas un petit fichier test ? Ce serait plus simple pour comprendre vos besoins, surtout s'il y a un attendu en exemple.

 

[menjoe]

Bonjour Joe et bienvenu sur XLD,
Vous n'auriez pas un petit fichier test ? Ce serait plus simple pour comprendre vos besoins, surtout s'il y a un attendu en exemple.

Bonjour,

ci joint mon fichier de démo,

En vert les cases que je peux modifié et en jaune les cases avec des formules que je ne peux modifier sans supprimer la formule,

le but est d'avoir 1 seul tableau où je puisse rentrer les valeurs que je souhaite sans supprimer les formules
et quand je change une valeur ça refait les calculs pour le reste

 

[sylvanu]

Re,
Une cellule ne peut pas contenir une valeur et/ou une formule, il faut choisir.
En PJ j'ai opté pour une macro VBA.
Si on modifie là où il y a un "1", le "1" est restitué car invariable.
Si on change cadence alors total heire est remis à jour et vice versa.
J'ai aussi conservé les couleurs, bleu pour la cellule modifiée, jaune pour la cellule calculée.

Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Fin: If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, [C3:D4]) Is Nothing Then
         Application.ScreenUpdating = False
         Application.EnableEvents = False
         If Target.Address = "$D$3" Then [D3] = 1
         If Target.Address = "$C$4" Then [C4] = 1
         If Target.Address = "$C$3" Then
            [D4] = [D3] / [C3]
            [C3].Interior.Color = RGB(200, 255, 255)
            [D4].Interior.Color = RGB(255, 240, 200)
         End If
         If Target.Address = "$D$4" Then
            [C3] = [C4] / [D4]
            [D4].Interior.Color = RGB(200, 255, 255)
            [C3].Interior.Color = RGB(255, 240, 200)
        End If
    End If
Fin:
Application.ScreenUpdating = True
Application.EnableEvents = True
End Sub

 

[menjoe]

Re,
Une cellule ne peut pas contenir une valeur et/ou une formule, il faut choisir.
En PJ j'ai opté pour une macro VBA.
Si on modifie là où il y a un "1", le "1" est restitué car invariable.
Si on change cadence alors total heire est remis à jour et vice versa.
J'ai aussi conservé les couleurs, bleu pour la cellule modifiée, jaune pour la cellule calculée.

Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Fin: If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, [C3:D4]) Is Nothing Then
         Application.ScreenUpdating = False
         Application.EnableEvents = False
         If Target.Address = "$D$3" Then [D3] = 1
         If Target.Address = "$C$4" Then [C4] = 1
         If Target.Address = "$C$3" Then
            [D4] = [D3] / [C3]
            [C3].Interior.Color = RGB(200, 255, 255)
            [D4].Interior.Color = RGB(255, 240, 200)
         End If
         If Target.Address = "$D$4" Then
            [C3] = [C4] / [D4]
            [D4].Interior.Color = RGB(200, 255, 255)
            [C3].Interior.Color = RGB(255, 240, 200)
        End If
    End If
Fin:
Application.ScreenUpdating = True
Application.EnableEvents = True
End Sub

Très bien je vous remercie pour le temps accorder à ma demande, je souhaitais connaitre s'il y avait une option de base dans excel, ce n'est pas grave je modifierai la formule en fonction de ce que je recherche,
Encore merci et bonne journée

 

[sylvanu]

Re,
Pourquoi, vous refusez le VBA ?
Dans ce cas faites deux tableau, un où vous modifiez la cadence, l'autre où vous modifiez le total.

 

[menjoe]

Re,
Pourquoi, vous refusez le VBA ?
Dans ce cas faites deux tableau, un où vous modifiez la cadence, l'autre où vous modifiez le total.

Ce n'est pas quelque chose que je maitrise, je n'ai jamais utilisé,
Je voulais juste savoir s'il était possible de faire ce que j'ai demandé,
les tableau n'étaient que des exemples, c'est pour des calculs dans mon fichier de devis,
En plus la formule ne sera jamais au même endroit donc compliqué pour pas grand-chose finalement
c'est pas pour les 5 sec que je perd à taper la formule dans un sens où dans l'autre,

Je vous remercie encore pour vos explications