Definir valeur Option Button

Provence Vintage · 6 Novembre 2009

Salut Ttes et Tous

Comment pratiquer pour déterminer via code vba la valeur d'un option button dans un usf,
si click "name" (exemple: "réduits") ; si non clické "" (rien)
Le but étant de recopier le résultat dans une base de données

Merci au Fil
a+🙂

Staple1600 · 7 Novembre 2009

Re : Definir valeur Option Button

Bonsoir

Code:

If OptionButton1 Then MsgBox "Option cliquée"

Une variante (code appliqué un CommandButton)

Code:

Private Sub CommandButton1_Click()
MsgBox ((IIf(Me.OptionButton1, "cliqué", "rien")))
End Sub

ou pour recopie dans une feuille

Code:

Private Sub CommandButton1_Click()
Range("A1").Value=((IIf(Me.OptionButton1, "cliqué", "rien")))
End Sub

justine · 7 Novembre 2009

Re : Definir valeur Option Button

bonsoir,
si j'ai bien compris, la valeur d'une optionbutton est soit true ou false

if optionbutton1.value=true then .....

ai-je bien compris???

Staple1600 · 7 Novembre 2009

Re : Definir valeur Option Button

Re

Oui bien compris

Et l'on peut le résumer ainsi

Code:

If OptionButton Then MsgBox "coucou"

Voir mon précédent message

Provence Vintage · 7 Novembre 2009

Re : Definir valeur Option Button

Hello le Fil

c Kata!!!

Voli le code:

Les déclarations:

Option Explicit
Dim OptionChoisie As String
Public ReponseMsgBox As Variant, DonneesEnCours$, NomDeFeuilEnCours$

La Commande permettant de recopier les éléments de l'USF dans base de données:

Private Sub CommandButton1_Click()
If DonnéesGénérales.TextBox1.Value = "" Then
MsgBox " Le N° de Mandat est obligatoire . "
Exit Sub
Else
'créer

Dim OptionChoisie As String, lidep1 As Integer, cellule As Range
NomDeFeuilEnCours = "Base de Données vendeurs"
lidep1 = 2
Range("a65536").End(xlUp).Offset(1, 0).Select

ActiveCell.Value = DonnéesGénérales.TextBox1.Value
ActiveCell.Offset(0, 0).Value = "'" & DonnéesGénérales.TextBox1.Value
' gestion des nombres commençant par 0 avec " ' "
ActiveCell.Offset(0, 1).Value = "'" & DonnéesGénérales.TextBox2.Value
ActiveCell.Offset(0, 2).Value = "'" & DonnéesGénérales.TextBox3.Value
ActiveCell.Offset(0, 3).Value = "'" & DonnéesGénérales.TextBox4.Value
ActiveCell.Offset(0, 4).Value = "'" & DonnéesGénérales.TextBox5.Value
ActiveCell.Offset(0, 5).Value = "'" & DonnéesGénérales.ListBox6.Value
ActiveCell.Offset(0, 6).Value = "'" & DonnéesGénérales.TextBox12.Value
ActiveCell.Offset(0, 7).Value = "'" & DonnéesGénérales.TextBox13.Value
ActiveCell.Offset(0, 8).Value = "'" & DonnéesGénérales.ListBox7.Value
ActiveCell.Offset(0, 9).Value = "'" & DonnéesGénérales.TextBox31.Value
ActiveCell.Offset(0, 10).Value = "'" & DonnéesGénérales.TextBox32.Value
ActiveCell.Offset(0, 11).Value = "'" & DonnéesGénérales.TextBox33.Value
ActiveCell.Offset(0, 12).Value = "'" & DonnéesGénérales.TextBox34.Value
ActiveCell.Offset(0, 16).Value = "'" & DonnéesGénérales.TextBox25.Value
ActiveCell.Offset(0, 28).Value = "'" & DonnéesGénérales2.TextBox37.Value
ActiveCell.Offset(0, 29).Value = "'" & DonnéesGénérales2.TextBox38.Value
ActiveCell.Offset(0, 31).Value = "'" & DonnéesGénérales2.TextBox39.Value
ActiveCell.Offset(0, 17).Value = OptionChoisie

Les deux premiers options boutons:

Private Sub OptionButton1_Click()
If OptionButton1 = True Then OptionChoisie = "Réduits"
End Sub

Private Sub OptionButton2_Click()
If OptionButton2 = True Then OptionChoisie = "Classiques"
End Sub

Le start:

Private Sub UserForm_Initialize()
With CommandButton1
.Caption = "Valider"
.Default = True
End With
End Sub

