Ht VS ttc

Bonjour,

Merci pour votre forum.

En pleine reconversion professionnelle et habitué à utiliser davantage Photoshop, Illustrator qu'Excel ou Word, je me retrouve pour le coup bien embêté pour un problème dont je ne parviens pas à trouver la solution malgré mes très nombreuses recherches et essaie avec différentes formules.

En pleine reconversion pro donc, je suis en train de réaliser un prévisionnel afin d'établir mon besoin de financement.

La problématique me semble pourtant très simple...

En simplifiant, j'ai 2 cellules, A1 et B1. Respectivement un Prix Hors Taxe et un Toutes Taxes.

Je souhaiterais lier une formule à chaque de ces cellules de manière à ce qu'elles restent vides, mais se remplissent lorsque je rentre une des 2 valeurs. En informant le HT, le TTC serait calculé et réciproquement.

Quelle que soit la formule essayée, un panneau triangulaire m'indiquant une "référence circulaire" est affiché.

Même si au final, la formule fonctionne lorsque je rentre une donnée dans l'une des 2 cellules, le reste du tableau continue à être affecté par cette erreur et n'opère donc pas les calculs.

Auriez-vous une solution pour ce "cas d'école" s'il vous plaît .... je désespère...!

Merci d'avance!

William.

Bonsoir RedWorm,

Juste une idée dans le fichier joint.

Cdt

Henri

Bonjour et bienvenue sur le forum

Pour t'aider, il faudrait voir ton fichier et donc que tu le joignes à ton message.

A te relire.

Bye !

AFEH a écrit :

Bonsoir RedWorm,

Juste une idée dans le fichier joint.

Cdt

Henri

@AFEH

Merci Henri mais cela ne semble pas fonctionner...

Voici en pj la fenêtre d'erreur qui apparait ainsi que celle lorsque je clic sur "deboguer".!

gmb a écrit :

Bonjour et bienvenue sur le forum

Pour t'aider, il faudrait voir ton fichier et donc que tu le joignes à ton message.

A te relire.

Bye !

@GMB

Ce n'est pas le fichier de travail mais celui qui représente la problématique!

Merci!

@ GMB

Mince je crois que j'ai cafouiller...!

Voici le fichier en question...!

Re Bonsoir,

Effectivement avec ce fichier ça ira mieux.

Henri

Bonjour,

Une autre proposition sur le même principe à étudier.

Cdlt.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Const tx_TVA As Double = 0.2

    If Not Intersect(Target, Me.ListObjects(1).DataBodyRange) Is Nothing Then
        If Target.Column > 2 Then Exit Sub
        Cancel = True
        Select Case Target.Column
            Case 1
                With Target
                    .Offset(, 1).Value = Target.Value * (1 + tx_TVA)
                    .Offset(, 2).Value = Target.Value * tx_TVA
                End With
            Case 2
                With Target
                    .Offset(, -1).Value = Target.Value / (1 + tx_TVA)
                    .Offset(, 1).Value = Target.Value / (1 + tx_TVA) * tx_TVA
                End With
        End Select
    End If

End Sub

AFEH a écrit :

Re Bonsoir,

Effectivement avec ce fichier ça ira mieux.

Henri

Merci Henri, cela fonctionne effectivement..! Merci!

de toute façon, il faut impérativement passer par les macros pour ce genre de chose n'est-ce pas?

Jean-Eric a écrit :

Bonjour,

Une autre proposition sur le même principe à étudier.

Cdlt.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Const tx_TVA As Double = 0.2

    If Not Intersect(Target, Me.ListObjects(1).DataBodyRange) Is Nothing Then
        If Target.Column > 2 Then Exit Sub
        Cancel = True
        Select Case Target.Column
            Case 1
                With Target
                    .Offset(, 1).Value = Target.Value * (1 + tx_TVA)
                    .Offset(, 2).Value = Target.Value * tx_TVA
                End With
            Case 2
                With Target
                    .Offset(, -1).Value = Target.Value / (1 + tx_TVA)
                    .Offset(, 1).Value = Target.Value / (1 + tx_TVA) * tx_TVA
                End With
        End Select
    End If

