Formule...

Private Sub CommandButton1_Click()
[Feuil1!T4] = Me.TextBox2.Value * 12
End Sub

AV

Bonjour,

Essaie avec cela:

If OptionButton9.Value = True And _
OptionButton2.Value = True Then _
Range("T4").Value = 12 * cdbl(me.textbox2.value)

"Denys" <anonymous@discussions.microsoft.com> a écrit dans le message
de news:0dd601c3a486$86f56d30$a401280a@phx.gbl...
Bonjour à tous,

Sur une feuille Excel, je voudrais que la cellule T4 soit
égale à 12 fois le montant inscrit dans le textbox2 de mon
userform, si le bouton d'option 2 et le bouton d'option 9
sont activés... Voici ma formule actuelle...

Private Sub CommandButton1_Click()

If OptionButton9.Value = True And OptionButton2.Value True Then Range("T4").Value (ou . Formula)
= "=(me.textbox2.value)*12"

Ca ne fonctionne pas....

Dans la cellule T4 on ne voit que le résultat de la
formule, soit =(me.textbox2.value)*12

Quelqu'un aurait une petite idée??

Merci

Denys

Bonsoir Denys,

Variante :

If OptionButton2 And OptionButton9 Then
Range("T4") = TextBox2 * 12
End If

Value est la propriété par défaut des objets TextBox et
OptionButton. Il n'est donc pas utile de le préciser.

Quant à "=True", c'est l'équivalent d'un pléonasme :

Dans ce genre de test, une expression booléenne est évaluée
et le résultat ne peut être que True or False.

Je sais bien qu'intuitivement beaucoup de gens ont tendance
à écrire "=True" (ou =VRAI avec la fonction SI()) des feuilles
de calcul, mais ce n'est pas nécessaire : cela équivaut à dire dans
le langage courant :

"S'il est vrai que j'ai la moyenne en maths, je serai reçu."

au lieu de

"Si j'ai la moyenne en maths, je serai reçu."

Bonjour à tous,

Sur une feuille Excel, je voudrais que la cellule T4 soit
égale à 12 fois le montant inscrit dans le textbox2 de mon
userform, si le bouton d'option 2 et le bouton d'option 9
sont activés... Voici ma formule actuelle...

Private Sub CommandButton1_Click()

If OptionButton9.Value = True And OptionButton2.Value > True Then Range("T4").Value (ou . Formula)
= "=(me.textbox2.value)*12"

Ca ne fonctionne pas....

Dans la cellule T4 on ne voit que le résultat de la
formule, soit =(me.textbox2.value)*12

Quelqu'un aurait une petite idée??

Merci

Denys

--
Cordialement,

Michel Gaboly
http://www.gaboly.com

Toujours aussi pointilleux ! ;-)
Mais je crois tout de même que c'est une bonne chose
d'ajouter des détails «superfétatoires ou pléonasmiques»
pour que le «lecteur» sache à quoi s'en tenir.

;-)))

Serge


"Michel Gaboly" <michel@Suppgaboly.com> a écrit dans le message de news:
3FAA8AE9.123CE94A@Suppgaboly.com...

Bonsoir Denys,

Variante :

If OptionButton2 And OptionButton9 Then
Range("T4") = TextBox2 * 12
End If

Value est la propriété par défaut des objets TextBox et
OptionButton. Il n'est donc pas utile de le préciser.

Quant à "=True", c'est l'équivalent d'un pléonasme :

Dans ce genre de test, une expression booléenne est évaluée
et le résultat ne peut être que True or False.

Je sais bien qu'intuitivement beaucoup de gens ont tendance
à écrire "=True" (ou =VRAI avec la fonction SI()) des feuilles
de calcul, mais ce n'est pas nécessaire : cela équivaut à dire dans
le langage courant :

"S'il est vrai que j'ai la moyenne en maths, je serai reçu."

au lieu de

"Si j'ai la moyenne en maths, je serai reçu."

Bonjour à tous,

Sur une feuille Excel, je voudrais que la cellule T4 soit
égale à 12 fois le montant inscrit dans le textbox2 de mon
userform, si le bouton d'option 2 et le bouton d'option 9
sont activés... Voici ma formule actuelle...

Private Sub CommandButton1_Click()

If OptionButton9.Value = True And OptionButton2.Value > > True Then Range("T4").Value (ou . Formula)
= "=(me.textbox2.value)*12"

Ca ne fonctionne pas....

Dans la cellule T4 on ne voit que le résultat de la
formule, soit =(me.textbox2.value)*12

Quelqu'un aurait une petite idée??

Merci

Denys

--
Cordialement,

Michel Gaboly
http://www.gaboly.com

Bonjour Michel, Alain et Clément,

Merci à vous trois pour votre réponse si rapide. C'est
très apprécié...

Bonne journée

Denys

-----Original Message-----
Bonjour à tous,

Sur une feuille Excel, je voudrais que la cellule T4 soit
égale à 12 fois le montant inscrit dans le textbox2 de
mon

userform, si le bouton d'option 2 et le bouton d'option 9
sont activés... Voici ma formule actuelle...

Private Sub CommandButton1_Click()

If OptionButton9.Value = True And OptionButton2.Value =
True Then Range("T4").Value (ou . Formula)
= "=(me.textbox2.value)*12"

Ca ne fonctionne pas....

Dans la cellule T4 on ne voit que le résultat de la
formule, soit =(me.textbox2.value)*12

Quelqu'un aurait une petite idée??

Merci

Denys
.

Salut Serge,

C'est vrai que ça fait plaisir d'avoir une explication
supplémentaire. Cela aide à parfaire les choses.

Bonne journée

Denys

-----Original Message-----

Toujours aussi pointilleux ! ;-)
Mais je crois tout de même que c'est une bonne chose
d'ajouter des détails «superfétatoires ou pléonasmiques»
pour que le «lecteur» sache à quoi s'en tenir.

;-)))

Serge


"Michel Gaboly" <michel@Suppgaboly.com> a écrit dans le
message de news:

3FAA8AE9.123CE94A@Suppgaboly.com...

Bonsoir Denys,

Variante :

If OptionButton2 And OptionButton9 Then
Range("T4") = TextBox2 * 12
End If

Value est la propriété par défaut des objets TextBox et
OptionButton. Il n'est donc pas utile de le préciser.

Quant à "=True", c'est l'équivalent d'un pléonasme :

Dans ce genre de test, une expression booléenne est
évaluée

et le résultat ne peut être que True or False.

Je sais bien qu'intuitivement beaucoup de gens ont
tendance

à écrire "=True" (ou =VRAI avec la fonction SI()) des
feuilles

de calcul, mais ce n'est pas nécessaire : cela équivaut
à dire dans

le langage courant :

"S'il est vrai que j'ai la moyenne en maths, je serai
reçu."

au lieu de

"Si j'ai la moyenne en maths, je serai reçu."

Bonjour à tous,

Sur une feuille Excel, je voudrais que la cellule T4
soit

égale à 12 fois le montant inscrit dans le textbox2
de mon

userform, si le bouton d'option 2 et le bouton
d'option 9

sont activés... Voici ma formule actuelle...

Private Sub CommandButton1_Click()

If OptionButton9.Value = True And OptionButton2.Value
=

True Then Range("T4").Value (ou . Formula)
= "=(me.textbox2.value)*12"

Ca ne fonctionne pas....

Dans la cellule T4 on ne voit que le résultat de la
formule, soit =(me.textbox2.value)*12

Quelqu'un aurait une petite idée??

Merci

Denys

--
Cordialement,

Michel Gaboly
http://www.gaboly.com

.

Salut Serge,

Pointilleux ? Les grands mots, tout de suite ;-)))

C'est juste une question d'approche : quand j'ai découvert VBA à l'époque
d'Excel 5, alors que je pratiquais les anciennes macros depuis longtemps,
j'ai détesté ce langage, en particulier parce ce que je le trouvais effroya-
blement verbeux.

J'ai toujours la même impression désagréable vis-à-vis du code produit
par l'enregistreur de macros.

C'est pour cela que j'essaye d'éviter le code inutile.


Je sais que certains vont prétendre que c'est contradictoire avec la fréquente
longueur de mes interventions ici, mais ceci est une autre histoire ;-)))

Toujours aussi pointilleux ! ;-)
Mais je crois tout de même que c'est une bonne chose
d'ajouter des détails «superfétatoires ou pléonasmiques»
pour que le «lecteur» sache à quoi s'en tenir.

;-)))

Serge

"Michel Gaboly" <michel@Suppgaboly.com> a écrit dans le message de news:
3FAA8AE9.123CE94A@Suppgaboly.com...

Bonsoir Denys,

Variante :

If OptionButton2 And OptionButton9 Then
Range("T4") = TextBox2 * 12
End If

Value est la propriété par défaut des objets TextBox et
OptionButton. Il n'est donc pas utile de le préciser.

Quant à "=True", c'est l'équivalent d'un pléonasme :

Dans ce genre de test, une expression booléenne est évaluée
et le résultat ne peut être que True or False.

