Formulaire T.V.A

[apdf1]

Re Bonjour

Voila dans mon formulaire quand je rentre mes montants de la facture je coche le montant de la TVA à l'aide des Option Bouttons j'aimerais que si je coche la TVA 5.5 % les valeurs quand j'enregistre se place dans la colonne K, si si je coche la TVA 19.6 % les valeurs quand j'enregistre se place dans la colonne J

Merci d'avance

Ci joint mon fichier
Max

 

[James007]

Re : Formulaire T.V.A

Bonjour,

Il te suffit de rajouter :

     If OptTva196.Value = True Then
        Me.TxtTva = Cells(c.Row, 10).Text
    Else
        Me.TxtTva = Cells(c.Row, 11).Text
    End If

A +
🙂

 

[apdf1]

Re : Formulaire T.V.A

Bonjour James007

Je te remercie mais sa ne marche pas ou je n'arrive pas ?
si tu peut me renvoyer mon fichier modifier je t'en remercie


@+
Max

 

[James007]

Re : Formulaire T.V.A

Re,

Concernant ta question, voici le code du rajout ...

Private Sub CommandButton2_Click()
' Ajouter
Dim i As Integer
i = Sheets("Feuil1").Cells(Cells.Rows.Count, "B").End(xlUp).Row + 1
With Sheets("Feuil1")
.Cells(i, 2) = TextBox1.Value 'nom
.Cells(i, 3) = TextBox3.Value 'Date
.Cells(i, 4) = TextBox4.Value 'N° Facture
.Cells(i, 5) = TextBox5.Value 'adresse
.Cells(i, 6) = TextBox6.Value 'CP
.Cells(i, 7) = TextBox7.Value 'ville
.Cells(i, 8) = TextBox8.Value 'tel
.Cells(i, 9) = TxtHT.Value    'HT
    If Me.OptTva196.Value = True Then
        .Cells(i, 10) = TxtTva.Value
    Else
        .Cells(i, 11)= TxtTva.Value
    End If
.Cells(i, 12) = TxtTTC.Value 'TTC
End With
End Sub

A+
🙂

 

[apdf1]

Re : Formulaire T.V.A

Re,

Je te remercie mais j'ai toujours un message d'erreur.

Erreur 1004 ;Impossible de definir la propriete Text de la classe Range

@+

Max

 

[James007]

Re : Formulaire T.V.A

Désolé,
En allant vite avec du copier-coller, une erreur s'est glissée ...
Je viens de corriger le code ci dessus ...

A +

 

[apdf1]

Re : Formulaire T.V.A

Re,

Oui super sa marche, le seul petit bémol ses qu'au lieu de s'enregistrer sur la première ligne qui est la 6 ligne il s'enregistre sur la dernière ligne je pense qu'il y a une petite modif à faire si sa te dérange pas trop.

Merci d'avance

Max

 

[apdf1]

Re : Formulaire T.V.A

Re

J'ai trouvé et modifier j'ai fait le code ci-dessous sa marche super bien je te remercie beaucoup.

' Ajouter
Private Sub CommandButton2_Click()
       With Sheets("Facture")
.Range("B6:M6").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromRightOrBelow
.Cells(6, 2) = TextBox1.Value 'nom
.Cells(6, 3) = TextBox3.Value 'Date
.Cells(6, 4) = TextBox4.Value 'N° Facture
.Cells(6, 5) = TextBox5.Value 'adresse
.Cells(6, 6) = TextBox6.Value 'CP
.Cells(6, 7) = TextBox7.Value 'ville
.Cells(6, 8) = TextBox8.Value 'tel
.Cells(6, 9) = TxtHT.Value 'H.T

   If Me.OptTva196.Value = True Then
        .Cells(6, 10) = TxtTva.Value
    Else
        .Cells(6, 11) = TxtTva.Value
    End If
.Cells(6, 13) = TxtTTC.Value 'TTC

End With

End Sub

Mais ou je n'arrive pas ses d'ajouter la TVA quelle soit de 5.5 ou 19.6 dans la cellule "L" de ma feuille qui est Total TVA Si tu peut m'aider sa m'arrangerais beaucoup.

Merci d'avance

Max

 

[phlaurent55]

Re : Formulaire T.V.A

Bonjour à tous,

Re,

Oui super sa marche, le seul petit bémol ses qu'au lieu de s'enregistrer sur la première ligne qui est la 6 ligne il s'enregistre sur la dernière ligne je pense qu'il y a une petite modif à faire si sa te dérange pas trop.

Merci d'avance

Max

Si on enregistre chaque fois sur la ligne 6 il va y avoir "écrasement" des données
voir fichier joint sur lequel les données affichées sont préalablement décalées vers le bas pour laisser la place libre en ligne 6 afin d'y mettre les nouvelles données
il subsiste cependant un petit problème côté TVA

j'ai peut-être mal compris le problème, mais à ma décharge, il faut avouer qu'il n'est pas trop bien expliqué

à+
Philippe

Edit: je vois que tu as trrouvé la même solution..................je n'avais pas réactualisé avant d'envoyer

 

[apdf1]

Re : Formulaire T.V.A

Bonsoir Philippe

Et merci d'avoir répondu c'est vraie qu'il est pas facile d'expliquer mais je vais essayé.

Quand j'enregistre je voudrais que le montant de la TVA si elle est en 19.6% s'enregistre dans la colonne 19.6% plus dans la colonne Total TVA si elle est en 5.5% s'enregistre dans la colonne 5.5% plus dans la colonne Total TVA

Merci et bonne soirée

Max

 

[James007]

Re : Formulaire T.V.A

Bonjour,

Est-ce-que actuellement ton programme calcule correctement les montants de TVA ...?

A+
🙂

 

[apdf1]

Re : Formulaire T.V.A

Bonjour,

Est-ce-que actuellement ton programme calcule correctement les montants de TVA ...?

A+
🙂

Bonjour,

Oui il n'y a pas de probléme
Max
@+