End Sub

Ton fichier ne fonctionne pas..! il y avait une manipe à faire?? (désolé je ne connais que les grandes bases en Excel... )

Jean-Eric a écrit :

Bonjour,

Une autre proposition sur le même principe à étudier.

Cdlt.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Const tx_TVA As Double = 0.2

    If Not Intersect(Target, Me.ListObjects(1).DataBodyRange) Is Nothing Then
        If Target.Column > 2 Then Exit Sub
        Cancel = True
        Select Case Target.Column
            Case 1
                With Target
                    .Offset(, 1).Value = Target.Value * (1 + tx_TVA)
                    .Offset(, 2).Value = Target.Value * tx_TVA
                End With
            Case 2
                With Target
                    .Offset(, -1).Value = Target.Value / (1 + tx_TVA)
                    .Offset(, 1).Value = Target.Value / (1 + tx_TVA) * tx_TVA
                End With
        End Select
    End If

End Sub

Ha si c'est bon ça fonctionne aussi..! Par contre j'avoue que les menu déroulant m'embêtent un peu..!

Merci!

Bonjour,

de toute façon, il faut impérativement passer par les macros pour ce genre de chose n'est-ce pas?

Pas forcément. Mais il te faudra 4 colonnes au lieu de 2.

eric

eriiic a écrit :

Bonjour,

de toute façon, il faut impérativement passer par les macros pour ce genre de chose n'est-ce pas?

Pas forcément. Mais il te faudra 4 colonnes au lieu de 2.

eric

Pourriez-vous me l'illustrer sur le fichier mis à disposition plus haut ou un de votre création s'il vous plaît car je ne vois pas comment faire.. ..!

Merci !

2 colonnes pour la saisie où tu remplis l'une ou l'autre, et 2 pour la restitution où tu utilises l'une ou l'autre formule selon la saisie.

Avec qq tests supplémentaires au début pour n'afficher le résultat que si saisie valide.

eric

Bonjour RedWorm et eriiic,

Nouvelle version avec formules en N2 et 02 (feuille protégée sans mot de passe)

Saisir les valeurs en L2 ou M2 pour le calcul.

Cdt

Henri

Bonjour Henri et Eriiic,

Je vous remercie beaucoup pour vos solutions qui fonctionnent toutes les 2 très bien. Je vais voir laquelle je vais intégrer dans mon tableau sans trop mettre de désordre..!

Un très grand merci à vous.

Eriiiic, excuse moi du MP qui est redondant à ta réponse, je n'avais juste pas vue qu'il y avait une 2éme page qui contenait vos propas..!

Mille mercis..!

Une excel-lente continuation....(oui blague vaseuse j'avoue..).

Cordialement.

(Ne pouvant cocher vos 2 messages comme "résolu", je coche celui d'Henri car il a été le premier à répondre!)

Encore merci à vous 2!

Bah, il ne m'a pas dérangé beaucoup puisque je ne l'avais pas vu

Tant mieux..!

Sinon dernière question.... il y a une possibilité pour que la cellule reste vide tant qu'aucune valeur n'y est informée?? Là ce sont des 0,00 qui apparaissent partout sur mon tableau!!

Bon au pire ce n'est pas grave mais clairement moins lisible..!

Merci encore!!

Bonsoir RedWorm,

Juste une petite modif à faire.

Cliquer sur Fichier (en haut à gauche) un menu apparaît.

Cliquer sur Options puis sur options avancées.

Dans le paragraphe "Afficher les options pour cette feuille de calcul"

Décocher "Afficher un zéro dans les cellules qui ont une valeur nulle".

Voilà

Cdt Henri

Merci Henri!

C'est bon c'est ok génial!

Bonne continuation!