Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Formulaire T.V.A

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion apdf1
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
A

apdf1

XLDnaute Impliqué
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
 

Pièces jointes

Trier par date Trier par votes
Re : Formulaire T.V.A

Re,

Concernant ta question, voici le code du rajout ...
Code: 
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+
🙂
 
Dernière édition:
Vote positif 0 Vote négatif
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
 
Vote positif 0 Vote négatif
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.


Code: 
' 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
 
Vote positif 0 Vote négatif
Re : Formulaire T.V.A

Bonjour à tous,
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
 

Pièces jointes

Dernière édition:
Vote positif 0 Vote négatif
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
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

N
  • Question Question
Microsoft 365 Aide ajustement macro 😭
Réponses
7
Affichages
649
TooFatBoy
L
  • Résolu(e)
Microsoft 365 Vba formulaire en bogage avec les ongles masqués
2 3
Réponses
30
Affichages
683
fanfan38
K
  • Question Question
Microsoft 365 modifier les valeurs de mon formulaire
Réponses
5
Affichages
242
kingbeck
K
S
  • Question Question
XL 2016 Problème ajout client et modification code postale dans gestion de stock/clients/factures
Réponses
8
Affichages
624
Piment
P
C
  • Résolu(e)
XL 2019 Evénement MouseMove sur formulaire
Réponses
13
Affichages
878
ceralpes
C
C
  • Résolu(e)
XL 2019 Problème de transferts de données formulaire à feuille
Réponses
5
Affichages
261
ceralpes
C
D
  • Résolu(e)
Microsoft 365 Assistance pour optimisation d'un code VBA qui ne fonctionne pas comme souhaité
2
Réponses
21
Affichages
1 K
desto
D
  • Résolu(e)
XL 2021 Problème à l'utilisation calendrier de Patricktoulon.
Réponses
6
Affichages
764
SAMUAL_2023
S
A
  • Question Question
Microsoft 365 Macro pour recherche de cellules entre 2 fichiers Excel
Réponses
7
Affichages
532
AtTheOne
  • Question Question
XL 2021 Fonction RechercheX dispo.. mais en fait non...
Réponses
9
Affichages
1 K
djidji59430
C
  • Résolu(e)
Microsoft 365 Sommeprod avec codage texte
Réponses
11
Affichages
1 K
mapomme
A
  • Question Question
XL 2016 MFC avec plusieurs conditions
2
Réponses
25
Affichages
1 K
ALVE
A
  • Question Question
XL 2019 Date et mise en forme conditionnelle
Réponses
5
Affichages
912
fanfan38
  • Question Question
XL 2016 copie de donnees horizontale en verticale
2
Réponses
25
Affichages
984
job75
M
  • Résolu(e)
XL 2019 saisie sur la première ligne vide depuis un formulaire
Réponses
8
Affichages
433
Mimi1952
M
B
  • Question Question
XL 2016 VBA formulaire incrémenter un N° de facture selon l'année(mais dates sur deux colonnes)
Réponses
4
Affichages
818
badduke
B
J
  • Question Question
XL 2021 unique valeur par colonne - croise dynamique ?
Réponses
3
Affichages
255
Hecatonchire
H
M
  • Question Question
Microsoft 365 Fonction si et rechercheX
Réponses
1
Affichages
328
Aya_flo
A
  • Question Question
XL 2016 EXCEL 2016 MFC sur deux colonnes excel
Réponses
7
Affichages
551
goube
C
  • Question Question
XL pour MAC Remplir une case en fonction d'une autre
Réponses
3
Affichages
533
sylvanu
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…