et que dalle!!!!L'option choisi entre les deux boutons à cliquer n tjrs pas recopier en colonne 17 de la base!

Le pire, j'ai encore un autre choix à enregistrer entre le click de 5 autres boutons!

Qui peux m'aider!?
Merci le Fil

Provence Vintage · 7 Novembre 2009

Re : Definir valeur Option Button

Le Fil
J'ai éssayé aussi comme ça en fin de code command button:

ActiveCell.Offset(0, 17).Value = ((IIf(Me.OptionButton1, "", "Réduits")))
ActiveCell.Offset(0, 18).Value = ((IIf(Me.OptionButton2, "", "Classiques")))

Il m'indique variable inconnue pour la deuxième ligne....!!!?

A+

Staple1600 · 7 Novembre 2009

Re : Definir valeur Option Button

Bonsoir

Une solution possible

Code:

Private Sub CommandButton1_Click()
Dim NomDeFeuilEnCours$, lidep1 As Long, cellule As Range
NomDeFeuilEnCours = "Base de Données vendeurs"

lidep1 = 2
[COLOR=Green]'ici remettre le reste de ton code[/COLOR]
With Range("A65536").End(xlUp).Offset(1, 17)
    Select Case OptionButton1
    Case True
    .Value = "Réduits"
    Case False
    If OptionButton2 Then .Value = "Classiques"
    End Select
End With
End Sub

Supprimer les codes ci-dessous

Code:

Private Sub OptionButton1_Click()
'If OptionButton1 = True Then OptionChoisie = "Réduits"
End Sub

Private Sub OptionButton2_Click()
'If OptionButton2 = True Then OptionChoisie = "Classiques"
End Sub

Provence Vintage · 7 Novembre 2009

Re : Definir valeur Option Button

Salut le Fil,

Toujours rien!!!
Comprends pas,

j'ai éssayé de retravailler le code, mais raf!

With Range("A65536").End(xlUp).Offset(1, 17)
Select Case OptionButton1
Case True
ActiveCell.Offset(0, 17).Value = "Réduits"
Case False
If OptionButton2 Then ActiveCell.Offset(0, 17).Value = "Classiques"
End Select
End With

Pourquoi met tu la valeur offset à partir de 1 et non 0?

Merci en tous les cas Stapple, le Fil

Staple1600 · 7 Novembre 2009

Re : Definir valeur Option Button

Bonjour

Essayes cette pièce jointe

et n'oublie de cliquer sur la photo 😉

Mode d'emploi:

Tu cliques sur un OptionButton puis pour valider tu cliquer sur le CommandButton1

Cela fonctionne j'ai testé avant de poster la PJ.

Lii · 7 Novembre 2009

Re : Definir valeur Option Button

Bonjour,

c'est ici que cela se passe :

Code:

Option Explicit
[B]Dim OptionChoisie As String[/B]
Public ReponseMsgBox As Variant, DonneesEnCours$, NomDeFeuilEnCours$

La Commande permettant de recopier les éléments de l'USF dans base de données:

Private Sub CommandButton1_Click()
 If DonnéesGénérales.TextBox1.Value = "" Then
    MsgBox " Le N° de Mandat est obligatoire . "
    Exit Sub
    Else
     'créer
     
    [COLOR=Red][B]Dim OptionChoisie As String[/B][/COLOR], lidep1 As Integer, cellule As Range

la seconde déclaration réinitialise la variable donc, supprime la !

Provence Vintage · 7 Novembre 2009

Re : Definir valeur Option Button

Salut Lii, Stapple, le Fil,

Ra, je ne comprends plus rien.......

Il me met Variable non définie... pour l'optionButton2 !!!???

Option Explicit
Dim OptionChoisie As String
Public ReponseMsgBox As Variant, DonneesEnCours$, NomDeFeuilEnCours$

Private Sub CommandButton1_Click()

If DonnéesGénérales.TextBox1.Value = "" Then
MsgBox " Le N° de Mandat est obligatoire . "
Exit Sub
Else
'créer

Dim NomDeFeuilEnCours$, lidep1 As Long, cellule As Range
NomDeFeuilEnCours = "Base de Données vendeurs"

lidep1 = 2
Range("a65536").End(xlUp).Offset(1, 0).Select

ActiveCell.Value = DonnéesGénérales.TextBox1.Value
ActiveCell.Offset(0, 0).Value = "'" & DonnéesGénérales.TextBox1.Value
' gestion des nombres commençant par 0 avec " ' "
ActiveCell.Offset(0, 1).Value = "'" & DonnéesGénérales.TextBox2.Value
ActiveCell.Offset(0, 2).Value = "'" & DonnéesGénérales.TextBox3.Value
ActiveCell.Offset(0, 3).Value = "'" & DonnéesGénérales.TextBox4.Value
ActiveCell.Offset(0, 4).Value = "'" & DonnéesGénérales.TextBox5.Value
ActiveCell.Offset(0, 5).Value = "'" & DonnéesGénérales.ListBox6.Value
ActiveCell.Offset(0, 6).Value = "'" & DonnéesGénérales.TextBox12.Value
ActiveCell.Offset(0, 7).Value = "'" & DonnéesGénérales.TextBox13.Value
ActiveCell.Offset(0, 8).Value = "'" & DonnéesGénérales.ListBox7.Value
ActiveCell.Offset(0, 9).Value = "'" & DonnéesGénérales.TextBox31.Value
ActiveCell.Offset(0, 10).Value = "'" & DonnéesGénérales.TextBox32.Value
ActiveCell.Offset(0, 11).Value = "'" & DonnéesGénérales.TextBox33.Value
ActiveCell.Offset(0, 12).Value = "'" & DonnéesGénérales.TextBox34.Value
ActiveCell.Offset(0, 16).Value = "'" & DonnéesGénérales.TextBox25.Value
ActiveCell.Offset(0, 28).Value = "'" & DonnéesGénérales2.TextBox37.Value
ActiveCell.Offset(0, 29).Value = "'" & DonnéesGénérales2.TextBox38.Value
ActiveCell.Offset(0, 31).Value = "'" & DonnéesGénérales2.TextBox39.Value

With Sheets(NomDeFeuilEnCours).Range("A65536").End(xlUp).Offset(1, 17)
Select Case OptionButton1
Case True
.Value = "Réduits"
Case False
.Value = ""
Select Case OptionButton2
Case True
.Value = "Classiques"
Case False
.Value = ""
End Select
End With

End If

DonnéesGénérales2.Hide

End Sub

Merci à tous

Lii · 7 Novembre 2009

Re : Definir valeur Option Button

Re,

C'est normal avec ton code :
Si 1 est true alors "Réduit" mais 2 est false donc tu as "".

Essaie ,

Code:

...
        ActiveCell.Offset(0, 31).Value = "'" & DonnéesGénérales2.TextBox39.Value
        [B]Sheets(NomDeFeuilEnCours).Range("A65536").End(xlUp  ).Offset(1, 17).Value =IIf (OptionButton1, "Réduits","Classiques")[/B]
    End If
    DonnéesGénérales2.Hide
End Sub

Staple1600 · 7 Novembre 2009

Re : Definir valeur Option Button

Re

Provence Vintage
Tu as essayé ma pièce jointe ?

Celle de 11h04 ce jour ?

Provence Vintage · 8 Novembre 2009

Re : Definir valeur Option Button

Staple, Lii, Le Fil,

Oui, j'ai éssayé le Fichier, nickel, mais quand je l'incorpore, que dalle!!!
Comprends pas!

Provence Vintage · 8 Novembre 2009

Re : Definir valeur Option Button

Le Fil,

Le seul code qui fonctionne est le suivant:
ActiveCell.Offset(0, 17).Value = IIf(OptionButton1, "Classiques", "Réduits")

Sachant que le nom de l'option bouton est "Réduits", et qu'il a fallut que j'inverse au niveau du code pour qu'une fois cliqué l'enregistrement dans la base de données affiche bien "Réduits";

Par contre comment faire avec mon optionbutton2 pour enregistrer "Classiques", lorsque c le cas;
A chaque fois m'est stipulé "variable non définie"......
Stapple, sur ton fichier, le code passe nickel
Sur le mien...il doit y avoir un contre ordre quelque part, cf commentaires de Lii!

Merci à ttes et tous

Effectuez une recherche sur Excel Downloads...

Definir valeur Option Button

Provence Vintage

XLDnaute Occasionnel

Staple1600

XLDnaute Barbatruc

justine

XLDnaute Occasionnel

Staple1600

XLDnaute Barbatruc

Provence Vintage

XLDnaute Occasionnel

Provence Vintage

XLDnaute Occasionnel

Staple1600

XLDnaute Barbatruc

Provence Vintage

XLDnaute Occasionnel

Staple1600

XLDnaute Barbatruc

Lii

XLDnaute Impliqué

Provence Vintage

XLDnaute Occasionnel

Lii

XLDnaute Impliqué

Staple1600

XLDnaute Barbatruc

Provence Vintage

XLDnaute Occasionnel

Provence Vintage

XLDnaute Occasionnel

Discussions similaires

Nous accordons de l'importance à votre vie privée