Bonjour.
Pour trois personnes maxi :
Private Sub CommandButton1_Click()
If IsNumeric(Me.tbMontant) And IsNumeric(Me.tbNbrePers) Then
result = Me.tbMontant / Me.tbNbrePers
Me.tb1 = ""
Me.tb2 = ""
Me.tb3 = ""
Select Case Me.tbNbrePers
Case "1": Me.tb1 = result
Case "2": Me.tb2 = result
Case "3": Me.tb3 = result
Case Else: MsgBox "pas prévu"
End Select
End If
End Sub
Cordialement.
Daniel
a écrit dans le message de news:
Bonjour,
Je suis en train de créer un formulaire simple mais mes connaissances
minimes en VBA me posent quelques soucis !
J'expose : dans mon formulaire on trouve, 1 bouton ("Calcul"), 2
TextBox ("montant" et "nbre personnes") puis plusieurs autres TextBox
("1 personne", "2 pers.", "3 pers."...).
Dans ces derniers seront affichés (par une règle de 3) un montant.
Donc le résultat souhaité est le suivant : on renseigne le montant et
le nbre de personnes. On clique sur le bouton "Calcul" et un montant
s'affiche dans les textbox concernés.
Exemple : montant = 100 Euros, nbre de personnes = 10 donc le résultat
est 100 / 10 = 10 Euros.
Pour une personne, le montant de 10 Euros, pour 2 personnes = 20 Euros
etc...
Ai-je été assez clair ?
Merci d'avance pour votre soutien !
Cdt
Pierre
Bonjour.
Pour trois personnes maxi :
Private Sub CommandButton1_Click()
If IsNumeric(Me.tbMontant) And IsNumeric(Me.tbNbrePers) Then
result = Me.tbMontant / Me.tbNbrePers
Me.tb1 = ""
Me.tb2 = ""
Me.tb3 = ""
Select Case Me.tbNbrePers
Case "1": Me.tb1 = result
Case "2": Me.tb2 = result
Case "3": Me.tb3 = result
Case Else: MsgBox "pas prévu"
End Select
End If
End Sub
Cordialement.
Daniel
<koukou40@free.fr> a écrit dans le message de news:
f94ef28a-9c68-47f0-9dc1-ee8e7825f63f@f3g2000hsg.googlegroups.com...
Bonjour,
Je suis en train de créer un formulaire simple mais mes connaissances
minimes en VBA me posent quelques soucis !
J'expose : dans mon formulaire on trouve, 1 bouton ("Calcul"), 2
TextBox ("montant" et "nbre personnes") puis plusieurs autres TextBox
("1 personne", "2 pers.", "3 pers."...).
Dans ces derniers seront affichés (par une règle de 3) un montant.
Donc le résultat souhaité est le suivant : on renseigne le montant et
le nbre de personnes. On clique sur le bouton "Calcul" et un montant
s'affiche dans les textbox concernés.
Exemple : montant = 100 Euros, nbre de personnes = 10 donc le résultat
est 100 / 10 = 10 Euros.
Pour une personne, le montant de 10 Euros, pour 2 personnes = 20 Euros
etc...
Ai-je été assez clair ?
Merci d'avance pour votre soutien !
Cdt
Pierre
Bonjour.
Pour trois personnes maxi :
Private Sub CommandButton1_Click()
If IsNumeric(Me.tbMontant) And IsNumeric(Me.tbNbrePers) Then
result = Me.tbMontant / Me.tbNbrePers
Me.tb1 = ""
Me.tb2 = ""
Me.tb3 = ""
Select Case Me.tbNbrePers
Case "1": Me.tb1 = result
Case "2": Me.tb2 = result
Case "3": Me.tb3 = result
Case Else: MsgBox "pas prévu"
End Select
End If
End Sub
Cordialement.
Daniel
a écrit dans le message de news:
Bonjour,
Je suis en train de créer un formulaire simple mais mes connaissances
minimes en VBA me posent quelques soucis !
J'expose : dans mon formulaire on trouve, 1 bouton ("Calcul"), 2
TextBox ("montant" et "nbre personnes") puis plusieurs autres TextBox
("1 personne", "2 pers.", "3 pers."...).
Dans ces derniers seront affichés (par une règle de 3) un montant.
Donc le résultat souhaité est le suivant : on renseigne le montant et
le nbre de personnes. On clique sur le bouton "Calcul" et un montant
s'affiche dans les textbox concernés.
Exemple : montant = 100 Euros, nbre de personnes = 10 donc le résultat
est 100 / 10 = 10 Euros.
Pour une personne, le montant de 10 Euros, pour 2 personnes = 20 Euros
etc...
Ai-je été assez clair ?
Merci d'avance pour votre soutien !
Cdt
Pierre
Merci, Daniel mais j'ai une erreur !
Au niveau "Me.tbMontant" !
"Daniel.C" a écrit dans le message de
news:%Bonjour.
Pour trois personnes maxi :
Private Sub CommandButton1_Click()
If IsNumeric(Me.tbMontant) And IsNumeric(Me.tbNbrePers) Then
result = Me.tbMontant / Me.tbNbrePers
Me.tb1 = ""
Me.tb2 = ""
Me.tb3 = ""
Select Case Me.tbNbrePers
Case "1": Me.tb1 = result
Case "2": Me.tb2 = result
Case "3": Me.tb3 = result
Case Else: MsgBox "pas prévu"
End Select
End If
End Sub
Cordialement.
Daniel
a écrit dans le message de news:
Bonjour,
Je suis en train de créer un formulaire simple mais mes connaissances
minimes en VBA me posent quelques soucis !
J'expose : dans mon formulaire on trouve, 1 bouton ("Calcul"), 2
TextBox ("montant" et "nbre personnes") puis plusieurs autres TextBox
("1 personne", "2 pers.", "3 pers."...).
Dans ces derniers seront affichés (par une règle de 3) un montant.
Donc le résultat souhaité est le suivant : on renseigne le montant et
le nbre de personnes. On clique sur le bouton "Calcul" et un montant
s'affiche dans les textbox concernés.
Exemple : montant = 100 Euros, nbre de personnes = 10 donc le résultat
est 100 / 10 = 10 Euros.
Pour une personne, le montant de 10 Euros, pour 2 personnes = 20 Euros
etc...
Ai-je été assez clair ?
Merci d'avance pour votre soutien !
Cdt
Pierre
Merci, Daniel mais j'ai une erreur !
Au niveau "Me.tbMontant" !
"Daniel.C" <dZZZcolardelle@free.fr> a écrit dans le message de
news:%23DJKuakQIHA.3516@TK2MSFTNGP02.phx.gbl...
Bonjour.
Pour trois personnes maxi :
Private Sub CommandButton1_Click()
If IsNumeric(Me.tbMontant) And IsNumeric(Me.tbNbrePers) Then
result = Me.tbMontant / Me.tbNbrePers
Me.tb1 = ""
Me.tb2 = ""
Me.tb3 = ""
Select Case Me.tbNbrePers
Case "1": Me.tb1 = result
Case "2": Me.tb2 = result
Case "3": Me.tb3 = result
Case Else: MsgBox "pas prévu"
End Select
End If
End Sub
Cordialement.
Daniel
<koukou40@free.fr> a écrit dans le message de news:
f94ef28a-9c68-47f0-9dc1-ee8e7825f63f@f3g2000hsg.googlegroups.com...
Bonjour,
Je suis en train de créer un formulaire simple mais mes connaissances
minimes en VBA me posent quelques soucis !
J'expose : dans mon formulaire on trouve, 1 bouton ("Calcul"), 2
TextBox ("montant" et "nbre personnes") puis plusieurs autres TextBox
("1 personne", "2 pers.", "3 pers."...).
Dans ces derniers seront affichés (par une règle de 3) un montant.
Donc le résultat souhaité est le suivant : on renseigne le montant et
le nbre de personnes. On clique sur le bouton "Calcul" et un montant
s'affiche dans les textbox concernés.
Exemple : montant = 100 Euros, nbre de personnes = 10 donc le résultat
est 100 / 10 = 10 Euros.
Pour une personne, le montant de 10 Euros, pour 2 personnes = 20 Euros
etc...
Ai-je été assez clair ?
Merci d'avance pour votre soutien !
Cdt
Pierre
Merci, Daniel mais j'ai une erreur !
Au niveau "Me.tbMontant" !
"Daniel.C" a écrit dans le message de
news:%Bonjour.
Pour trois personnes maxi :
Private Sub CommandButton1_Click()
If IsNumeric(Me.tbMontant) And IsNumeric(Me.tbNbrePers) Then
result = Me.tbMontant / Me.tbNbrePers
Me.tb1 = ""
Me.tb2 = ""
Me.tb3 = ""
Select Case Me.tbNbrePers
Case "1": Me.tb1 = result
Case "2": Me.tb2 = result
Case "3": Me.tb3 = result
Case Else: MsgBox "pas prévu"
End Select
End If
End Sub
Cordialement.
Daniel
a écrit dans le message de news:
Bonjour,
Je suis en train de créer un formulaire simple mais mes connaissances
minimes en VBA me posent quelques soucis !
J'expose : dans mon formulaire on trouve, 1 bouton ("Calcul"), 2
TextBox ("montant" et "nbre personnes") puis plusieurs autres TextBox
("1 personne", "2 pers.", "3 pers."...).
Dans ces derniers seront affichés (par une règle de 3) un montant.
Donc le résultat souhaité est le suivant : on renseigne le montant et
le nbre de personnes. On clique sur le bouton "Calcul" et un montant
s'affiche dans les textbox concernés.
Exemple : montant = 100 Euros, nbre de personnes = 10 donc le résultat
est 100 / 10 = 10 Euros.
Pour une personne, le montant de 10 Euros, pour 2 personnes = 20 Euros
etc...
Ai-je été assez clair ?
Merci d'avance pour votre soutien !
Cdt
Pierre
Sur quelle ligne ?
Quelles sont les valeurs rentrées ?
Daniel
"fabio" a écrit dans le message de news:Merci, Daniel mais j'ai une erreur !
Au niveau "Me.tbMontant" !
"Daniel.C" a écrit dans le message de
news:%Bonjour.
Pour trois personnes maxi :
Private Sub CommandButton1_Click()
If IsNumeric(Me.tbMontant) And IsNumeric(Me.tbNbrePers) Then
result = Me.tbMontant / Me.tbNbrePers
Me.tb1 = ""
Me.tb2 = ""
Me.tb3 = ""
Select Case Me.tbNbrePers
Case "1": Me.tb1 = result
Case "2": Me.tb2 = result
Case "3": Me.tb3 = result
Case Else: MsgBox "pas prévu"
End Select
End If
End Sub
Cordialement.
Daniel
a écrit dans le message de news:
Bonjour,
Je suis en train de créer un formulaire simple mais mes connaissances
minimes en VBA me posent quelques soucis !
J'expose : dans mon formulaire on trouve, 1 bouton ("Calcul"), 2
TextBox ("montant" et "nbre personnes") puis plusieurs autres TextBox
("1 personne", "2 pers.", "3 pers."...).
Dans ces derniers seront affichés (par une règle de 3) un montant.
Donc le résultat souhaité est le suivant : on renseigne le montant et
le nbre de personnes. On clique sur le bouton "Calcul" et un montant
s'affiche dans les textbox concernés.
Exemple : montant = 100 Euros, nbre de personnes = 10 donc le résultat
est 100 / 10 = 10 Euros.
Pour une personne, le montant de 10 Euros, pour 2 personnes = 20 Euros
etc...
Ai-je été assez clair ?
Merci d'avance pour votre soutien !
Cdt
Pierre
Sur quelle ligne ?
Quelles sont les valeurs rentrées ?
Daniel
"fabio" <fabio_peronace@yahoo.fr> a écrit dans le message de news:
OLiBQWnQIHA.1204@TK2MSFTNGP03.phx.gbl...
Merci, Daniel mais j'ai une erreur !
Au niveau "Me.tbMontant" !
"Daniel.C" <dZZZcolardelle@free.fr> a écrit dans le message de
news:%23DJKuakQIHA.3516@TK2MSFTNGP02.phx.gbl...
Bonjour.
Pour trois personnes maxi :
Private Sub CommandButton1_Click()
If IsNumeric(Me.tbMontant) And IsNumeric(Me.tbNbrePers) Then
result = Me.tbMontant / Me.tbNbrePers
Me.tb1 = ""
Me.tb2 = ""
Me.tb3 = ""
Select Case Me.tbNbrePers
Case "1": Me.tb1 = result
Case "2": Me.tb2 = result
Case "3": Me.tb3 = result
Case Else: MsgBox "pas prévu"
End Select
End If
End Sub
Cordialement.
Daniel
<koukou40@free.fr> a écrit dans le message de news:
f94ef28a-9c68-47f0-9dc1-ee8e7825f63f@f3g2000hsg.googlegroups.com...
Bonjour,
Je suis en train de créer un formulaire simple mais mes connaissances
minimes en VBA me posent quelques soucis !
J'expose : dans mon formulaire on trouve, 1 bouton ("Calcul"), 2
TextBox ("montant" et "nbre personnes") puis plusieurs autres TextBox
("1 personne", "2 pers.", "3 pers."...).
Dans ces derniers seront affichés (par une règle de 3) un montant.
Donc le résultat souhaité est le suivant : on renseigne le montant et
le nbre de personnes. On clique sur le bouton "Calcul" et un montant
s'affiche dans les textbox concernés.
Exemple : montant = 100 Euros, nbre de personnes = 10 donc le résultat
est 100 / 10 = 10 Euros.
Pour une personne, le montant de 10 Euros, pour 2 personnes = 20 Euros
etc...
Ai-je été assez clair ?
Merci d'avance pour votre soutien !
Cdt
Pierre
Sur quelle ligne ?
Quelles sont les valeurs rentrées ?
Daniel
"fabio" a écrit dans le message de news:Merci, Daniel mais j'ai une erreur !
Au niveau "Me.tbMontant" !
"Daniel.C" a écrit dans le message de
news:%Bonjour.
Pour trois personnes maxi :
Private Sub CommandButton1_Click()
If IsNumeric(Me.tbMontant) And IsNumeric(Me.tbNbrePers) Then
result = Me.tbMontant / Me.tbNbrePers
Me.tb1 = ""
Me.tb2 = ""
Me.tb3 = ""
Select Case Me.tbNbrePers
Case "1": Me.tb1 = result
Case "2": Me.tb2 = result
Case "3": Me.tb3 = result
Case Else: MsgBox "pas prévu"
End Select
End If
End Sub
Cordialement.
Daniel
a écrit dans le message de news:
Bonjour,
Je suis en train de créer un formulaire simple mais mes connaissances
minimes en VBA me posent quelques soucis !
J'expose : dans mon formulaire on trouve, 1 bouton ("Calcul"), 2
TextBox ("montant" et "nbre personnes") puis plusieurs autres TextBox
("1 personne", "2 pers.", "3 pers."...).
Dans ces derniers seront affichés (par une règle de 3) un montant.
Donc le résultat souhaité est le suivant : on renseigne le montant et
le nbre de personnes. On clique sur le bouton "Calcul" et un montant
s'affiche dans les textbox concernés.
Exemple : montant = 100 Euros, nbre de personnes = 10 donc le résultat
est 100 / 10 = 10 Euros.
Pour une personne, le montant de 10 Euros, pour 2 personnes = 20 Euros
etc...
Ai-je été assez clair ?
Merci d'avance pour votre soutien !
Cdt
Pierre
Cela bloque à ce niveau :
If IsNumeric(Me.tbMontant) And IsNumeric(Me.tbNbrePers) Then
A+
Pierre Fabio
"Daniel.C" a écrit dans le message de
news:Sur quelle ligne ?
Quelles sont les valeurs rentrées ?
Daniel
"fabio" a écrit dans le message de news:Merci, Daniel mais j'ai une erreur !
Au niveau "Me.tbMontant" !
"Daniel.C" a écrit dans le message de
news:%Bonjour.
Pour trois personnes maxi :
Private Sub CommandButton1_Click()
If IsNumeric(Me.tbMontant) And IsNumeric(Me.tbNbrePers) Then
result = Me.tbMontant / Me.tbNbrePers
Me.tb1 = ""
Me.tb2 = ""
Me.tb3 = ""
Select Case Me.tbNbrePers
Case "1": Me.tb1 = result
Case "2": Me.tb2 = result
Case "3": Me.tb3 = result
Case Else: MsgBox "pas prévu"
End Select
End If
End Sub
Cordialement.
Daniel
a écrit dans le message de news:
Bonjour,
Je suis en train de créer un formulaire simple mais mes connaissances
minimes en VBA me posent quelques soucis !
J'expose : dans mon formulaire on trouve, 1 bouton ("Calcul"), 2
TextBox ("montant" et "nbre personnes") puis plusieurs autres TextBox
("1 personne", "2 pers.", "3 pers."...).
Dans ces derniers seront affichés (par une règle de 3) un montant.
Donc le résultat souhaité est le suivant : on renseigne le montant et
le nbre de personnes. On clique sur le bouton "Calcul" et un montant
s'affiche dans les textbox concernés.
Exemple : montant = 100 Euros, nbre de personnes = 10 donc le résultat
est 100 / 10 = 10 Euros.
Pour une personne, le montant de 10 Euros, pour 2 personnes = 20 Euros
etc...
Ai-je été assez clair ?
Merci d'avance pour votre soutien !
Cdt
Pierre
Cela bloque à ce niveau :
If IsNumeric(Me.tbMontant) And IsNumeric(Me.tbNbrePers) Then
A+
Pierre Fabio
"Daniel.C" <dZZZcolardelle@free.fr> a écrit dans le message de
news:uWB0nbnQIHA.4476@TK2MSFTNGP06.phx.gbl...
Sur quelle ligne ?
Quelles sont les valeurs rentrées ?
Daniel
"fabio" <fabio_peronace@yahoo.fr> a écrit dans le message de news:
OLiBQWnQIHA.1204@TK2MSFTNGP03.phx.gbl...
Merci, Daniel mais j'ai une erreur !
Au niveau "Me.tbMontant" !
"Daniel.C" <dZZZcolardelle@free.fr> a écrit dans le message de
news:%23DJKuakQIHA.3516@TK2MSFTNGP02.phx.gbl...
Bonjour.
Pour trois personnes maxi :
Private Sub CommandButton1_Click()
If IsNumeric(Me.tbMontant) And IsNumeric(Me.tbNbrePers) Then
result = Me.tbMontant / Me.tbNbrePers
Me.tb1 = ""
Me.tb2 = ""
Me.tb3 = ""
Select Case Me.tbNbrePers
Case "1": Me.tb1 = result
Case "2": Me.tb2 = result
Case "3": Me.tb3 = result
Case Else: MsgBox "pas prévu"
End Select
End If
End Sub
Cordialement.
Daniel
<koukou40@free.fr> a écrit dans le message de news:
f94ef28a-9c68-47f0-9dc1-ee8e7825f63f@f3g2000hsg.googlegroups.com...
Bonjour,
Je suis en train de créer un formulaire simple mais mes connaissances
minimes en VBA me posent quelques soucis !
J'expose : dans mon formulaire on trouve, 1 bouton ("Calcul"), 2
TextBox ("montant" et "nbre personnes") puis plusieurs autres TextBox
("1 personne", "2 pers.", "3 pers."...).
Dans ces derniers seront affichés (par une règle de 3) un montant.
Donc le résultat souhaité est le suivant : on renseigne le montant et
le nbre de personnes. On clique sur le bouton "Calcul" et un montant
s'affiche dans les textbox concernés.
Exemple : montant = 100 Euros, nbre de personnes = 10 donc le résultat
est 100 / 10 = 10 Euros.
Pour une personne, le montant de 10 Euros, pour 2 personnes = 20 Euros
etc...
Ai-je été assez clair ?
Merci d'avance pour votre soutien !
Cdt
Pierre
Cela bloque à ce niveau :
If IsNumeric(Me.tbMontant) And IsNumeric(Me.tbNbrePers) Then
A+
Pierre Fabio
"Daniel.C" a écrit dans le message de
news:Sur quelle ligne ?
Quelles sont les valeurs rentrées ?
Daniel
"fabio" a écrit dans le message de news:Merci, Daniel mais j'ai une erreur !
Au niveau "Me.tbMontant" !
"Daniel.C" a écrit dans le message de
news:%Bonjour.
Pour trois personnes maxi :
Private Sub CommandButton1_Click()
If IsNumeric(Me.tbMontant) And IsNumeric(Me.tbNbrePers) Then
result = Me.tbMontant / Me.tbNbrePers
Me.tb1 = ""
Me.tb2 = ""
Me.tb3 = ""
Select Case Me.tbNbrePers
Case "1": Me.tb1 = result
Case "2": Me.tb2 = result
Case "3": Me.tb3 = result
Case Else: MsgBox "pas prévu"
End Select
End If
End Sub
Cordialement.
Daniel
a écrit dans le message de news:
Bonjour,
Je suis en train de créer un formulaire simple mais mes connaissances
minimes en VBA me posent quelques soucis !
J'expose : dans mon formulaire on trouve, 1 bouton ("Calcul"), 2
TextBox ("montant" et "nbre personnes") puis plusieurs autres TextBox
("1 personne", "2 pers.", "3 pers."...).
Dans ces derniers seront affichés (par une règle de 3) un montant.
Donc le résultat souhaité est le suivant : on renseigne le montant et
le nbre de personnes. On clique sur le bouton "Calcul" et un montant
s'affiche dans les textbox concernés.
Exemple : montant = 100 Euros, nbre de personnes = 10 donc le résultat
est 100 / 10 = 10 Euros.
Pour une personne, le montant de 10 Euros, pour 2 personnes = 20 Euros
etc...
Ai-je été assez clair ?
Merci d'avance pour votre soutien !
Cdt
Pierre
Regarde le classeur à l'adresse :
http://cjoint.com/?mtvWEbmjjc
Daniel
"fabio" a écrit dans le message de news:Cela bloque à ce niveau :
If IsNumeric(Me.tbMontant) And IsNumeric(Me.tbNbrePers) Then
A+
Pierre Fabio
"Daniel.C" a écrit dans le message de
news:Sur quelle ligne ?
Quelles sont les valeurs rentrées ?
Daniel
"fabio" a écrit dans le message de news:Merci, Daniel mais j'ai une erreur !
Au niveau "Me.tbMontant" !
"Daniel.C" a écrit dans le message de
news:%Bonjour.
Pour trois personnes maxi :
Private Sub CommandButton1_Click()
If IsNumeric(Me.tbMontant) And IsNumeric(Me.tbNbrePers) Then
result = Me.tbMontant / Me.tbNbrePers
Me.tb1 = ""
Me.tb2 = ""
Me.tb3 = ""
Select Case Me.tbNbrePers
Case "1": Me.tb1 = result
Case "2": Me.tb2 = result
Case "3": Me.tb3 = result
Case Else: MsgBox "pas prévu"
End Select
End If
End Sub
Cordialement.
Daniel
a écrit dans le message de news:
Bonjour,
Je suis en train de créer un formulaire simple mais mes connaissances
minimes en VBA me posent quelques soucis !
J'expose : dans mon formulaire on trouve, 1 bouton ("Calcul"), 2
TextBox ("montant" et "nbre personnes") puis plusieurs autres TextBox
("1 personne", "2 pers.", "3 pers."...).
Dans ces derniers seront affichés (par une règle de 3) un montant.
Donc le résultat souhaité est le suivant : on renseigne le montant et
le nbre de personnes. On clique sur le bouton "Calcul" et un montant
s'affiche dans les textbox concernés.
Exemple : montant = 100 Euros, nbre de personnes = 10 donc le résultat
est 100 / 10 = 10 Euros.
Pour une personne, le montant de 10 Euros, pour 2 personnes = 20 Euros
etc...
Ai-je été assez clair ?
Merci d'avance pour votre soutien !
Cdt
Pierre
Regarde le classeur à l'adresse :
http://cjoint.com/?mtvWEbmjjc
Daniel
"fabio" <fabio_peronace@yahoo.fr> a écrit dans le message de news:
eFH3HsnQIHA.3516@TK2MSFTNGP02.phx.gbl...
Cela bloque à ce niveau :
If IsNumeric(Me.tbMontant) And IsNumeric(Me.tbNbrePers) Then
A+
Pierre Fabio
"Daniel.C" <dZZZcolardelle@free.fr> a écrit dans le message de
news:uWB0nbnQIHA.4476@TK2MSFTNGP06.phx.gbl...
Sur quelle ligne ?
Quelles sont les valeurs rentrées ?
Daniel
"fabio" <fabio_peronace@yahoo.fr> a écrit dans le message de news:
OLiBQWnQIHA.1204@TK2MSFTNGP03.phx.gbl...
Merci, Daniel mais j'ai une erreur !
Au niveau "Me.tbMontant" !
"Daniel.C" <dZZZcolardelle@free.fr> a écrit dans le message de
news:%23DJKuakQIHA.3516@TK2MSFTNGP02.phx.gbl...
Bonjour.
Pour trois personnes maxi :
Private Sub CommandButton1_Click()
If IsNumeric(Me.tbMontant) And IsNumeric(Me.tbNbrePers) Then
result = Me.tbMontant / Me.tbNbrePers
Me.tb1 = ""
Me.tb2 = ""
Me.tb3 = ""
Select Case Me.tbNbrePers
Case "1": Me.tb1 = result
Case "2": Me.tb2 = result
Case "3": Me.tb3 = result
Case Else: MsgBox "pas prévu"
End Select
End If
End Sub
Cordialement.
Daniel
<koukou40@free.fr> a écrit dans le message de news:
f94ef28a-9c68-47f0-9dc1-ee8e7825f63f@f3g2000hsg.googlegroups.com...
Bonjour,
Je suis en train de créer un formulaire simple mais mes connaissances
minimes en VBA me posent quelques soucis !
J'expose : dans mon formulaire on trouve, 1 bouton ("Calcul"), 2
TextBox ("montant" et "nbre personnes") puis plusieurs autres TextBox
("1 personne", "2 pers.", "3 pers."...).
Dans ces derniers seront affichés (par une règle de 3) un montant.
Donc le résultat souhaité est le suivant : on renseigne le montant et
le nbre de personnes. On clique sur le bouton "Calcul" et un montant
s'affiche dans les textbox concernés.
Exemple : montant = 100 Euros, nbre de personnes = 10 donc le résultat
est 100 / 10 = 10 Euros.
Pour une personne, le montant de 10 Euros, pour 2 personnes = 20 Euros
etc...
Ai-je été assez clair ?
Merci d'avance pour votre soutien !
Cdt
Pierre
Regarde le classeur à l'adresse :
http://cjoint.com/?mtvWEbmjjc
Daniel
"fabio" a écrit dans le message de news:Cela bloque à ce niveau :
If IsNumeric(Me.tbMontant) And IsNumeric(Me.tbNbrePers) Then
A+
Pierre Fabio
"Daniel.C" a écrit dans le message de
news:Sur quelle ligne ?
Quelles sont les valeurs rentrées ?
Daniel
"fabio" a écrit dans le message de news:Merci, Daniel mais j'ai une erreur !
Au niveau "Me.tbMontant" !
"Daniel.C" a écrit dans le message de
news:%Bonjour.
Pour trois personnes maxi :
Private Sub CommandButton1_Click()
If IsNumeric(Me.tbMontant) And IsNumeric(Me.tbNbrePers) Then
result = Me.tbMontant / Me.tbNbrePers
Me.tb1 = ""
Me.tb2 = ""
Me.tb3 = ""
Select Case Me.tbNbrePers
Case "1": Me.tb1 = result
Case "2": Me.tb2 = result
Case "3": Me.tb3 = result
Case Else: MsgBox "pas prévu"
End Select
End If
End Sub
Cordialement.
Daniel
a écrit dans le message de news:
Bonjour,
Je suis en train de créer un formulaire simple mais mes connaissances
minimes en VBA me posent quelques soucis !
J'expose : dans mon formulaire on trouve, 1 bouton ("Calcul"), 2
TextBox ("montant" et "nbre personnes") puis plusieurs autres TextBox
("1 personne", "2 pers.", "3 pers."...).
Dans ces derniers seront affichés (par une règle de 3) un montant.
Donc le résultat souhaité est le suivant : on renseigne le montant et
le nbre de personnes. On clique sur le bouton "Calcul" et un montant
s'affiche dans les textbox concernés.
Exemple : montant = 100 Euros, nbre de personnes = 10 donc le résultat
est 100 / 10 = 10 Euros.
Pour une personne, le montant de 10 Euros, pour 2 personnes = 20 Euros
etc...
Ai-je été assez clair ?
Merci d'avance pour votre soutien !
Cdt
Pierre
Merci Daniel.C pour tes efforts !
Cela fonctionne mais il y a un "mais" !
En effet, on trouve trois TextBox et lorsque je clique sur le
"CommandButton" le résultat s'affiche sur le 3ème tb !
Si par exemple j'ai un montant de 150 et un nbre de personnes de 10 (soit
un résultat de 15 pour une personne), comment afficher dans le 1er tb (qui
correspond à une personne) le résultat 15, dans le second (pour deux
personnes), 30 et dans le 3ème (pour 7 personnes), 105 ???
Merci d'avance, PF
"Daniel.C" a écrit dans le message de
news:Regarde le classeur à l'adresse :
http://cjoint.com/?mtvWEbmjjc
Daniel
"fabio" a écrit dans le message de news:Cela bloque à ce niveau :
If IsNumeric(Me.tbMontant) And IsNumeric(Me.tbNbrePers) Then
A+
Pierre Fabio
"Daniel.C" a écrit dans le message de
news:Sur quelle ligne ?
Quelles sont les valeurs rentrées ?
Daniel
"fabio" a écrit dans le message de news:Merci, Daniel mais j'ai une erreur !
Au niveau "Me.tbMontant" !
"Daniel.C" a écrit dans le message de
news:%Bonjour.
Pour trois personnes maxi :
Private Sub CommandButton1_Click()
If IsNumeric(Me.tbMontant) And IsNumeric(Me.tbNbrePers) Then
result = Me.tbMontant / Me.tbNbrePers
Me.tb1 = ""
Me.tb2 = ""
Me.tb3 = ""
Select Case Me.tbNbrePers
Case "1": Me.tb1 = result
Case "2": Me.tb2 = result
Case "3": Me.tb3 = result
Case Else: MsgBox "pas prévu"
End Select
End If
End Sub
Cordialement.
Daniel
a écrit dans le message de news:
Bonjour,
Je suis en train de créer un formulaire simple mais mes connaissances
minimes en VBA me posent quelques soucis !
J'expose : dans mon formulaire on trouve, 1 bouton ("Calcul"), 2
TextBox ("montant" et "nbre personnes") puis plusieurs autres TextBox
("1 personne", "2 pers.", "3 pers."...).
Dans ces derniers seront affichés (par une règle de 3) un montant.
Donc le résultat souhaité est le suivant : on renseigne le montant et
le nbre de personnes. On clique sur le bouton "Calcul" et un montant
s'affiche dans les textbox concernés.
Exemple : montant = 100 Euros, nbre de personnes = 10 donc le
résultat
est 100 / 10 = 10 Euros.
Pour une personne, le montant de 10 Euros, pour 2 personnes = 20
Euros
etc...
Ai-je été assez clair ?
Merci d'avance pour votre soutien !
Cdt
Pierre
Merci Daniel.C pour tes efforts !
Cela fonctionne mais il y a un "mais" !
En effet, on trouve trois TextBox et lorsque je clique sur le
"CommandButton" le résultat s'affiche sur le 3ème tb !
Si par exemple j'ai un montant de 150 et un nbre de personnes de 10 (soit
un résultat de 15 pour une personne), comment afficher dans le 1er tb (qui
correspond à une personne) le résultat 15, dans le second (pour deux
personnes), 30 et dans le 3ème (pour 7 personnes), 105 ???
Merci d'avance, PF
"Daniel.C" <dZZZcolardelle@free.fr> a écrit dans le message de
news:ekkJPCoQIHA.6060@TK2MSFTNGP05.phx.gbl...
Regarde le classeur à l'adresse :
http://cjoint.com/?mtvWEbmjjc
Daniel
"fabio" <fabio_peronace@yahoo.fr> a écrit dans le message de news:
eFH3HsnQIHA.3516@TK2MSFTNGP02.phx.gbl...
Cela bloque à ce niveau :
If IsNumeric(Me.tbMontant) And IsNumeric(Me.tbNbrePers) Then
A+
Pierre Fabio
"Daniel.C" <dZZZcolardelle@free.fr> a écrit dans le message de
news:uWB0nbnQIHA.4476@TK2MSFTNGP06.phx.gbl...
Sur quelle ligne ?
Quelles sont les valeurs rentrées ?
Daniel
"fabio" <fabio_peronace@yahoo.fr> a écrit dans le message de news:
OLiBQWnQIHA.1204@TK2MSFTNGP03.phx.gbl...
Merci, Daniel mais j'ai une erreur !
Au niveau "Me.tbMontant" !
"Daniel.C" <dZZZcolardelle@free.fr> a écrit dans le message de
news:%23DJKuakQIHA.3516@TK2MSFTNGP02.phx.gbl...
Bonjour.
Pour trois personnes maxi :
Private Sub CommandButton1_Click()
If IsNumeric(Me.tbMontant) And IsNumeric(Me.tbNbrePers) Then
result = Me.tbMontant / Me.tbNbrePers
Me.tb1 = ""
Me.tb2 = ""
Me.tb3 = ""
Select Case Me.tbNbrePers
Case "1": Me.tb1 = result
Case "2": Me.tb2 = result
Case "3": Me.tb3 = result
Case Else: MsgBox "pas prévu"
End Select
End If
End Sub
Cordialement.
Daniel
<koukou40@free.fr> a écrit dans le message de news:
f94ef28a-9c68-47f0-9dc1-ee8e7825f63f@f3g2000hsg.googlegroups.com...
Bonjour,
Je suis en train de créer un formulaire simple mais mes connaissances
minimes en VBA me posent quelques soucis !
J'expose : dans mon formulaire on trouve, 1 bouton ("Calcul"), 2
TextBox ("montant" et "nbre personnes") puis plusieurs autres TextBox
("1 personne", "2 pers.", "3 pers."...).
Dans ces derniers seront affichés (par une règle de 3) un montant.
Donc le résultat souhaité est le suivant : on renseigne le montant et
le nbre de personnes. On clique sur le bouton "Calcul" et un montant
s'affiche dans les textbox concernés.
Exemple : montant = 100 Euros, nbre de personnes = 10 donc le
résultat
est 100 / 10 = 10 Euros.
Pour une personne, le montant de 10 Euros, pour 2 personnes = 20
Euros
etc...
Ai-je été assez clair ?
Merci d'avance pour votre soutien !
Cdt
Pierre
Merci Daniel.C pour tes efforts !
Cela fonctionne mais il y a un "mais" !
En effet, on trouve trois TextBox et lorsque je clique sur le
"CommandButton" le résultat s'affiche sur le 3ème tb !
Si par exemple j'ai un montant de 150 et un nbre de personnes de 10 (soit
un résultat de 15 pour une personne), comment afficher dans le 1er tb (qui
correspond à une personne) le résultat 15, dans le second (pour deux
personnes), 30 et dans le 3ème (pour 7 personnes), 105 ???
Merci d'avance, PF
"Daniel.C" a écrit dans le message de
news:Regarde le classeur à l'adresse :
http://cjoint.com/?mtvWEbmjjc
Daniel
"fabio" a écrit dans le message de news:Cela bloque à ce niveau :
If IsNumeric(Me.tbMontant) And IsNumeric(Me.tbNbrePers) Then
A+
Pierre Fabio
"Daniel.C" a écrit dans le message de
news:Sur quelle ligne ?
Quelles sont les valeurs rentrées ?
Daniel
"fabio" a écrit dans le message de news:Merci, Daniel mais j'ai une erreur !
Au niveau "Me.tbMontant" !
"Daniel.C" a écrit dans le message de
news:%Bonjour.
Pour trois personnes maxi :
Private Sub CommandButton1_Click()
If IsNumeric(Me.tbMontant) And IsNumeric(Me.tbNbrePers) Then
result = Me.tbMontant / Me.tbNbrePers
Me.tb1 = ""
Me.tb2 = ""
Me.tb3 = ""
Select Case Me.tbNbrePers
Case "1": Me.tb1 = result
Case "2": Me.tb2 = result
Case "3": Me.tb3 = result
Case Else: MsgBox "pas prévu"
End Select
End If
End Sub
Cordialement.
Daniel
a écrit dans le message de news:
Bonjour,
Je suis en train de créer un formulaire simple mais mes connaissances
minimes en VBA me posent quelques soucis !
J'expose : dans mon formulaire on trouve, 1 bouton ("Calcul"), 2
TextBox ("montant" et "nbre personnes") puis plusieurs autres TextBox
("1 personne", "2 pers.", "3 pers."...).
Dans ces derniers seront affichés (par une règle de 3) un montant.
Donc le résultat souhaité est le suivant : on renseigne le montant et
le nbre de personnes. On clique sur le bouton "Calcul" et un montant
s'affiche dans les textbox concernés.
Exemple : montant = 100 Euros, nbre de personnes = 10 donc le
résultat
est 100 / 10 = 10 Euros.
Pour une personne, le montant de 10 Euros, pour 2 personnes = 20
Euros
etc...
Ai-je été assez clair ?
Merci d'avance pour votre soutien !
Cdt
Pierre
Je ne comprends pas ta répartition de 10 en 1,2 et 7. Et comment la
généraliser ?
Daniel
"fabio" a écrit dans le message de news:Merci Daniel.C pour tes efforts !
Cela fonctionne mais il y a un "mais" !
En effet, on trouve trois TextBox et lorsque je clique sur le
"CommandButton" le résultat s'affiche sur le 3ème tb !
Si par exemple j'ai un montant de 150 et un nbre de personnes de 10 (soit
un résultat de 15 pour une personne), comment afficher dans le 1er tb
(qui correspond à une personne) le résultat 15, dans le second (pour deux
personnes), 30 et dans le 3ème (pour 7 personnes), 105 ???
Merci d'avance, PF
"Daniel.C" a écrit dans le message de
news:Regarde le classeur à l'adresse :
http://cjoint.com/?mtvWEbmjjc
Daniel
"fabio" a écrit dans le message de news:Cela bloque à ce niveau :
If IsNumeric(Me.tbMontant) And IsNumeric(Me.tbNbrePers) Then
A+
Pierre Fabio
"Daniel.C" a écrit dans le message de
news:Sur quelle ligne ?
Quelles sont les valeurs rentrées ?
Daniel
"fabio" a écrit dans le message de news:Merci, Daniel mais j'ai une erreur !
Au niveau "Me.tbMontant" !
"Daniel.C" a écrit dans le message de
news:%Bonjour.
Pour trois personnes maxi :
Private Sub CommandButton1_Click()
If IsNumeric(Me.tbMontant) And IsNumeric(Me.tbNbrePers) Then
result = Me.tbMontant / Me.tbNbrePers
Me.tb1 = ""
Me.tb2 = ""
Me.tb3 = ""
Select Case Me.tbNbrePers
Case "1": Me.tb1 = result
Case "2": Me.tb2 = result
Case "3": Me.tb3 = result
Case Else: MsgBox "pas prévu"
End Select
End If
End Sub
Cordialement.
Daniel
a écrit dans le message de news:
Bonjour,
Je suis en train de créer un formulaire simple mais mes
connaissances
minimes en VBA me posent quelques soucis !
J'expose : dans mon formulaire on trouve, 1 bouton ("Calcul"), 2
TextBox ("montant" et "nbre personnes") puis plusieurs autres
TextBox
("1 personne", "2 pers.", "3 pers."...).
Dans ces derniers seront affichés (par une règle de 3) un montant.
Donc le résultat souhaité est le suivant : on renseigne le montant
et
le nbre de personnes. On clique sur le bouton "Calcul" et un montant
s'affiche dans les textbox concernés.
Exemple : montant = 100 Euros, nbre de personnes = 10 donc le
résultat
est 100 / 10 = 10 Euros.
Pour une personne, le montant de 10 Euros, pour 2 personnes = 20
Euros
etc...
Ai-je été assez clair ?
Merci d'avance pour votre soutien !
Cdt
Pierre
Je ne comprends pas ta répartition de 10 en 1,2 et 7. Et comment la
généraliser ?
Daniel
"fabio" <fabio_peronace@yahoo.fr> a écrit dans le message de news:
eDyVyWoQIHA.4880@TK2MSFTNGP03.phx.gbl...
Merci Daniel.C pour tes efforts !
Cela fonctionne mais il y a un "mais" !
En effet, on trouve trois TextBox et lorsque je clique sur le
"CommandButton" le résultat s'affiche sur le 3ème tb !
Si par exemple j'ai un montant de 150 et un nbre de personnes de 10 (soit
un résultat de 15 pour une personne), comment afficher dans le 1er tb
(qui correspond à une personne) le résultat 15, dans le second (pour deux
personnes), 30 et dans le 3ème (pour 7 personnes), 105 ???
Merci d'avance, PF
"Daniel.C" <dZZZcolardelle@free.fr> a écrit dans le message de
news:ekkJPCoQIHA.6060@TK2MSFTNGP05.phx.gbl...
Regarde le classeur à l'adresse :
http://cjoint.com/?mtvWEbmjjc
Daniel
"fabio" <fabio_peronace@yahoo.fr> a écrit dans le message de news:
eFH3HsnQIHA.3516@TK2MSFTNGP02.phx.gbl...
Cela bloque à ce niveau :
If IsNumeric(Me.tbMontant) And IsNumeric(Me.tbNbrePers) Then
A+
Pierre Fabio
"Daniel.C" <dZZZcolardelle@free.fr> a écrit dans le message de
news:uWB0nbnQIHA.4476@TK2MSFTNGP06.phx.gbl...
Sur quelle ligne ?
Quelles sont les valeurs rentrées ?
Daniel
"fabio" <fabio_peronace@yahoo.fr> a écrit dans le message de news:
OLiBQWnQIHA.1204@TK2MSFTNGP03.phx.gbl...
Merci, Daniel mais j'ai une erreur !
Au niveau "Me.tbMontant" !
"Daniel.C" <dZZZcolardelle@free.fr> a écrit dans le message de
news:%23DJKuakQIHA.3516@TK2MSFTNGP02.phx.gbl...
Bonjour.
Pour trois personnes maxi :
Private Sub CommandButton1_Click()
If IsNumeric(Me.tbMontant) And IsNumeric(Me.tbNbrePers) Then
result = Me.tbMontant / Me.tbNbrePers
Me.tb1 = ""
Me.tb2 = ""
Me.tb3 = ""
Select Case Me.tbNbrePers
Case "1": Me.tb1 = result
Case "2": Me.tb2 = result
Case "3": Me.tb3 = result
Case Else: MsgBox "pas prévu"
End Select
End If
End Sub
Cordialement.
Daniel
<koukou40@free.fr> a écrit dans le message de news:
f94ef28a-9c68-47f0-9dc1-ee8e7825f63f@f3g2000hsg.googlegroups.com...
Bonjour,
Je suis en train de créer un formulaire simple mais mes
connaissances
minimes en VBA me posent quelques soucis !
J'expose : dans mon formulaire on trouve, 1 bouton ("Calcul"), 2
TextBox ("montant" et "nbre personnes") puis plusieurs autres
TextBox
("1 personne", "2 pers.", "3 pers."...).
Dans ces derniers seront affichés (par une règle de 3) un montant.
Donc le résultat souhaité est le suivant : on renseigne le montant
et
le nbre de personnes. On clique sur le bouton "Calcul" et un montant
s'affiche dans les textbox concernés.
Exemple : montant = 100 Euros, nbre de personnes = 10 donc le
résultat
est 100 / 10 = 10 Euros.
Pour une personne, le montant de 10 Euros, pour 2 personnes = 20
Euros
etc...
Ai-je été assez clair ?
Merci d'avance pour votre soutien !
Cdt
Pierre
Je ne comprends pas ta répartition de 10 en 1,2 et 7. Et comment la
généraliser ?
Daniel
"fabio" a écrit dans le message de news:Merci Daniel.C pour tes efforts !
Cela fonctionne mais il y a un "mais" !
En effet, on trouve trois TextBox et lorsque je clique sur le
"CommandButton" le résultat s'affiche sur le 3ème tb !
Si par exemple j'ai un montant de 150 et un nbre de personnes de 10 (soit
un résultat de 15 pour une personne), comment afficher dans le 1er tb
(qui correspond à une personne) le résultat 15, dans le second (pour deux
personnes), 30 et dans le 3ème (pour 7 personnes), 105 ???
Merci d'avance, PF
"Daniel.C" a écrit dans le message de
news:Regarde le classeur à l'adresse :
http://cjoint.com/?mtvWEbmjjc
Daniel
"fabio" a écrit dans le message de news:Cela bloque à ce niveau :
If IsNumeric(Me.tbMontant) And IsNumeric(Me.tbNbrePers) Then
A+
Pierre Fabio
"Daniel.C" a écrit dans le message de
news:Sur quelle ligne ?
Quelles sont les valeurs rentrées ?
Daniel
"fabio" a écrit dans le message de news:Merci, Daniel mais j'ai une erreur !
Au niveau "Me.tbMontant" !
"Daniel.C" a écrit dans le message de
news:%Bonjour.
Pour trois personnes maxi :
Private Sub CommandButton1_Click()
If IsNumeric(Me.tbMontant) And IsNumeric(Me.tbNbrePers) Then
result = Me.tbMontant / Me.tbNbrePers
Me.tb1 = ""
Me.tb2 = ""
Me.tb3 = ""
Select Case Me.tbNbrePers
Case "1": Me.tb1 = result
Case "2": Me.tb2 = result
Case "3": Me.tb3 = result
Case Else: MsgBox "pas prévu"
End Select
End If
End Sub
Cordialement.
Daniel
a écrit dans le message de news:
Bonjour,
Je suis en train de créer un formulaire simple mais mes
connaissances
minimes en VBA me posent quelques soucis !
J'expose : dans mon formulaire on trouve, 1 bouton ("Calcul"), 2
TextBox ("montant" et "nbre personnes") puis plusieurs autres
TextBox
("1 personne", "2 pers.", "3 pers."...).
Dans ces derniers seront affichés (par une règle de 3) un montant.
Donc le résultat souhaité est le suivant : on renseigne le montant
et
le nbre de personnes. On clique sur le bouton "Calcul" et un montant
s'affiche dans les textbox concernés.
Exemple : montant = 100 Euros, nbre de personnes = 10 donc le
résultat
est 100 / 10 = 10 Euros.
Pour une personne, le montant de 10 Euros, pour 2 personnes = 20
Euros
etc...
Ai-je été assez clair ?
Merci d'avance pour votre soutien !
Cdt
Pierre
Je déposerai demain un fichier sur cjoint.com pour y voir un peu plus cl air
!
Bonne fin de soirée.
FP
"Daniel.C" a écrit dans le message denews:%23jwJe ne comprends pas ta répartition de 10 en 1,2 et 7. Et comment la
généraliser ?
Daniel
"fabio" a écrit dans le message de news:Merci Daniel.C pour tes efforts !
Cela fonctionne mais il y a un "mais" !
En effet, on trouve trois TextBox et lorsque je clique sur le
"CommandButton" le résultat s'affiche sur le 3ème tb !
Si par exemple j'ai un montant de 150 et un nbre de personnes de 10 (so it
un résultat de 15 pour une personne), comment afficher dans le 1er tb
(qui correspond à une personne) le résultat 15, dans le second (pou r deux
personnes), 30 et dans le 3ème (pour 7 personnes), 105 ???
Merci d'avance, PF
"Daniel.C" a écrit dans le message de
news:Regarde le classeur à l'adresse :
http://cjoint.com/?mtvWEbmjjc
Daniel
"fabio" a écrit dans le message de news:Cela bloque à ce niveau :
If IsNumeric(Me.tbMontant) And IsNumeric(Me.tbNbrePers) Then
A+
Pierre Fabio
"Daniel.C" a écrit dans le message de
news:Sur quelle ligne ?
Quelles sont les valeurs rentrées ?
Daniel
"fabio" a écrit dans le message de news:Merci, Daniel mais j'ai une erreur !
Au niveau "Me.tbMontant" !
"Daniel.C" a écrit dans le message de
news:%Bonjour.
Pour trois personnes maxi :
Private Sub CommandButton1_Click()
If IsNumeric(Me.tbMontant) And IsNumeric(Me.tbNbrePers) Then
result = Me.tbMontant / Me.tbNbrePers
Me.tb1 = ""
Me.tb2 = ""
Me.tb3 = ""
Select Case Me.tbNbrePers
Case "1": Me.tb1 = result
Case "2": Me.tb2 = result
Case "3": Me.tb3 = result
Case Else: MsgBox "pas prévu"
End Select
End If
End Sub
Cordialement.
Daniel
a écrit dans le message de news:
.
Bonjour,
Je suis en train de créer un formulaire simple mais mes
connaissances
minimes en VBA me posent quelques soucis !
J'expose : dans mon formulaire on trouve, 1 bouton ("Calcul"), 2
TextBox ("montant" et "nbre personnes") puis plusieurs autres
TextBox
("1 personne", "2 pers.", "3 pers."...).
Dans ces derniers seront affichés (par une règle de 3) un mont ant.
Donc le résultat souhaité est le suivant : on renseigne le mon tant
et
le nbre de personnes. On clique sur le bouton "Calcul" et un monta nt
s'affiche dans les textbox concernés.
Exemple : montant = 100 Euros, nbre de personnes = 10 donc le
résultat
est 100 / 10 = 10 Euros.
Pour une personne, le montant de 10 Euros, pour 2 personnes = 20
Euros
etc...
Ai-je été assez clair ?
Merci d'avance pour votre soutien !
Cdt
Pierre- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Je déposerai demain un fichier sur cjoint.com pour y voir un peu plus cl air
!
Bonne fin de soirée.
FP
"Daniel.C" <dZZZcolarde...@free.fr> a écrit dans le message denews:%23jw Q7ioQIHA.3676@TK2MSFTNGP06.phx.gbl...
Je ne comprends pas ta répartition de 10 en 1,2 et 7. Et comment la
généraliser ?
Daniel
"fabio" <fabio_peron...@yahoo.fr> a écrit dans le message de news:
eDyVyWoQIHA.4...@TK2MSFTNGP03.phx.gbl...
Merci Daniel.C pour tes efforts !
Cela fonctionne mais il y a un "mais" !
En effet, on trouve trois TextBox et lorsque je clique sur le
"CommandButton" le résultat s'affiche sur le 3ème tb !
Si par exemple j'ai un montant de 150 et un nbre de personnes de 10 (so it
un résultat de 15 pour une personne), comment afficher dans le 1er tb
(qui correspond à une personne) le résultat 15, dans le second (pou r deux
personnes), 30 et dans le 3ème (pour 7 personnes), 105 ???
Merci d'avance, PF
"Daniel.C" <dZZZcolarde...@free.fr> a écrit dans le message de
news:ekkJPCoQIHA.6060@TK2MSFTNGP05.phx.gbl...
Regarde le classeur à l'adresse :
http://cjoint.com/?mtvWEbmjjc
Daniel
"fabio" <fabio_peron...@yahoo.fr> a écrit dans le message de news:
eFH3HsnQIHA.3...@TK2MSFTNGP02.phx.gbl...
Cela bloque à ce niveau :
If IsNumeric(Me.tbMontant) And IsNumeric(Me.tbNbrePers) Then
A+
Pierre Fabio
"Daniel.C" <dZZZcolarde...@free.fr> a écrit dans le message de
news:uWB0nbnQIHA.4476@TK2MSFTNGP06.phx.gbl...
Sur quelle ligne ?
Quelles sont les valeurs rentrées ?
Daniel
"fabio" <fabio_peron...@yahoo.fr> a écrit dans le message de news:
OLiBQWnQIHA.1...@TK2MSFTNGP03.phx.gbl...
Merci, Daniel mais j'ai une erreur !
Au niveau "Me.tbMontant" !
"Daniel.C" <dZZZcolarde...@free.fr> a écrit dans le message de
news:%23DJKuakQIHA.3516@TK2MSFTNGP02.phx.gbl...
Bonjour.
Pour trois personnes maxi :
Private Sub CommandButton1_Click()
If IsNumeric(Me.tbMontant) And IsNumeric(Me.tbNbrePers) Then
result = Me.tbMontant / Me.tbNbrePers
Me.tb1 = ""
Me.tb2 = ""
Me.tb3 = ""
Select Case Me.tbNbrePers
Case "1": Me.tb1 = result
Case "2": Me.tb2 = result
Case "3": Me.tb3 = result
Case Else: MsgBox "pas prévu"
End Select
End If
End Sub
Cordialement.
Daniel
<kouko...@free.fr> a écrit dans le message de news:
f94ef28a-9c68-47f0-9dc1-ee8e7825f...@f3g2000hsg.googlegroups.com.. .
Bonjour,
Je suis en train de créer un formulaire simple mais mes
connaissances
minimes en VBA me posent quelques soucis !
J'expose : dans mon formulaire on trouve, 1 bouton ("Calcul"), 2
TextBox ("montant" et "nbre personnes") puis plusieurs autres
TextBox
("1 personne", "2 pers.", "3 pers."...).
Dans ces derniers seront affichés (par une règle de 3) un mont ant.
Donc le résultat souhaité est le suivant : on renseigne le mon tant
et
le nbre de personnes. On clique sur le bouton "Calcul" et un monta nt
s'affiche dans les textbox concernés.
Exemple : montant = 100 Euros, nbre de personnes = 10 donc le
résultat
est 100 / 10 = 10 Euros.
Pour une personne, le montant de 10 Euros, pour 2 personnes = 20
Euros
etc...
Ai-je été assez clair ?
Merci d'avance pour votre soutien !
Cdt
Pierre- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Je déposerai demain un fichier sur cjoint.com pour y voir un peu plus cl air
!
Bonne fin de soirée.
FP
"Daniel.C" a écrit dans le message denews:%23jwJe ne comprends pas ta répartition de 10 en 1,2 et 7. Et comment la
généraliser ?
Daniel
"fabio" a écrit dans le message de news:Merci Daniel.C pour tes efforts !
Cela fonctionne mais il y a un "mais" !
En effet, on trouve trois TextBox et lorsque je clique sur le
"CommandButton" le résultat s'affiche sur le 3ème tb !
Si par exemple j'ai un montant de 150 et un nbre de personnes de 10 (so it
un résultat de 15 pour une personne), comment afficher dans le 1er tb
(qui correspond à une personne) le résultat 15, dans le second (pou r deux
personnes), 30 et dans le 3ème (pour 7 personnes), 105 ???
Merci d'avance, PF
"Daniel.C" a écrit dans le message de
news:Regarde le classeur à l'adresse :
http://cjoint.com/?mtvWEbmjjc
Daniel
"fabio" a écrit dans le message de news:Cela bloque à ce niveau :
If IsNumeric(Me.tbMontant) And IsNumeric(Me.tbNbrePers) Then
A+
Pierre Fabio
"Daniel.C" a écrit dans le message de
news:Sur quelle ligne ?
Quelles sont les valeurs rentrées ?
Daniel
"fabio" a écrit dans le message de news:Merci, Daniel mais j'ai une erreur !
Au niveau "Me.tbMontant" !
"Daniel.C" a écrit dans le message de
news:%Bonjour.
Pour trois personnes maxi :
Private Sub CommandButton1_Click()
If IsNumeric(Me.tbMontant) And IsNumeric(Me.tbNbrePers) Then
result = Me.tbMontant / Me.tbNbrePers
Me.tb1 = ""
Me.tb2 = ""
Me.tb3 = ""
Select Case Me.tbNbrePers
Case "1": Me.tb1 = result
Case "2": Me.tb2 = result
Case "3": Me.tb3 = result
Case Else: MsgBox "pas prévu"
End Select
End If
End Sub
Cordialement.
Daniel
a écrit dans le message de news:
.
Bonjour,
Je suis en train de créer un formulaire simple mais mes
connaissances
minimes en VBA me posent quelques soucis !
J'expose : dans mon formulaire on trouve, 1 bouton ("Calcul"), 2
TextBox ("montant" et "nbre personnes") puis plusieurs autres
TextBox
("1 personne", "2 pers.", "3 pers."...).
Dans ces derniers seront affichés (par une règle de 3) un mont ant.
Donc le résultat souhaité est le suivant : on renseigne le mon tant
et
le nbre de personnes. On clique sur le bouton "Calcul" et un monta nt
s'affiche dans les textbox concernés.
Exemple : montant = 100 Euros, nbre de personnes = 10 donc le
résultat
est 100 / 10 = 10 Euros.
Pour une personne, le montant de 10 Euros, pour 2 personnes = 20
Euros
etc...
Ai-je été assez clair ?
Merci d'avance pour votre soutien !
Cdt
Pierre- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Je déposerai demain un fichier sur cjoint.com pour y voir un peu plus
clair
!
Bonne fin de soirée.
FP
"Daniel.C" a écrit dans le message
denews:%Je ne comprends pas ta répartition de 10 en 1,2 et 7. Et comment la
généraliser ?
Daniel
"fabio" a écrit dans le message de news:Merci Daniel.C pour tes efforts !
Cela fonctionne mais il y a un "mais" !
En effet, on trouve trois TextBox et lorsque je clique sur le
"CommandButton" le résultat s'affiche sur le 3ème tb !
Si par exemple j'ai un montant de 150 et un nbre de personnes de 10
(soit
un résultat de 15 pour une personne), comment afficher dans le 1er tb
(qui correspond à une personne) le résultat 15, dans le second (pour
deux
personnes), 30 et dans le 3ème (pour 7 personnes), 105 ???
Merci d'avance, PF
"Daniel.C" a écrit dans le message de
news:Regarde le classeur à l'adresse :
http://cjoint.com/?mtvWEbmjjc
Daniel
"fabio" a écrit dans le message de news:Cela bloque à ce niveau :
If IsNumeric(Me.tbMontant) And IsNumeric(Me.tbNbrePers) Then
A+
Pierre Fabio
"Daniel.C" a écrit dans le message de
news:Sur quelle ligne ?
Quelles sont les valeurs rentrées ?
Daniel
"fabio" a écrit dans le message de news:Merci, Daniel mais j'ai une erreur !
Au niveau "Me.tbMontant" !
"Daniel.C" a écrit dans le message de
news:%Bonjour.
Pour trois personnes maxi :
Private Sub CommandButton1_Click()
If IsNumeric(Me.tbMontant) And IsNumeric(Me.tbNbrePers) Then
result = Me.tbMontant / Me.tbNbrePers
Me.tb1 = ""
Me.tb2 = ""
Me.tb3 = ""
Select Case Me.tbNbrePers
Case "1": Me.tb1 = result
Case "2": Me.tb2 = result
Case "3": Me.tb3 = result
Case Else: MsgBox "pas prévu"
End Select
End If
End Sub
Cordialement.
Daniel
a écrit dans le message de news:
Bonjour,
Je suis en train de créer un formulaire simple mais mes
connaissances
minimes en VBA me posent quelques soucis !
J'expose : dans mon formulaire on trouve, 1 bouton ("Calcul"), 2
TextBox ("montant" et "nbre personnes") puis plusieurs autres
TextBox
("1 personne", "2 pers.", "3 pers."...).
Dans ces derniers seront affichés (par une règle de 3) un montant.
Donc le résultat souhaité est le suivant : on renseigne le montant
et
le nbre de personnes. On clique sur le bouton "Calcul" et un
montant
s'affiche dans les textbox concernés.
Exemple : montant = 100 Euros, nbre de personnes = 10 donc le
résultat
est 100 / 10 = 10 Euros.
Pour une personne, le montant de 10 Euros, pour 2 personnes = 20
Euros
etc...
Ai-je été assez clair ?
Merci d'avance pour votre soutien !
Cdt
Pierre- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Je déposerai demain un fichier sur cjoint.com pour y voir un peu plus
clair
!
Bonne fin de soirée.
FP
"Daniel.C" <dZZZcolarde...@free.fr> a écrit dans le message
denews:%23jwQ7ioQIHA.3676@TK2MSFTNGP06.phx.gbl...
Je ne comprends pas ta répartition de 10 en 1,2 et 7. Et comment la
généraliser ?
Daniel
"fabio" <fabio_peron...@yahoo.fr> a écrit dans le message de news:
eDyVyWoQIHA.4...@TK2MSFTNGP03.phx.gbl...
Merci Daniel.C pour tes efforts !
Cela fonctionne mais il y a un "mais" !
En effet, on trouve trois TextBox et lorsque je clique sur le
"CommandButton" le résultat s'affiche sur le 3ème tb !
Si par exemple j'ai un montant de 150 et un nbre de personnes de 10
(soit
un résultat de 15 pour une personne), comment afficher dans le 1er tb
(qui correspond à une personne) le résultat 15, dans le second (pour
deux
personnes), 30 et dans le 3ème (pour 7 personnes), 105 ???
Merci d'avance, PF
"Daniel.C" <dZZZcolarde...@free.fr> a écrit dans le message de
news:ekkJPCoQIHA.6060@TK2MSFTNGP05.phx.gbl...
Regarde le classeur à l'adresse :
http://cjoint.com/?mtvWEbmjjc
Daniel
"fabio" <fabio_peron...@yahoo.fr> a écrit dans le message de news:
eFH3HsnQIHA.3...@TK2MSFTNGP02.phx.gbl...
Cela bloque à ce niveau :
If IsNumeric(Me.tbMontant) And IsNumeric(Me.tbNbrePers) Then
A+
Pierre Fabio
"Daniel.C" <dZZZcolarde...@free.fr> a écrit dans le message de
news:uWB0nbnQIHA.4476@TK2MSFTNGP06.phx.gbl...
Sur quelle ligne ?
Quelles sont les valeurs rentrées ?
Daniel
"fabio" <fabio_peron...@yahoo.fr> a écrit dans le message de news:
OLiBQWnQIHA.1...@TK2MSFTNGP03.phx.gbl...
Merci, Daniel mais j'ai une erreur !
Au niveau "Me.tbMontant" !
"Daniel.C" <dZZZcolarde...@free.fr> a écrit dans le message de
news:%23DJKuakQIHA.3516@TK2MSFTNGP02.phx.gbl...
Bonjour.
Pour trois personnes maxi :
Private Sub CommandButton1_Click()
If IsNumeric(Me.tbMontant) And IsNumeric(Me.tbNbrePers) Then
result = Me.tbMontant / Me.tbNbrePers
Me.tb1 = ""
Me.tb2 = ""
Me.tb3 = ""
Select Case Me.tbNbrePers
Case "1": Me.tb1 = result
Case "2": Me.tb2 = result
Case "3": Me.tb3 = result
Case Else: MsgBox "pas prévu"
End Select
End If
End Sub
Cordialement.
Daniel
<kouko...@free.fr> a écrit dans le message de news:
f94ef28a-9c68-47f0-9dc1-ee8e7825f...@f3g2000hsg.googlegroups.com...
Bonjour,
Je suis en train de créer un formulaire simple mais mes
connaissances
minimes en VBA me posent quelques soucis !
J'expose : dans mon formulaire on trouve, 1 bouton ("Calcul"), 2
TextBox ("montant" et "nbre personnes") puis plusieurs autres
TextBox
("1 personne", "2 pers.", "3 pers."...).
Dans ces derniers seront affichés (par une règle de 3) un montant.
Donc le résultat souhaité est le suivant : on renseigne le montant
et
le nbre de personnes. On clique sur le bouton "Calcul" et un
montant
s'affiche dans les textbox concernés.
Exemple : montant = 100 Euros, nbre de personnes = 10 donc le
résultat
est 100 / 10 = 10 Euros.
Pour une personne, le montant de 10 Euros, pour 2 personnes = 20
Euros
etc...
Ai-je été assez clair ?
Merci d'avance pour votre soutien !
Cdt
Pierre- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Je déposerai demain un fichier sur cjoint.com pour y voir un peu plus
clair
!
Bonne fin de soirée.
FP
"Daniel.C" a écrit dans le message
denews:%Je ne comprends pas ta répartition de 10 en 1,2 et 7. Et comment la
généraliser ?
Daniel
"fabio" a écrit dans le message de news:Merci Daniel.C pour tes efforts !
Cela fonctionne mais il y a un "mais" !
En effet, on trouve trois TextBox et lorsque je clique sur le
"CommandButton" le résultat s'affiche sur le 3ème tb !
Si par exemple j'ai un montant de 150 et un nbre de personnes de 10
(soit
un résultat de 15 pour une personne), comment afficher dans le 1er tb
(qui correspond à une personne) le résultat 15, dans le second (pour
deux
personnes), 30 et dans le 3ème (pour 7 personnes), 105 ???
Merci d'avance, PF
"Daniel.C" a écrit dans le message de
news:Regarde le classeur à l'adresse :
http://cjoint.com/?mtvWEbmjjc
Daniel
"fabio" a écrit dans le message de news:Cela bloque à ce niveau :
If IsNumeric(Me.tbMontant) And IsNumeric(Me.tbNbrePers) Then
A+
Pierre Fabio
"Daniel.C" a écrit dans le message de
news:Sur quelle ligne ?
Quelles sont les valeurs rentrées ?
Daniel
"fabio" a écrit dans le message de news:Merci, Daniel mais j'ai une erreur !
Au niveau "Me.tbMontant" !
"Daniel.C" a écrit dans le message de
news:%Bonjour.
Pour trois personnes maxi :
Private Sub CommandButton1_Click()
If IsNumeric(Me.tbMontant) And IsNumeric(Me.tbNbrePers) Then
result = Me.tbMontant / Me.tbNbrePers
Me.tb1 = ""
Me.tb2 = ""
Me.tb3 = ""
Select Case Me.tbNbrePers
Case "1": Me.tb1 = result
Case "2": Me.tb2 = result
Case "3": Me.tb3 = result
Case Else: MsgBox "pas prévu"
End Select
End If
End Sub
Cordialement.
Daniel
a écrit dans le message de news:
Bonjour,
Je suis en train de créer un formulaire simple mais mes
connaissances
minimes en VBA me posent quelques soucis !
J'expose : dans mon formulaire on trouve, 1 bouton ("Calcul"), 2
TextBox ("montant" et "nbre personnes") puis plusieurs autres
TextBox
("1 personne", "2 pers.", "3 pers."...).
Dans ces derniers seront affichés (par une règle de 3) un montant.
Donc le résultat souhaité est le suivant : on renseigne le montant
et
le nbre de personnes. On clique sur le bouton "Calcul" et un
montant
s'affiche dans les textbox concernés.
Exemple : montant = 100 Euros, nbre de personnes = 10 donc le
résultat
est 100 / 10 = 10 Euros.
Pour une personne, le montant de 10 Euros, pour 2 personnes = 20
Euros
etc...
Ai-je été assez clair ?
Merci d'avance pour votre soutien !
Cdt
Pierre- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -