Bonsoir.
j'ai sur 1 userform 1 textbox, et 2 optionbutton
je saisis dans le premier textbox des numéro.
Si le 1er numéro est 1, option button1 = true
Si le 1er numéro est 2, option button2 = true
Merci
Flo riant
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
Pierre Fauconnier
Bonsoir
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean) If Left(TextBox1, 1) = 1 Then OptionButton1 = True If Left(TextBox1, 1) = 2 Then OptionButton2 = True
End Sub
ou bien, pour autant que tes optionbutton soient nommés avec leur "rang" comme dernier caractère
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean) Controls("optionbutton" & Left(TextBox1, 1)) = True
End Sub
Ok?
-- Pierre Fauconnier () "Le bonheur n'est pas au bout du chemin. Le bonheur EST le chemin ( proverbe zen ) Remplacez nospam.nospam par pfi.be pour répondre. Merci
"Florian" a écrit dans le message de news: %
Bonsoir. j'ai sur 1 userform 1 textbox, et 2 optionbutton je saisis dans le premier textbox des numéro. Si le 1er numéro est 1, option button1 = true Si le 1er numéro est 2, option button2 = true Merci Flo riant
Bonsoir
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Left(TextBox1, 1) = 1 Then OptionButton1 = True
If Left(TextBox1, 1) = 2 Then OptionButton2 = True
End Sub
ou bien, pour autant que tes optionbutton soient nommés avec leur "rang"
comme dernier caractère
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Controls("optionbutton" & Left(TextBox1, 1)) = True
End Sub
Ok?
--
Pierre Fauconnier (pierre.fauconnier@nospam.nospam)
"Le bonheur n'est pas au bout du chemin. Le bonheur EST le chemin ( proverbe
zen )
Remplacez nospam.nospam par pfi.be pour répondre. Merci
"Florian" <florian@toto.fr> a écrit dans le message de news:
%23EkRkPQcFHA.2124@TK2MSFTNGP14.phx.gbl...
Bonsoir.
j'ai sur 1 userform 1 textbox, et 2 optionbutton
je saisis dans le premier textbox des numéro.
Si le 1er numéro est 1, option button1 = true
Si le 1er numéro est 2, option button2 = true
Merci
Flo riant
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean) If Left(TextBox1, 1) = 1 Then OptionButton1 = True If Left(TextBox1, 1) = 2 Then OptionButton2 = True
End Sub
ou bien, pour autant que tes optionbutton soient nommés avec leur "rang" comme dernier caractère
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean) Controls("optionbutton" & Left(TextBox1, 1)) = True
End Sub
Ok?
-- Pierre Fauconnier () "Le bonheur n'est pas au bout du chemin. Le bonheur EST le chemin ( proverbe zen ) Remplacez nospam.nospam par pfi.be pour répondre. Merci
"Florian" a écrit dans le message de news: %
Bonsoir. j'ai sur 1 userform 1 textbox, et 2 optionbutton je saisis dans le premier textbox des numéro. Si le 1er numéro est 1, option button1 = true Si le 1er numéro est 2, option button2 = true Merci Flo riant
Florian
Un grand merci Pierre c'est parfait
"Pierre Fauconnier" a écrit dans le message de news:
Bonsoir
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean) If Left(TextBox1, 1) = 1 Then OptionButton1 = True If Left(TextBox1, 1) = 2 Then OptionButton2 = True
End Sub
ou bien, pour autant que tes optionbutton soient nommés avec leur "rang" comme dernier caractère
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean) Controls("optionbutton" & Left(TextBox1, 1)) = True
End Sub
Ok?
-- Pierre Fauconnier () "Le bonheur n'est pas au bout du chemin. Le bonheur EST le chemin ( proverbe zen ) Remplacez nospam.nospam par pfi.be pour répondre. Merci
"Florian" a écrit dans le message de news: %
Bonsoir. j'ai sur 1 userform 1 textbox, et 2 optionbutton je saisis dans le premier textbox des numéro. Si le 1er numéro est 1, option button1 = true Si le 1er numéro est 2, option button2 = true Merci Flo riant
Un grand merci Pierre
c'est parfait
"Pierre Fauconnier" <pierre.fauconnier@nospam.nospam> a écrit dans le
message de news: OS4Wm8QcFHA.612@TK2MSFTNGP12.phx.gbl...
Bonsoir
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Left(TextBox1, 1) = 1 Then OptionButton1 = True
If Left(TextBox1, 1) = 2 Then OptionButton2 = True
End Sub
ou bien, pour autant que tes optionbutton soient nommés avec leur "rang"
comme dernier caractère
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Controls("optionbutton" & Left(TextBox1, 1)) = True
End Sub
Ok?
--
Pierre Fauconnier (pierre.fauconnier@nospam.nospam)
"Le bonheur n'est pas au bout du chemin. Le bonheur EST le chemin (
proverbe zen )
Remplacez nospam.nospam par pfi.be pour répondre. Merci
"Florian" <florian@toto.fr> a écrit dans le message de news:
%23EkRkPQcFHA.2124@TK2MSFTNGP14.phx.gbl...
Bonsoir.
j'ai sur 1 userform 1 textbox, et 2 optionbutton
je saisis dans le premier textbox des numéro.
Si le 1er numéro est 1, option button1 = true
Si le 1er numéro est 2, option button2 = true
Merci
Flo riant
"Pierre Fauconnier" a écrit dans le message de news:
Bonsoir
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean) If Left(TextBox1, 1) = 1 Then OptionButton1 = True If Left(TextBox1, 1) = 2 Then OptionButton2 = True
End Sub
ou bien, pour autant que tes optionbutton soient nommés avec leur "rang" comme dernier caractère
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean) Controls("optionbutton" & Left(TextBox1, 1)) = True
End Sub
Ok?
-- Pierre Fauconnier () "Le bonheur n'est pas au bout du chemin. Le bonheur EST le chemin ( proverbe zen ) Remplacez nospam.nospam par pfi.be pour répondre. Merci
"Florian" a écrit dans le message de news: %
Bonsoir. j'ai sur 1 userform 1 textbox, et 2 optionbutton je saisis dans le premier textbox des numéro. Si le 1er numéro est 1, option button1 = true Si le 1er numéro est 2, option button2 = true Merci Flo riant