Je sais bien qu'intuitivement beaucoup de gens ont tendance
à écrire "=True" (ou =VRAI avec la fonction SI()) des feuilles
de calcul, mais ce n'est pas nécessaire : cela équivaut à dire dans
le langage courant :

"S'il est vrai que j'ai la moyenne en maths, je serai reçu."

au lieu de

"Si j'ai la moyenne en maths, je serai reçu."

Bonjour à tous,

Sur une feuille Excel, je voudrais que la cellule T4 soit
égale à 12 fois le montant inscrit dans le textbox2 de mon
userform, si le bouton d'option 2 et le bouton d'option 9
sont activés... Voici ma formule actuelle...

Private Sub CommandButton1_Click()

If OptionButton9.Value = True And OptionButton2.Value > > > True Then Range("T4").Value (ou . Formula)
= "=(me.textbox2.value)*12"

Ca ne fonctionne pas....

Dans la cellule T4 on ne voit que le résultat de la
formule, soit =(me.textbox2.value)*12

Quelqu'un aurait une petite idée??

Merci

Denys

--
Cordialement,

Michel Gaboly
http://www.gaboly.com

--
Cordialement,

Michel Gaboly
http://www.gaboly.com

;-)))

Et j'ose espérer que tu ne cesseras pas de nous
mettre les points sur les i.
Quoique ... si on mettait un point sur un i, ça en ferait deux !!!

Serge

"Michel Gaboly" <michel@Suppgaboly.com> a écrit dans le message de news:
3FAA976F.5C9B45EA@Suppgaboly.com...

Salut Serge,

Pointilleux ? Les grands mots, tout de suite ;-)))

C'est juste une question d'approche : quand j'ai découvert VBA à l'époque
d'Excel 5, alors que je pratiquais les anciennes macros depuis longtemps,
j'ai détesté ce langage, en particulier parce ce que je le trouvais
effroya-

blement verbeux.

J'ai toujours la même impression désagréable vis-à-vis du code produit
par l'enregistreur de macros.

C'est pour cela que j'essaye d'éviter le code inutile.


Je sais que certains vont prétendre que c'est contradictoire avec la
fréquente

longueur de mes interventions ici, mais ceci est une autre histoire ;-)))

Toujours aussi pointilleux ! ;-)
Mais je crois tout de même que c'est une bonne chose
d'ajouter des détails «superfétatoires ou pléonasmiques»
pour que le «lecteur» sache à quoi s'en tenir.

;-)))

Serge

"Michel Gaboly" <michel@Suppgaboly.com> a écrit dans le message de news:
3FAA8AE9.123CE94A@Suppgaboly.com...

Bonsoir Denys,

Variante :

If OptionButton2 And OptionButton9 Then
Range("T4") = TextBox2 * 12
End If

Value est la propriété par défaut des objets TextBox et
OptionButton. Il n'est donc pas utile de le préciser.

Quant à "=True", c'est l'équivalent d'un pléonasme :

Dans ce genre de test, une expression booléenne est évaluée
et le résultat ne peut être que True or False.

Je sais bien qu'intuitivement beaucoup de gens ont tendance
à écrire "=True" (ou =VRAI avec la fonction SI()) des feuilles
de calcul, mais ce n'est pas nécessaire : cela équivaut à dire dans
le langage courant :

"S'il est vrai que j'ai la moyenne en maths, je serai reçu."

au lieu de

"Si j'ai la moyenne en maths, je serai reçu."

Bonjour à tous,

Sur une feuille Excel, je voudrais que la cellule T4 soit
égale à 12 fois le montant inscrit dans le textbox2 de mon
userform, si le bouton d'option 2 et le bouton d'option 9
sont activés... Voici ma formule actuelle...

Private Sub CommandButton1_Click()

If OptionButton9.Value = True And OptionButton2.Value > > > > True Then Range("T4").Value (ou . Formula)
= "=(me.textbox2.value)*12"

Ca ne fonctionne pas....

Dans la cellule T4 on ne voit que le résultat de la
formule, soit =(me.textbox2.value)*12

Quelqu'un aurait une petite idée??

Merci

Denys

--
Cordialement,

Michel Gaboly
http://www.gaboly.com

--
Cordialement,

Michel Gaboly
http://www.gaboly.com

Re,

"si on mettait un point sur un i, ça en ferait deux !!!"


Pas toujours :

j'ai passé 1 mois en Turquie cet été, où je disposais au départ d'1
poste équipé de Windows 95 et d'Excel, tous les 2 en version turque.

