integréer option button à un textbox

[nrdz83]

Bonjour à tous , j'ai un formulaire de saisie via userform et je voudrais que ma textbox4 soit associé à un option button.

Ma textbox4 est appelé a recevoir des nombres qui vont se ranger dans ma colonne F et je voudrais lui associé les
-option button 1 ="NB"
-option button 1 ="ML"
-option button 1 ="M²"

Voila le code que j'utilise en ce moment:

Private Sub CommandButton2_Click()
 ' Mise en place des valeurs saisies
    DerLig = [A65000].End(xlUp).Row + 1
    Cells(DerLig, 1).Value = ComboBox5
    Cells(DerLig, 3).Value = TextBox1
    Cells(DerLig, 4).Value = TextBox2
    Cells(DerLig, 5).Value = TextBox3
    Cells(DerLig, 6).Value = TextBox4
    Cells(DerLig, 7).Value = TextBox5
    Cells(DerLig, 8).Value = TextBox6
    Cells(DerLig, 9).Value = ComboBox6
end sub

Déja est ce réalisable?
Merci par avance amitiés

 

[13GIBE59]

Re : integréer option button à un textbox

Salut le marin.

Pas tout compris :

je voudrais que ma textbox4 soit associé à un option button.

Puis tu cites :

-option button 1 ="NB"
-option button 1 ="ML"
-option button 1 ="M²"

il y en a trois, de même valeur ?
Ou une seule ?

Où sont-elles dans ton code ?

 

[nrdz83]

Re : integréer option button à un textbox

🙁Bonjour 13 gibe59 en fait ils ne sont pas encore dans mon code car jesais pas si déja c'est faisable et surtout ne sait pas le faire.

C'est pour remplir une liste de travaux mais je veux suivant la demande definir la quantité par soit "NB", "ML" ou M².
autant pour moi option button 1 puis 2 puis 3 , l'erreur du copier coller oups 🙁

 

[13GIBE59]

Re : integréer option button à un textbox

Si j'ai bien compris, dans ton code :

If OptionButton1.Value = True Then TextBox4.Value = "NB"
If OptionButton2.Value = True Then TextBox4.Value = "ML"

etc...?

 

[nrdz83]

Re : integréer option button à un textbox

en fait le résultat en colonne 6 textbox4 + l'optionbutton choisi

 

[13GIBE59]

Re : integréer option button à un textbox

en fait le résultat en colonne 6 textbox4 + l'optionbutton choisi

???????????????

 

[nrdz83]

Re : integréer option button à un textbox

je m'explique si par exemple en textbox4 je mer 25 et coche optionbutton2 (ML) je voudrais voir s'afficher en colonne 6 "25 ML"

j'essaye ce code mais pas vraiment la bonne piste apparement lol

Private Sub CommandButton2_Click()
 ' Mise en place des valeurs saisies
For Each ctrl In Controls
        If TypeName(ctrl) = "OptionButton" Then
            If ctrl And ctrl.GroupName = "Groupmesures" Then
                Mesures = ctrl.Caption
                Exit For
            End If
        End If
    DerLig = [A65000].End(xlUp).Row + 1
    Cells(DerLig, 1).Value = ComboBox5
    Cells(DerLig, 3).Value = TextBox1
    Cells(DerLig, 4).Value = TextBox2
    Cells(DerLig, 5).Value = TextBox3
    Cells(DerLig, 6).Value = Mesures
    Cells(DerLig, 7).Value = TextBox5
    Cells(DerLig, 8).Value = TextBox6
    Cells(DerLig, 9).Value = ComboBox6
    Next
end sub

 

[13GIBE59]

Re : integréer option button à un textbox

je m'explique si par exemple en textbox4 je mer 25 et coche optionbutton2 (ML) je voudrais voir s'afficher en colonne 6 "25 ML"

Dans ce cas :

If OptionButton2.Value = True Then

.....Value = TextBox4.Value & "ML"

Else If
Code de l'OptionButton1

Else If
Code de l'OptionButton3

End If

 

[nrdz83]

Re : integréer option button à un textbox

Voila mon code mais ça bugg

Private Sub CommandButton2_Click()
 ' Mise en place des valeurs saisies
    DerLig = [A65000].End(xlUp).Row + 1
    Cells(DerLig, 1).Value = ComboBox5
    Cells(DerLig, 3).Value = TextBox1
    Cells(DerLig, 4).Value = TextBox2
    Cells(DerLig, 5).Value = TextBox3
    If OptionButton1.Value = True Then
    Cells(DerLig, 6).Value = TextBox4.Value & "NB"
Else if
    If OptionButton2.Value = True Then
    Cells(DerLig, 6).Value = TextBox4.Value & "ML"
Else if
    If OptionButton3.Value = True Then
    Cells(DerLig, 6).Value = TextBox4.Value & "M²"
End If
    Cells(DerLig, 7).Value = TextBox5
    Cells(DerLig, 8).Value = TextBox6
    Cells(DerLig, 9).Value = ComboBox6

Je pense que j'ai du mal my prendre

 

[nrdz83]

Re : integréer option button à un textbox

oups j'ai oublié de signaler les erreurs

Private Sub CommandButton2_Click()
 ' Mise en place des valeurs saisies
    DerLig = [A65000].End(xlUp).Row + 1
    Cells(DerLig, 1).Value = ComboBox5
    Cells(DerLig, 3).Value = TextBox1
    Cells(DerLig, 4).Value = TextBox2
    Cells(DerLig, 5).Value = TextBox3
    If OptionButton1.Value = True Then
    Cells(DerLig, 6).Value = TextBox4.Value & "NB"
[COLOR="Red"]Else if[/COLOR]
    If OptionButton2.Value = True Then
    Cells(DerLig, 6).Value = TextBox4.Value & "ML"
Else if
    If OptionButton3.Value = True Then
    Cells(DerLig, 6).Value = TextBox4.Value & "M²"
End If
    Cells(DerLig, 7).Value = TextBox5
    Cells(DerLig, 8).Value = TextBox6
    Cells(DerLig, 9).Value = ComboBox6

 

[13GIBE59]

Re : integréer option button à un textbox

Dans cette syntaxe, le plus simple est de remplacer tes deux Else If par des End If.

 

[Pierrot93]

Re : integréer option button à un textbox

Bonjour,

essaye peut être ainsi :

If OptionButton1.Value = True Then
    Cells(DerLig, 6).Value = TextBox4.Value & "NB"
    ElseIf OptionButton2.Value = True Then Cells(DerLig, 6).Value = TextBox4.Value & "ML"
    ElseIf OptionButton3.Value = True Then Cells(DerLig, 6).Value = TextBox4.Value & "M²"
End If

bon après midi
@+

 

[nrdz83]

Re : integréer option button à un textbox

Super et bonjour pierrot93 un grand merci à vous deux je vous souhaite un bon week end.
PS: une dernière question si je souhaite mettre un espace entre le chiffre et ML par exemple je doit mette _ ?
amitiés

 

[13GIBE59]

Re : integréer option button à un textbox

Tu écris :

Cells(DerLig, 6).Value = TextBox4.Value & " NB"

au lieu de
Cells(DerLig, 6).Value = TextBox4.Value & "NB"

 

[Pierrot93]

Re : integréer option button à un textbox

Re

peut être ainsi :

= TextBox4.Value & " ML"

ou bien

= TextBox4.Value & "_ML"

@+