lancer un message si.

Version imprimable

09/06/2012, 14h38
grisan29

lancer un message si.

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
09/06/2012, 16h02
Daranc

Tu as compris ce que tu voulais.... moi pas :calim2:
pourrais tu éclaircir:mrgreen:
09/06/2012, 16h50
grisan29

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

le taux de tva se trouve dans une combobox de choix de tva:cry:oubli de précision:cry:

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
09/06/2012, 21h48
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:

=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
11/06/2012, 17h45
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

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:

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

13/06/2012, 13h44
grisan29
bonjour daranc:ccool:

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

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:oops:, mais helas les textbox se remplisse ensemble,
cordialement

Pascal
14/06/2012, 22h02
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 :calim2: c'est quoi ?
15/06/2012, 15h58
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

C'est ça que tu veux

Code:

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

15/06/2012, 19h01
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

comme ceci

Code:

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

16/06/2012, 13h59
grisan29
bonjour daranc:ccool:
je revenais juste te dire que j'avais presque trouvé la solution par
Code:

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 :ccool:réponds a ma question car en fait je n'ajoutais pas l'opération sur la 2 eme ligne de code:cry:
MERCI pour ta solution:ccool:
-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:

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
16/06/2012, 16h21
Daranc

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

Code:

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 :lol:
16/06/2012, 16h29
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

effectivement un détail lorsque qu'un TB est vide CDbl() retourne une erreur
:mouarf:
heureusement rien n'est perdu

Code:

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

RESOLU Merci a DARANC

:ccool:bonjour Daranc:ccool:

MERCI:ccool: ta solution est parfaite8-) en ayant fait une légère modif donc voici

Code:

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