Je te garantis que cela fait un peu bizarre. Pour améliorer le tout,
on trouve sur les claviers turcs 2 "i" distincts, l'un sans point,
l'autre avec.

Pour faciliter les choses la touche correspondant au "i" sans point
se trouve à l'emplacement habituel du "i" avec point !

Bien évidemment, le "i" sans point n'est pas reconnu par VBA pour
tous les mots du langage (if, integer, with ...).

L'utilisation du "i" sans point dans le nom d'un fichier est accepté,
mais Excel refuse ensuite de l'ouvrir ;-))) Un double clic sur le
fichier dans l'explorateur ne marche pas non plus.

Il est nécessaire de renommer le fichier si on veut l'ouvrir.

Pour tout arranger, pour obtenir notre "i" habituel en majuscule,
auquel on ne met pas de point en général, il faut utiliser Majuscule
+ ... le "i" sans point, bien sûr ! Tandis que Majuscule + "i" avec point
donne un "i" majuscule avec point, non reconnu par VBA ;-)))

Tu as touché un point (sans i ;-))) sensible, comme tu peux le voir ;-))

;-)))

Et j'ose espérer que tu ne cesseras pas de nous
mettre les points sur les i.
Quoique ... si on mettait un point sur un i, ça en ferait deux !!!

Serge

"Michel Gaboly" <michel@Suppgaboly.com> a écrit dans le message de news:
3FAA976F.5C9B45EA@Suppgaboly.com...

Salut Serge,

Pointilleux ? Les grands mots, tout de suite ;-)))

C'est juste une question d'approche : quand j'ai découvert VBA à l'époque
d'Excel 5, alors que je pratiquais les anciennes macros depuis longtemps,
j'ai détesté ce langage, en particulier parce ce que je le trouvais
effroya-

blement verbeux.

J'ai toujours la même impression désagréable vis-à-vis du code produit
par l'enregistreur de macros.

C'est pour cela que j'essaye d'éviter le code inutile.


Je sais que certains vont prétendre que c'est contradictoire avec la
fréquente

longueur de mes interventions ici, mais ceci est une autre histoire ;-)))

Toujours aussi pointilleux ! ;-)
Mais je crois tout de même que c'est une bonne chose
d'ajouter des détails «superfétatoires ou pléonasmiques»
pour que le «lecteur» sache à quoi s'en tenir.

;-)))

Serge

"Michel Gaboly" <michel@Suppgaboly.com> a écrit dans le message de news:
3FAA8AE9.123CE94A@Suppgaboly.com...

Bonsoir Denys,

Variante :

If OptionButton2 And OptionButton9 Then
Range("T4") = TextBox2 * 12
End If

Value est la propriété par défaut des objets TextBox et
OptionButton. Il n'est donc pas utile de le préciser.

Quant à "=True", c'est l'équivalent d'un pléonasme :

Dans ce genre de test, une expression booléenne est évaluée
et le résultat ne peut être que True or False.

Je sais bien qu'intuitivement beaucoup de gens ont tendance
à écrire "=True" (ou =VRAI avec la fonction SI()) des feuilles
de calcul, mais ce n'est pas nécessaire : cela équivaut à dire dans
le langage courant :

"S'il est vrai que j'ai la moyenne en maths, je serai reçu."

au lieu de

"Si j'ai la moyenne en maths, je serai reçu."

Bonjour à tous,

Sur une feuille Excel, je voudrais que la cellule T4 soit
égale à 12 fois le montant inscrit dans le textbox2 de mon
userform, si le bouton d'option 2 et le bouton d'option 9
sont activés... Voici ma formule actuelle...

Private Sub CommandButton1_Click()

If OptionButton9.Value = True And OptionButton2.Value > > > > > True Then Range("T4").Value (ou . Formula)
= "=(me.textbox2.value)*12"

Ca ne fonctionne pas....

Dans la cellule T4 on ne voit que le résultat de la
formule, soit =(me.textbox2.value)*12

Quelqu'un aurait une petite idée??

Merci

Denys

--
Cordialement,

Michel Gaboly
http://www.gaboly.com

--
Cordialement,

Michel Gaboly
http://www.gaboly.com

--
Cordialement,

Michel Gaboly
http://www.gaboly.com

iiiiiiiiiiiiiii !!!!

Elle est bien bonne celle-là.

J'ai un ami retraité qui vit avec une Turque en Turquie
et je ne manquerai pas de lui faire parvenir
les complications Excel de
son pays d'adoption !

;-)))

Serge



"Michel Gaboly" <michel@Suppgaboly.com> a écrit dans le message de news:
3FAAAFDD.9D3AB52A@Suppgaboly.com...

