Discussion :

[grisan29]

bonjour a vous tous

lorsque que je lance l'impression d'un devis a 7 % ou s'il y a les 2 taux et pas à 19.6% seul, comment puis je faire pour qu'un message de demande si je veux imprimer une attestation apparaisse et si ok que l'impression se lance en 2 exemplaire en sachant que la feuille attestation se trouve dans le meme classeur
merci d'avance pour vos solutions

Pascal

[Daranc]

Tu as compris ce que tu voulais.... moi pas
pourrais tu éclaircir

[grisan29]

bonjour daranc
merci, pour essayer d'éclaircir ma demande:

le taux de tva se trouve dans une combobox de choix de tvaoubli de précision

donc quand je lance l'impression d'un devis ,si tva 7% est affiché
-je voudrais qu'un message s'affiche en meme temps me demandant si je veux imprimer 2 attestations de tva réduite
-si tva 19.6% est affiché pas d'impression
-mais les 2 tva 7%et 19.6% sont possible d'etre sur la meme feuille comment faire sinon repérer la liste sur la feuille????

voila si le nuage est passé tant mieux

Pascal

[Daranc]

bon continuons dans la précision (et la bonne humeur)
donc si j'ai bien compris
tu as une colonne de choix sur une facture ( ou devis )
ces cellules de choix sont remplies avec un taux de TVA 7% ou 19%

mettons que cette plage s' étende sur les cellules de G8 à G20 ( sans rapport avec la mondialisation)
en z1

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=NB.SI(G8:G20;"=7%")

ceci permet de mettre une cellule avec le texte d'alerte en format conditionnelle

ou par une macro événementielle sur la valeur de cette cellule (>0) tu ouvre un msgbox avec bouton oui non et un traitement pour l'impression
autrement si tu as un bouton imprimer tu met le teste de la cellule dans le code du bouton

[grisan29]

bonjour daranc
pour l'instant il n'y a pas de bouton pour imprimer, le mieux que je puisse faire est de joindre un fichier exemple a ce post
de toute facon avant impression il faut que je résolve un autre problème concernant les taux de tva
donc le calcul se fait tout seul au fur et a mesure des données dans la listview, mais je voudrais également pouvoir inscrire la valeur des tva en textbox adéquat afin de pouvoir faire le calcul tva global apres et le total ensuite, car le bouton valider envoi les données de la listview sur la feuil1 qui sera plus tard la feuille facture

cordialement

Pascal

[Daranc]

Vu !
ce que je te proposes c'est d'ajouter un optionbutton
avec propriété visible à false
et de modifier la commande ajouter comme suit

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Private Sub ajout_Click()
Dim t
'juste ça la dessous
If cbotva.Value = 7 Then OptionButton1.Visible = True
'après le programme reprends
With UserForm1.ListView1
    .listitems.Add , , UserForm1.TextBox2.Value

pas grand chose en fait
la valeur de l'optionbutton et donc soit à zéro soit à un ce qui te permet de récupéré un oui ou un non pour l'impression
la propriété optionbutton.visible est initialisée à False le bouton est donc caché
dés qu'une entrée TVA est validé à 7 la propriété passe à True et le reste durant tout le traitement

[grisan29]

bonjour daranc

Merci pour ta solution, j'ai fait ceci mais petit problème

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
If cbotva.Value = 7 Then Me.Texbox17.Value = Me.TextBox8.Value * 0.07
 If cbotva.Value = 19.6 Then Me.Textbox18.Value = Me.TextBox8.Value * 0.196

pure copie de ce que tu a fait, mais helas les textbox se remplisse ensemble,
cordialement



Pascal

[Daranc]

euh ?
il ne s'agit que d'ajouter un optionbutton et de mettre sa propriété visible à true ou à false
ceci n'intervient sur aucun textbox, le reste du programme n'est pas modifié
tu peut cocher le optionbutton dont la valeur passe à true ou le laisser decoché et sa valeur reste à false ( valeur par défaut)
tu n'as qu'a récupérer cette valeur pour imprimer ou ne pas imprimer
le problème des textbox qui se remplissent ensemble c'est quoi ?

[grisan29]

bonjour daranc

Merci pour tout
le probleme des textbox c'est qu'avec le code donne au post précédent les 2 textbox 17 et 18 se remplisse en meme temps et différemment
je voudrais que lorsque c'est le taux 7 qui est choisi dans cbotva, que le calcul de tva se fasse en textbox17 et en prenant en compte tous les articles qui seront inscrit sous la tva 7
par exemple s'il y a 13 lignes de remplies avec le taux 7 que chaque valeur de tva soit aditionner pour etre inscrit en textbox17
et pareil pour le taux 19.6 dans la cbotva mais le résultat en textbox18
puis la somme des 2 textbox 17 et 18 s'inscrive en textbox13
en fait c'est un peu sur le principe de somme qui se fait en textbox12 mais avec la contrainte de tva différente qui est inscrite dans la cbotva
en sachant que parfois j'ai des devis a faire avec les 2 taux de tva


cordialement

Pascal

[Daranc]

C'est ça que tu veux

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Private Sub ajout_Click()
Dim t
' à ajouter au code primitif ___________________________
If cbotva.Value = 7 Then
OptionButton1.Visible = True
If TextBox17.Value = "" Then
TextBox17.Value = TextBox8.Value * Txt_qté_vente.Value
Else
TextBox17.Value = CDbl(TextBox17.Value) + TextBox8.Value * Txt_qté_vente.Value
End If
Else
If TextBox18.Value = "" Then
TextBox18.Value = TextBox8.Value * Txt_qté_vente.Value
Else
TextBox18.Value = CDbl(TextBox18.Value) + TextBox8.Value * Txt_qté_vente.Value
End If
End If
' fin de l'ajout ____________________________________________
With UserForm1.ListView1

[grisan29]

bonjour daranc
un grand merci mais ce n'est pas tout a fait cela , il faudrai que ce soit la tva qui soit extraite et miseen textbox 17 où 18 suivant le choix de cbotva
je vais m'y pencher ce soir et je reviens demain apres midi

cordialement

Pascal

[Daranc]

comme ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
If cbotva.Value = 7 Then
OptionButton1.Visible = True
If TextBox17.Value = "" Then
TextBox17.Value = TextBox8.Value * Txt_qté_vente.Value * 0.07
Else
TextBox17.Value = CDbl(TextBox17.Value) + TextBox8.Value * Txt_qté_vente.Value * 0.07
End If
Else
If TextBox18.Value = "" Then
TextBox18.Value = TextBox8.Value * Txt_qté_vente.Value * 0.196
Else
TextBox18.Value = CDbl(TextBox18.Value) + TextBox8.Value * Txt_qté_vente.Value * 0.196
End If
End If

[grisan29]

bonjour daranc
je revenais juste te dire que j'avais presque trouvé la solution par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
    If TextBox17.Value = "" Then
    TextBox17.Value = (TextBox8 * Txt_qté_vente.Value) * 0.07
Else
    TextBox17.Value = CDbl(TextBox17.Value + TextBox8.Value * Txt_qté_vente.Value)
    End If

mais cela ne fonctionnait pas correctement, mais ta réponse réponds a ma question car en fait je n'ajoutais pas l'opération sur la 2 eme ligne de code
MERCI pour ta solution
-autre
autrement j'ai essayer d'ajouter la somme des 2 textbox17 et 18 en textbox13 mais il y imcompatibilité de type (erreur13)en faisant

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

TextBox13.Value = CDbl(TextBox17.Value + TextBox18.Value)

quand je change le taux de tva cette ligne se met en jaune, sans changer de valeur de tva cela va bien
cordialement


Pascal

[Daranc]

Normal que tu aies une erreur tu additionnes deux textes ( textbox17.value = 1 texte ; textbox18.value=1 texte)
l'instruction correcte:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

TextBox13.Value = CDbl(TextBox17.Value)+CDbl(TextBox18.Value)

tu transformes les numéraires en format texte en nombres
à noter que le textbox13 sera rempli par un nombre écrit au format Texte pour faire des sommes avec textbox13 il faudra aussi le transformer en "CDbl(TB13"
je n'ai pas regardé la suite du code si c'est juste à poser sur la feuille ce n'est pas gênant

[grisan29]

bonjour Daranc

ta solution n'a pas changer le problème imcompatibilé de type et erreur 13 et ligne jaune
Merci quand meme

Pascal

[Daranc]

effectivement un détail lorsque qu'un TB est vide CDbl() retourne une erreur

heureusement rien n'est perdu

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
Dim t
Dim tva7 As Double
' a partir d'ici______________________________
Dim tva196 As Double
If cbotva.Value = 7 Then
OptionButton1.Visible = True
If TextBox17.Value = "" Then
TextBox17.Value = TextBox8.Value * Txt_qté_vente.Value * 0.07
Else
TextBox17.Value = CDbl(TextBox17.Value) + TextBox8.Value * Txt_qté_vente.Value * 0.07
End If
Else
If TextBox18.Value = "" Then
TextBox18.Value = TextBox8.Value * Txt_qté_vente.Value * 0.196
Else
TextBox18.Value = CDbl(TextBox18.Value) + TextBox8.Value * Txt_qté_vente.Value * 0.196
End If
End If
If TextBox17.Value = "" Then
tva7 = 0
Else
tva7 = CDbl(TextBox17.Value)
End If
If TextBox17.Value = "" Then
tva196 = 0
Else
tva196 = CDbl(TextBox18.Value)
End If
TextBox13.Value = tva7 + tva196
' juque là__________________________________________
With UserForm1.ListView1

[grisan29]

bonjour Daranc

MERCI ta solution est parfaite en ayant fait une légère modif donc voici

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
' a partir d'ici______________________________
Dim tva196 As Double
If cbotva.Value = 7 Then
OptionButton1.Visible = True
If TextBox17.Value = "" Then
TextBox17.Value = TextBox8.Value * Txt_qté_vente.Value * 0.07
Else
TextBox17.Value = CDbl(TextBox17.Value) + TextBox8.Value * Txt_qté_vente.Value * 0.07
End If
Else
If TextBox18.Value = "" Then
TextBox18.Value = TextBox8.Value * Txt_qté_vente.Value * 0.196
Else
TextBox18.Value = CDbl(TextBox18.Value) + TextBox8.Value * Txt_qté_vente.Value * 0.196
End If
End If
If TextBox17.Value = "" Then
tva7 = 0
Else
tva7 = CDbl(TextBox17.Value)
End If
'========================================
'modifié cette ligne de 17 a 18 et ok
If TextBox18.Value = "" Then
'==================================
tva196 = 0
Else
tva196 = CDbl(TextBox18.Value)
End If
TextBox13.Value = tva7 + tva196

cordialement

Pascal