Si je choisi un type de soirée et que je met sois un accompte, soit une
réduction ou même les deux et que je veuille modifier le type de soirée les
calculs me donnent des valeur qui n'on rien a voir.
Y'a t'il moyen d'y remedier ?
Le deuxième :
Cela est pour la valeur de l'accomte.
Pour le moment je passe par un ComboBox.Additem, mais cela serait il
possible de faire en sorte que l'accompte ne dépasse pas la valeur du prix
de départ.
Voice les codes :
Dans un module :
Option Explicit
Public TypeDeSoiree As Byte
Dans l'userform :
Option Explicit
Dim Plage, PlagePrix As Range
Dim A, B, C, D As Long
Dim WSDonnees, WSDonneesPrix As Worksheet
Dim PlageTypeDeSoirée As String
Dim L As Integer 'Déclaration de variable "L" pour connaitre la Ligne Numéro
Private Sub cbxAccompteEuros_Change()
On Error Resume Next
If cbxAccompteEuros.Text = "" Then
txtAccompteFrancs = ""
End If
If cbxAccompteEuros = "" Then
lblAccompteFrancs.ForeColor = &H80000008
lblAccompteEuros.ForeColor = &H80000008
Else
lblAccompteFrancs.ForeColor = &HFF0000
lblAccompteEuros.ForeColor = &HFF0000
End If
If cbxAccompteEuros <> "" Then
txtSoldeEuros.Value = CDbl(txtPrixEuros) - CDbl(cbxAccompteEuros)
Else
txtSoldeEuros.Value = CDbl(txtPrixEuros)
End If
If cbxAccompteEuros <> "" Then
txtAccompteFrancs = CDbl(cbxAccompteEuros) * 6.55957
txtSoldeFrancs.Value = CDbl(txtPrixFrancs) - CDbl(txtAccompteFrancs)
Else
txtSoldeFrancs.Value = CDbl(txtPrixFrancs)
End If
lblAccompteEuros.Visible = True
txtAccompteFrancs.Visible = True
End Sub
Private Sub cbxReduction_Change()
On Error Resume Next
If cbxReduction = "" Then
txtMontantRemiseEuros = ""
txtMontantRemiseFrancs = ""
lblMontantRemiseEuros.Visible = False
lblMontantRemiseFrancs.Visible = False
txtMontantRemiseEuros.Visible = False
txtMontantRemiseFrancs.Visible = False
Else
lblMontantRemiseEuros.Visible = True
lblMontantRemiseFrancs.Visible = True
txtMontantRemiseEuros.Visible = True
txtMontantRemiseFrancs.Visible = True
End If
txtMontantRemiseEuros = CDbl(txtPrixEuros) * CDbl(cbxReduction) / 100
txtMontantRemiseFrancs = CDbl(txtMontantRemiseEuros) * 6.55957
If cbxReduction <> "" Then
txtSoldeEuros = CDbl(txtPrixEuros) - CDbl(cbxAccompteEuros) -
CDbl(txtMontantRemiseEuros)
Else
txtSoldeEuros.Value = CDbl(txtPrixEuros) - CDbl(cbxAccompteEuros)
End If
If cbxReduction <> "" Then
txtSoldeFrancs = CDbl(txtPrixFrancs) - CDbl(txtAccompteFrancs) -
CDbl(txtMontantRemiseFrancs)
Else
txtSoldeFrancs.Value = CDbl(txtPrixFrancs) - CDbl(cbxAccompteEuros)
End If
If cbxAccompteEuros <> "" Then
txtSoldeEuros = CDbl(txtPrixEuros) - CDbl(cbxAccompteEuros) -
CDbl(txtMontantRemiseEuros)
Else
txtSoldeEuros.Value = CDbl(txtPrixEuros) - CDbl(txtMontantRemiseEuros)
End If
If cbxAccompteEuros <> "" Then
txtSoldeFrancs = CDbl(txtPrixFrancs) - CDbl(txtAccompteFrancs) -
CDbl(txtMontantRemiseFrancs)
Else
txtSoldeFrancs.Value = CDbl(txtPrixFrancs) - CDbl(txtMontantRemiseFrancs)
End If
If txtSoldeFrancs > 0 Then
lblSoldeFrancs.ForeColor = &HFF&
lblSoldeEuros.ForeColor = &HFF&
Else
lblSoldeFrancs.ForeColor = &H80000008
lblSoldeEuros.ForeColor = &H80000008
End If
End Sub
Private Sub txtAccompteEuros_Change()
On Error Resume Next
txtAccompteEuros = Format(txtAccompteEuros, "##,##0.00")
txtSoldeEuros = CDbl(txtPrixEuros) - CDbl(txtAccompteEuros)
End Sub
Private Sub txtPrixEuros_Change()
On Error Resume Next
If txtPrixEuros <> "" Then
txtPrixFrancs = CDbl(txtPrixEuros) * 6.55957
If cbxAccompteEuros <> "" Then
txtSoldeEuros.Value = CDbl(txtPrixEuros) - CDbl(cbxAccompteEuros)
Else
txtSoldeEuros.Value = CDbl(txtPrixEuros)
End If
If cbxReduction <> "" Then
txtSoldeFrancs.Value = CDbl(txtPrixFrancs) - CDbl(txtAccompteFrancs) -
CDbl(txtMontantRemiseEuros)
Else
txtSoldeFrancs.Value = CDbl(txtPrixFrancs)
End If
Else
txtPrixEuros = ""
If cbxAccompteEuros <> "" Then
txtSoldeEuros.Value = -CDbl(cbxAccompteEuros)
Else
txtSoldeEuros.Value = ""
End If
If cbxAccompteEuros <> "" Then
txtSoldeFrancs.Value = -CDbl(txtAccompteFrancs)
Else
txtSoldeFrancs.Value = ""
End If
End Sub
Private Sub txtSoldeEuros_Change()
On Error Resume Next
txtSoldeEuros = Format(txtSoldeEuros, "##,##0.00")
End Sub
Private Sub txtNomDuMarie_Change()
txtNomDuMarie.Value = UCase(txtNomDuMarie.Value)
End Sub
Private Sub txtPrenomDuMarie_Change()
txtPrenomDuMarie = Application.Proper(txtPrenomDuMarie)
End Sub
Private Sub txtNomDeLaMariee_Change()
txtNomDeLaMariee.Value = UCase(txtNomDeLaMariee.Value)
End Sub
Private Sub txtPrenomDeLaMariee_Change()
txtPrenomDeLaMariee = Application.Proper(txtPrenomDeLaMariee)
End Sub
Private Sub UserForm_Initialize()
Dim Ctrl As Control
'Ici je vide les Controls
For Each Ctrl In Me.Controls
If TypeOf Ctrl Is MSForms.TextBox Or TypeOf Ctrl Is MSForms.ComboBox Then
Ctrl = ""
End If
Next Ctrl
' Choix des Organisateurs, Nom des salles, Traiteurs, Type de soirée
Set WSDonneesPrix = Worksheets("Prix")
With WSDonneesPrix
PlageTypeDeSoirée = .Range("B4:B" & .Range("B2000").End(xlUp).Row).Address
End With
cbxTypeDeSoiree.RowSource = "Prix!" & PlageTypeDeSoirée
' Choix de l'accompt
cbxAccompteEuros.AddItem "100,00"
cbxAccompteEuros.AddItem "200,00"
cbxAccompteEuros.AddItem "300,00"
Si je choisi un type de soirée et que je met sois un accompte, soit une
réduction ou même les deux et que je veuille modifier le type de soirée les
calculs me donnent des valeur qui n'on rien a voir.
Y'a t'il moyen d'y remedier ?
Le deuxième :
Cela est pour la valeur de l'accomte.
Pour le moment je passe par un ComboBox.Additem, mais cela serait il
possible de faire en sorte que l'accompte ne dépasse pas la valeur du prix
de départ.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Jacques
Bonjour
J'ai bien tout fait pour venir a bout de cette procédure, mais je n'y arrive pas.
Y'a t-il une solution ?
Merci Jacques "Jacques" a écrit dans le message de news: 43610baf$0$17199$
Salut a toutes et tous
Donc j'ai deux petits soucie :
Le premier :
Si je choisi un type de soirée et que je met sois un accompte, soit une réduction ou même les deux et que je veuille modifier le type de soirée les calculs me donnent des valeur qui n'on rien a voir.
Y'a t'il moyen d'y remedier ?
Le deuxième :
Cela est pour la valeur de l'accomte.
Pour le moment je passe par un ComboBox.Additem, mais cela serait il possible de faire en sorte que l'accompte ne dépasse pas la valeur du prix de départ.
Voice les codes :
Dans un module :
Option Explicit Public TypeDeSoiree As Byte
Dans l'userform :
Option Explicit
Dim Plage, PlagePrix As Range Dim A, B, C, D As Long Dim WSDonnees, WSDonneesPrix As Worksheet Dim PlageTypeDeSoirée As String Dim L As Integer 'Déclaration de variable "L" pour connaitre la Ligne Numéro
Private Sub cbxAccompteEuros_Change()
On Error Resume Next
If cbxAccompteEuros.Text = "" Then txtAccompteFrancs = "" End If If cbxAccompteEuros = "" Then lblAccompteFrancs.ForeColor = &H80000008 lblAccompteEuros.ForeColor = &H80000008 Else lblAccompteFrancs.ForeColor = &HFF0000 lblAccompteEuros.ForeColor = &HFF0000 End If If cbxAccompteEuros <> "" Then txtSoldeEuros.Value = CDbl(txtPrixEuros) - CDbl(cbxAccompteEuros) Else txtSoldeEuros.Value = CDbl(txtPrixEuros) End If
If cbxAccompteEuros <> "" Then txtAccompteFrancs = CDbl(cbxAccompteEuros) * 6.55957 txtSoldeFrancs.Value = CDbl(txtPrixFrancs) - CDbl(txtAccompteFrancs) Else txtSoldeFrancs.Value = CDbl(txtPrixFrancs) End If
lblAccompteEuros.Visible = True txtAccompteFrancs.Visible = True End Sub
Private Sub cbxReduction_Change() On Error Resume Next If cbxReduction = "" Then txtMontantRemiseEuros = "" txtMontantRemiseFrancs = "" lblMontantRemiseEuros.Visible = False lblMontantRemiseFrancs.Visible = False txtMontantRemiseEuros.Visible = False txtMontantRemiseFrancs.Visible = False Else lblMontantRemiseEuros.Visible = True lblMontantRemiseFrancs.Visible = True txtMontantRemiseEuros.Visible = True txtMontantRemiseFrancs.Visible = True End If txtMontantRemiseEuros = CDbl(txtPrixEuros) * CDbl(cbxReduction) / 100 txtMontantRemiseFrancs = CDbl(txtMontantRemiseEuros) * 6.55957
If cbxReduction <> "" Then txtSoldeEuros = CDbl(txtPrixEuros) - CDbl(cbxAccompteEuros) - CDbl(txtMontantRemiseEuros) Else txtSoldeEuros.Value = CDbl(txtPrixEuros) - CDbl(cbxAccompteEuros) End If If cbxReduction <> "" Then txtSoldeFrancs = CDbl(txtPrixFrancs) - CDbl(txtAccompteFrancs) - CDbl(txtMontantRemiseFrancs) Else txtSoldeFrancs.Value = CDbl(txtPrixFrancs) - CDbl(cbxAccompteEuros) End If If cbxAccompteEuros <> "" Then txtSoldeEuros = CDbl(txtPrixEuros) - CDbl(cbxAccompteEuros) - CDbl(txtMontantRemiseEuros) Else txtSoldeEuros.Value = CDbl(txtPrixEuros) - CDbl(txtMontantRemiseEuros) End If
If cbxAccompteEuros <> "" Then txtSoldeFrancs = CDbl(txtPrixFrancs) - CDbl(txtAccompteFrancs) - CDbl(txtMontantRemiseFrancs) Else txtSoldeFrancs.Value = CDbl(txtPrixFrancs) - CDbl(txtMontantRemiseFrancs) End If
If txtSoldeFrancs > 0 Then lblSoldeFrancs.ForeColor = &HFF& lblSoldeEuros.ForeColor = &HFF& Else lblSoldeFrancs.ForeColor = &H80000008 lblSoldeEuros.ForeColor = &H80000008 End If
End Sub
Private Sub txtAccompteEuros_Change()
On Error Resume Next txtAccompteEuros = Format(txtAccompteEuros, "##,##0.00") txtSoldeEuros = CDbl(txtPrixEuros) - CDbl(txtAccompteEuros) End Sub Private Sub txtPrixEuros_Change()
On Error Resume Next
If txtPrixEuros <> "" Then txtPrixFrancs = CDbl(txtPrixEuros) * 6.55957 If cbxAccompteEuros <> "" Then txtSoldeEuros.Value = CDbl(txtPrixEuros) - CDbl(cbxAccompteEuros) Else txtSoldeEuros.Value = CDbl(txtPrixEuros) End If If cbxReduction <> "" Then txtSoldeFrancs.Value = CDbl(txtPrixFrancs) - CDbl(txtAccompteFrancs) - CDbl(txtMontantRemiseEuros) Else txtSoldeFrancs.Value = CDbl(txtPrixFrancs) End If Else txtPrixEuros = "" If cbxAccompteEuros <> "" Then txtSoldeEuros.Value = -CDbl(cbxAccompteEuros) Else txtSoldeEuros.Value = "" End If If cbxAccompteEuros <> "" Then txtSoldeFrancs.Value = -CDbl(txtAccompteFrancs) Else txtSoldeFrancs.Value = "" End If
End Sub Private Sub txtSoldeEuros_Change() On Error Resume Next txtSoldeEuros = Format(txtSoldeEuros, "##,##0.00") End Sub Private Sub txtNomDuMarie_Change() txtNomDuMarie.Value = UCase(txtNomDuMarie.Value) End Sub Private Sub txtPrenomDuMarie_Change() txtPrenomDuMarie = Application.Proper(txtPrenomDuMarie) End Sub Private Sub txtNomDeLaMariee_Change() txtNomDeLaMariee.Value = UCase(txtNomDeLaMariee.Value) End Sub Private Sub txtPrenomDeLaMariee_Change() txtPrenomDeLaMariee = Application.Proper(txtPrenomDeLaMariee) End Sub
Private Sub UserForm_Initialize() Dim Ctrl As Control 'Ici je vide les Controls For Each Ctrl In Me.Controls If TypeOf Ctrl Is MSForms.TextBox Or TypeOf Ctrl Is MSForms.ComboBox Then Ctrl = "" End If Next Ctrl
' Choix des Organisateurs, Nom des salles, Traiteurs, Type de soirée Set WSDonneesPrix = Worksheets("Prix") With WSDonneesPrix PlageTypeDeSoirée = .Range("B4:B" & .Range("B2000").End(xlUp).Row).Address End With cbxTypeDeSoiree.RowSource = "Prix!" & PlageTypeDeSoirée
' Choix de l'accompt cbxAccompteEuros.AddItem "100,00" cbxAccompteEuros.AddItem "200,00" cbxAccompteEuros.AddItem "300,00"
Si je choisi un type de soirée et que je met sois un accompte, soit une réduction ou même les deux et que je veuille modifier le type de soirée les calculs me donnent des valeur qui n'on rien a voir.
Y'a t'il moyen d'y remedier ?
Le deuxième :
Cela est pour la valeur de l'accomte.
Pour le moment je passe par un ComboBox.Additem, mais cela serait il possible de faire en sorte que l'accompte ne dépasse pas la valeur du prix de départ.
Merci, jacques
Bonjour
J'ai bien tout fait pour venir a bout de cette procédure, mais je n'y arrive
pas.
Y'a t-il une solution ?
Merci Jacques
"Jacques" <jacques-zeziola@wanadoo.fr> a écrit dans le message de news:
43610baf$0$17199$8fcfb975@news.wanadoo.fr...
Salut a toutes et tous
Donc j'ai deux petits soucie :
Le premier :
Si je choisi un type de soirée et que je met sois un accompte, soit une
réduction ou même les deux et que je veuille modifier le type de soirée
les calculs me donnent des valeur qui n'on rien a voir.
Y'a t'il moyen d'y remedier ?
Le deuxième :
Cela est pour la valeur de l'accomte.
Pour le moment je passe par un ComboBox.Additem, mais cela serait il
possible de faire en sorte que l'accompte ne dépasse pas la valeur du prix
de départ.
Voice les codes :
Dans un module :
Option Explicit
Public TypeDeSoiree As Byte
Dans l'userform :
Option Explicit
Dim Plage, PlagePrix As Range
Dim A, B, C, D As Long
Dim WSDonnees, WSDonneesPrix As Worksheet
Dim PlageTypeDeSoirée As String
Dim L As Integer 'Déclaration de variable "L" pour connaitre la Ligne
Numéro
Private Sub cbxAccompteEuros_Change()
On Error Resume Next
If cbxAccompteEuros.Text = "" Then
txtAccompteFrancs = ""
End If
If cbxAccompteEuros = "" Then
lblAccompteFrancs.ForeColor = &H80000008
lblAccompteEuros.ForeColor = &H80000008
Else
lblAccompteFrancs.ForeColor = &HFF0000
lblAccompteEuros.ForeColor = &HFF0000
End If
If cbxAccompteEuros <> "" Then
txtSoldeEuros.Value = CDbl(txtPrixEuros) - CDbl(cbxAccompteEuros)
Else
txtSoldeEuros.Value = CDbl(txtPrixEuros)
End If
If cbxAccompteEuros <> "" Then
txtAccompteFrancs = CDbl(cbxAccompteEuros) * 6.55957
txtSoldeFrancs.Value = CDbl(txtPrixFrancs) - CDbl(txtAccompteFrancs)
Else
txtSoldeFrancs.Value = CDbl(txtPrixFrancs)
End If
lblAccompteEuros.Visible = True
txtAccompteFrancs.Visible = True
End Sub
Private Sub cbxReduction_Change()
On Error Resume Next
If cbxReduction = "" Then
txtMontantRemiseEuros = ""
txtMontantRemiseFrancs = ""
lblMontantRemiseEuros.Visible = False
lblMontantRemiseFrancs.Visible = False
txtMontantRemiseEuros.Visible = False
txtMontantRemiseFrancs.Visible = False
Else
lblMontantRemiseEuros.Visible = True
lblMontantRemiseFrancs.Visible = True
txtMontantRemiseEuros.Visible = True
txtMontantRemiseFrancs.Visible = True
End If
txtMontantRemiseEuros = CDbl(txtPrixEuros) * CDbl(cbxReduction) / 100
txtMontantRemiseFrancs = CDbl(txtMontantRemiseEuros) * 6.55957
If cbxReduction <> "" Then
txtSoldeEuros = CDbl(txtPrixEuros) - CDbl(cbxAccompteEuros) -
CDbl(txtMontantRemiseEuros)
Else
txtSoldeEuros.Value = CDbl(txtPrixEuros) - CDbl(cbxAccompteEuros)
End If
If cbxReduction <> "" Then
txtSoldeFrancs = CDbl(txtPrixFrancs) - CDbl(txtAccompteFrancs) -
CDbl(txtMontantRemiseFrancs)
Else
txtSoldeFrancs.Value = CDbl(txtPrixFrancs) - CDbl(cbxAccompteEuros)
End If
If cbxAccompteEuros <> "" Then
txtSoldeEuros = CDbl(txtPrixEuros) - CDbl(cbxAccompteEuros) -
CDbl(txtMontantRemiseEuros)
Else
txtSoldeEuros.Value = CDbl(txtPrixEuros) - CDbl(txtMontantRemiseEuros)
End If
If cbxAccompteEuros <> "" Then
txtSoldeFrancs = CDbl(txtPrixFrancs) - CDbl(txtAccompteFrancs) -
CDbl(txtMontantRemiseFrancs)
Else
txtSoldeFrancs.Value = CDbl(txtPrixFrancs) - CDbl(txtMontantRemiseFrancs)
End If
If txtSoldeFrancs > 0 Then
lblSoldeFrancs.ForeColor = &HFF&
lblSoldeEuros.ForeColor = &HFF&
Else
lblSoldeFrancs.ForeColor = &H80000008
lblSoldeEuros.ForeColor = &H80000008
End If
End Sub
Private Sub txtAccompteEuros_Change()
On Error Resume Next
txtAccompteEuros = Format(txtAccompteEuros, "##,##0.00")
txtSoldeEuros = CDbl(txtPrixEuros) - CDbl(txtAccompteEuros)
End Sub
Private Sub txtPrixEuros_Change()
On Error Resume Next
If txtPrixEuros <> "" Then
txtPrixFrancs = CDbl(txtPrixEuros) * 6.55957
If cbxAccompteEuros <> "" Then
txtSoldeEuros.Value = CDbl(txtPrixEuros) - CDbl(cbxAccompteEuros)
Else
txtSoldeEuros.Value = CDbl(txtPrixEuros)
End If
If cbxReduction <> "" Then
txtSoldeFrancs.Value = CDbl(txtPrixFrancs) - CDbl(txtAccompteFrancs) -
CDbl(txtMontantRemiseEuros)
Else
txtSoldeFrancs.Value = CDbl(txtPrixFrancs)
End If
Else
txtPrixEuros = ""
If cbxAccompteEuros <> "" Then
txtSoldeEuros.Value = -CDbl(cbxAccompteEuros)
Else
txtSoldeEuros.Value = ""
End If
If cbxAccompteEuros <> "" Then
txtSoldeFrancs.Value = -CDbl(txtAccompteFrancs)
Else
txtSoldeFrancs.Value = ""
End If
End Sub
Private Sub txtSoldeEuros_Change()
On Error Resume Next
txtSoldeEuros = Format(txtSoldeEuros, "##,##0.00")
End Sub
Private Sub txtNomDuMarie_Change()
txtNomDuMarie.Value = UCase(txtNomDuMarie.Value)
End Sub
Private Sub txtPrenomDuMarie_Change()
txtPrenomDuMarie = Application.Proper(txtPrenomDuMarie)
End Sub
Private Sub txtNomDeLaMariee_Change()
txtNomDeLaMariee.Value = UCase(txtNomDeLaMariee.Value)
End Sub
Private Sub txtPrenomDeLaMariee_Change()
txtPrenomDeLaMariee = Application.Proper(txtPrenomDeLaMariee)
End Sub
Private Sub UserForm_Initialize()
Dim Ctrl As Control
'Ici je vide les Controls
For Each Ctrl In Me.Controls
If TypeOf Ctrl Is MSForms.TextBox Or TypeOf Ctrl Is MSForms.ComboBox Then
Ctrl = ""
End If
Next Ctrl
' Choix des Organisateurs, Nom des salles, Traiteurs, Type de soirée
Set WSDonneesPrix = Worksheets("Prix")
With WSDonneesPrix
PlageTypeDeSoirée = .Range("B4:B" & .Range("B2000").End(xlUp).Row).Address
End With
cbxTypeDeSoiree.RowSource = "Prix!" & PlageTypeDeSoirée
' Choix de l'accompt
cbxAccompteEuros.AddItem "100,00"
cbxAccompteEuros.AddItem "200,00"
cbxAccompteEuros.AddItem "300,00"
Si je choisi un type de soirée et que je met sois un accompte, soit une
réduction ou même les deux et que je veuille modifier le type de soirée
les calculs me donnent des valeur qui n'on rien a voir.
Y'a t'il moyen d'y remedier ?
Le deuxième :
Cela est pour la valeur de l'accomte.
Pour le moment je passe par un ComboBox.Additem, mais cela serait il
possible de faire en sorte que l'accompte ne dépasse pas la valeur du prix
de départ.
J'ai bien tout fait pour venir a bout de cette procédure, mais je n'y arrive pas.
Y'a t-il une solution ?
Merci Jacques "Jacques" a écrit dans le message de news: 43610baf$0$17199$
Salut a toutes et tous
Donc j'ai deux petits soucie :
Le premier :
Si je choisi un type de soirée et que je met sois un accompte, soit une réduction ou même les deux et que je veuille modifier le type de soirée les calculs me donnent des valeur qui n'on rien a voir.
Y'a t'il moyen d'y remedier ?
Le deuxième :
Cela est pour la valeur de l'accomte.
Pour le moment je passe par un ComboBox.Additem, mais cela serait il possible de faire en sorte que l'accompte ne dépasse pas la valeur du prix de départ.
Voice les codes :
Dans un module :
Option Explicit Public TypeDeSoiree As Byte
Dans l'userform :
Option Explicit
Dim Plage, PlagePrix As Range Dim A, B, C, D As Long Dim WSDonnees, WSDonneesPrix As Worksheet Dim PlageTypeDeSoirée As String Dim L As Integer 'Déclaration de variable "L" pour connaitre la Ligne Numéro
Private Sub cbxAccompteEuros_Change()
On Error Resume Next
If cbxAccompteEuros.Text = "" Then txtAccompteFrancs = "" End If If cbxAccompteEuros = "" Then lblAccompteFrancs.ForeColor = &H80000008 lblAccompteEuros.ForeColor = &H80000008 Else lblAccompteFrancs.ForeColor = &HFF0000 lblAccompteEuros.ForeColor = &HFF0000 End If If cbxAccompteEuros <> "" Then txtSoldeEuros.Value = CDbl(txtPrixEuros) - CDbl(cbxAccompteEuros) Else txtSoldeEuros.Value = CDbl(txtPrixEuros) End If
If cbxAccompteEuros <> "" Then txtAccompteFrancs = CDbl(cbxAccompteEuros) * 6.55957 txtSoldeFrancs.Value = CDbl(txtPrixFrancs) - CDbl(txtAccompteFrancs) Else txtSoldeFrancs.Value = CDbl(txtPrixFrancs) End If
lblAccompteEuros.Visible = True txtAccompteFrancs.Visible = True End Sub
Private Sub cbxReduction_Change() On Error Resume Next If cbxReduction = "" Then txtMontantRemiseEuros = "" txtMontantRemiseFrancs = "" lblMontantRemiseEuros.Visible = False lblMontantRemiseFrancs.Visible = False txtMontantRemiseEuros.Visible = False txtMontantRemiseFrancs.Visible = False Else lblMontantRemiseEuros.Visible = True lblMontantRemiseFrancs.Visible = True txtMontantRemiseEuros.Visible = True txtMontantRemiseFrancs.Visible = True End If txtMontantRemiseEuros = CDbl(txtPrixEuros) * CDbl(cbxReduction) / 100 txtMontantRemiseFrancs = CDbl(txtMontantRemiseEuros) * 6.55957
If cbxReduction <> "" Then txtSoldeEuros = CDbl(txtPrixEuros) - CDbl(cbxAccompteEuros) - CDbl(txtMontantRemiseEuros) Else txtSoldeEuros.Value = CDbl(txtPrixEuros) - CDbl(cbxAccompteEuros) End If If cbxReduction <> "" Then txtSoldeFrancs = CDbl(txtPrixFrancs) - CDbl(txtAccompteFrancs) - CDbl(txtMontantRemiseFrancs) Else txtSoldeFrancs.Value = CDbl(txtPrixFrancs) - CDbl(cbxAccompteEuros) End If If cbxAccompteEuros <> "" Then txtSoldeEuros = CDbl(txtPrixEuros) - CDbl(cbxAccompteEuros) - CDbl(txtMontantRemiseEuros) Else txtSoldeEuros.Value = CDbl(txtPrixEuros) - CDbl(txtMontantRemiseEuros) End If
If cbxAccompteEuros <> "" Then txtSoldeFrancs = CDbl(txtPrixFrancs) - CDbl(txtAccompteFrancs) - CDbl(txtMontantRemiseFrancs) Else txtSoldeFrancs.Value = CDbl(txtPrixFrancs) - CDbl(txtMontantRemiseFrancs) End If
If txtSoldeFrancs > 0 Then lblSoldeFrancs.ForeColor = &HFF& lblSoldeEuros.ForeColor = &HFF& Else lblSoldeFrancs.ForeColor = &H80000008 lblSoldeEuros.ForeColor = &H80000008 End If
End Sub
Private Sub txtAccompteEuros_Change()
On Error Resume Next txtAccompteEuros = Format(txtAccompteEuros, "##,##0.00") txtSoldeEuros = CDbl(txtPrixEuros) - CDbl(txtAccompteEuros) End Sub Private Sub txtPrixEuros_Change()
On Error Resume Next
If txtPrixEuros <> "" Then txtPrixFrancs = CDbl(txtPrixEuros) * 6.55957 If cbxAccompteEuros <> "" Then txtSoldeEuros.Value = CDbl(txtPrixEuros) - CDbl(cbxAccompteEuros) Else txtSoldeEuros.Value = CDbl(txtPrixEuros) End If If cbxReduction <> "" Then txtSoldeFrancs.Value = CDbl(txtPrixFrancs) - CDbl(txtAccompteFrancs) - CDbl(txtMontantRemiseEuros) Else txtSoldeFrancs.Value = CDbl(txtPrixFrancs) End If Else txtPrixEuros = "" If cbxAccompteEuros <> "" Then txtSoldeEuros.Value = -CDbl(cbxAccompteEuros) Else txtSoldeEuros.Value = "" End If If cbxAccompteEuros <> "" Then txtSoldeFrancs.Value = -CDbl(txtAccompteFrancs) Else txtSoldeFrancs.Value = "" End If
End Sub Private Sub txtSoldeEuros_Change() On Error Resume Next txtSoldeEuros = Format(txtSoldeEuros, "##,##0.00") End Sub Private Sub txtNomDuMarie_Change() txtNomDuMarie.Value = UCase(txtNomDuMarie.Value) End Sub Private Sub txtPrenomDuMarie_Change() txtPrenomDuMarie = Application.Proper(txtPrenomDuMarie) End Sub Private Sub txtNomDeLaMariee_Change() txtNomDeLaMariee.Value = UCase(txtNomDeLaMariee.Value) End Sub Private Sub txtPrenomDeLaMariee_Change() txtPrenomDeLaMariee = Application.Proper(txtPrenomDeLaMariee) End Sub
Private Sub UserForm_Initialize() Dim Ctrl As Control 'Ici je vide les Controls For Each Ctrl In Me.Controls If TypeOf Ctrl Is MSForms.TextBox Or TypeOf Ctrl Is MSForms.ComboBox Then Ctrl = "" End If Next Ctrl
' Choix des Organisateurs, Nom des salles, Traiteurs, Type de soirée Set WSDonneesPrix = Worksheets("Prix") With WSDonneesPrix PlageTypeDeSoirée = .Range("B4:B" & .Range("B2000").End(xlUp).Row).Address End With cbxTypeDeSoiree.RowSource = "Prix!" & PlageTypeDeSoirée
' Choix de l'accompt cbxAccompteEuros.AddItem "100,00" cbxAccompteEuros.AddItem "200,00" cbxAccompteEuros.AddItem "300,00"
Si je choisi un type de soirée et que je met sois un accompte, soit une réduction ou même les deux et que je veuille modifier le type de soirée les calculs me donnent des valeur qui n'on rien a voir.
Y'a t'il moyen d'y remedier ?
Le deuxième :
Cela est pour la valeur de l'accomte.
Pour le moment je passe par un ComboBox.Additem, mais cela serait il possible de faire en sorte que l'accompte ne dépasse pas la valeur du prix de départ.