Re,

"si on mettait un point sur un i, ça en ferait deux !!!"


Pas toujours :

j'ai passé 1 mois en Turquie cet été, où je disposais au départ d'1
poste équipé de Windows 95 et d'Excel, tous les 2 en version turque.

Je te garantis que cela fait un peu bizarre. Pour améliorer le tout,
on trouve sur les claviers turcs 2 "i" distincts, l'un sans point,
l'autre avec.

Pour faciliter les choses la touche correspondant au "i" sans point
se trouve à l'emplacement habituel du "i" avec point !

Bien évidemment, le "i" sans point n'est pas reconnu par VBA pour
tous les mots du langage (if, integer, with ...).

L'utilisation du "i" sans point dans le nom d'un fichier est accepté,
mais Excel refuse ensuite de l'ouvrir ;-))) Un double clic sur le
fichier dans l'explorateur ne marche pas non plus.

Il est nécessaire de renommer le fichier si on veut l'ouvrir.

Pour tout arranger, pour obtenir notre "i" habituel en majuscule,
auquel on ne met pas de point en général, il faut utiliser Majuscule
+ ... le "i" sans point, bien sûr ! Tandis que Majuscule + "i" avec point
donne un "i" majuscule avec point, non reconnu par VBA ;-)))

Tu as touché un point (sans i ;-))) sensible, comme tu peux le voir ;-))

;-)))

Et j'ose espérer que tu ne cesseras pas de nous
mettre les points sur les i.
Quoique ... si on mettait un point sur un i, ça en ferait deux !!!

Serge

"Michel Gaboly" <michel@Suppgaboly.com> a écrit dans le message de news:
3FAA976F.5C9B45EA@Suppgaboly.com...

Salut Serge,

Pointilleux ? Les grands mots, tout de suite ;-)))

C'est juste une question d'approche : quand j'ai découvert VBA à
l'époque

d'Excel 5, alors que je pratiquais les anciennes macros depuis
longtemps,

j'ai détesté ce langage, en particulier parce ce que je le trouvais
effroya-

blement verbeux.

J'ai toujours la même impression désagréable vis-à-vis du code produit
par l'enregistreur de macros.

C'est pour cela que j'essaye d'éviter le code inutile.


Je sais que certains vont prétendre que c'est contradictoire avec la
fréquente

longueur de mes interventions ici, mais ceci est une autre histoire
;-)))

Toujours aussi pointilleux ! ;-)
Mais je crois tout de même que c'est une bonne chose
d'ajouter des détails «superfétatoires ou pléonasmiques»
pour que le «lecteur» sache à quoi s'en tenir.

;-)))

Serge

"Michel Gaboly" <michel@Suppgaboly.com> a écrit dans le message de
news:

3FAA8AE9.123CE94A@Suppgaboly.com...

Bonsoir Denys,

Variante :

If OptionButton2 And OptionButton9 Then
Range("T4") = TextBox2 * 12
End If

Value est la propriété par défaut des objets TextBox et
OptionButton. Il n'est donc pas utile de le préciser.

Quant à "=True", c'est l'équivalent d'un pléonasme :

Dans ce genre de test, une expression booléenne est évaluée
et le résultat ne peut être que True or False.

Je sais bien qu'intuitivement beaucoup de gens ont tendance
à écrire "=True" (ou =VRAI avec la fonction SI()) des feuilles
de calcul, mais ce n'est pas nécessaire : cela équivaut à dire
dans

le langage courant :

"S'il est vrai que j'ai la moyenne en maths, je serai reçu."

au lieu de

"Si j'ai la moyenne en maths, je serai reçu."

Bonjour à tous,

Sur une feuille Excel, je voudrais que la cellule T4 soit
égale à 12 fois le montant inscrit dans le textbox2 de mon
userform, si le bouton d'option 2 et le bouton d'option 9
sont activés... Voici ma formule actuelle...

Private Sub CommandButton1_Click()

If OptionButton9.Value = True And OptionButton2.Value > > > > > > True Then Range("T4").Value (ou . Formula)
= "=(me.textbox2.value)*12"

Ca ne fonctionne pas....

Dans la cellule T4 on ne voit que le résultat de la
formule, soit =(me.textbox2.value)*12

Quelqu'un aurait une petite idée??

Merci

Denys

--
Cordialement,

Michel Gaboly
http://www.gaboly.com

--
Cordialement,

Michel Gaboly
http://www.gaboly.com

--
Cordialement,

Michel Gaboly
http://www.gaboly.com