Renvoyer la valeur d'un OptionButton

Version imprimable

Bonjour à tous

J'ai crée un Userform contenant des TextBox et des boutons d'options.
Le but étant de créer par le biais de cet Userform une liste de factures.

Mon problème se situe au niveau du renvoi dans ma feuille des informations saisies.

Voici ce que j'ai écrit :
Code:

1 2 3 4 5 6 7 8 9 10 Private Sub BtFacture_Valider_Click() Sheets("TABLEAU_FACTURES").Range("A2") = TextBox1.Value Sheets("TABLEAU_FACTURES").Range("B2") = TextBox2.Value Sheets("TABLEAU_FACTURES").Range("C2") = TextBox3.Value Sheets("TABLEAU_FACTURES").Range("D2") = TextBox4.Value Sheets("TABLEAU_FACTURES").Range("E2") = bouton_TAUXTVA.Value'Ne fonctionne pas Unload Me End Sub
1° Je n'arrive pas à renvoyer les valeurs de mes boutons :
OptionButton1 : VALEUR = 7%
OptionButton2 : VALEUR = 19,6%

2° Je souhaiterai qu'à chaque fois que je valide le "formulaire", les informations soient renvoyées sur la liste suivante disponible (et non pas comme ici : Range("A2") ; B2 ....

Merci d'avance pour votre aide !!;)

30/05/2013, 14h41
jfontaine
Bonjour,

Le libellé d'un bouton d'option se lit via l'instruction Caption

Code:

Sheets("TABLEAU_FACTURES").Range("E2") = bouton_TAUXTVA.Caption

Value retourne le boolean True ou False suivant si coché ou pas

Pour saisir sur l ligne suivant
Code:

1 2 3 4 5 Ligne = Sheets("TABLEAU_FACTURES").Range("A" & Rows.Count).End(Xlup).Row + 1 .... Sheets("TABLEAU_FACTURES").Range("E" & Ligne ) = bouton_TAUXTVA.Caption
30/05/2013, 14h44
BERRACHED SAID

salut

les optionbutton n'on pas de value mais des caption

donc dans le code il faut faire = opptionbutton1.caption

et dans les caption des controles tu 7% et 19%
30/05/2013, 14h55
Mag06

Merci à tous les deux pour votre rapidité. Effectivement plus de message d'erreur. Par contre la valeur renvoyé est le nom de mon Frame. Les Captions sont bien renseignés. Comment faire pour renseigner l'une ou l'autre de mes valeurs en fonction du bouton choisi ?

Merci encore
30/05/2013, 15h00
jfontaine

Code:

Sheets("TABLEAU_FACTURES").Range("E" & Ligne ) = IIf(OptionButton1.Value = True, OptionButton1.Caption, OptionButton2.Caption)
30/05/2013, 15h27
Mag06

Alors après essaie, le renvoi des valeurs des boutons fonctionne parfaitement avec la fonction IIf. Merci !

Par contre j'ai un probleme d'erreur au niveau du renvoi à la ligne suivante.
Mais comme je ne comprends pas tout dans le code que tu m'as donné j'ai du mal à localiser le problème !! :oops:
30/05/2013, 15h38
BERRACHED SAID

Code:

Sheets("TABLEAU_FACTURES").Range("E" & Ligne ) = me.bouton_TAUXTVA.Caption

sinon

Code:

Sheets("TABLEAU_FACTURES").Range("E" & Ligne ) = me.frame1.bouton_TAUXTVA.Caption
30/05/2013, 16h24
jfontaine

quelle ligne retourne une erreur et quel numero et libellé d'erreur
30/05/2013, 17h20
Mag06

Alors les lignes

Code:

Sheets("TABLEAU_FACTURES").Range("A" & Rows.Count).End(xlUp).Row 1 = TextBox1.Value

Et suivantes ...

Renvoi l'erreur d'exécution 438 : Propriete ou methode non gérée par cet objet

Et la ligne

Code:

Sheets("TABLEAU_FACTURES").Range("E & Ligne") = IIf(OptionButton1.Value = True, OptionButton1.Caption, OptionButton2.Caption)

Renvoie l'erreur d'exécution 1004 : Erreur définie par l'application ou par l'objet
30/05/2013, 19h30
jfontaine

Regardes bien le code proposé car ce n'est pas ce que tu as écris

Citation:

Sheets("TABLEAU_FACTURES").Range("A" & Rows.Count).End(xlUp).Row 1 = TextBox1.Value
Et suivantes ...

Renvoi l'erreur d'exécution 438 : Propriete ou methode non gérée par cet objet

Et la ligne
Sheets("TABLEAU_FACTURES").Range("E & Ligne") = IIf(OptionButton1.Value = True, OptionButton1.Caption, OptionButton2.Caption)

Renvoie l'erreur d'exécution 1004 : Erreur définie par l'application ou par l'objet
30/05/2013, 20h04
Mag06

Oui effectivement mais en refaisant la manip ça ne change rien
Par contre lorsque je copie/colle ta formule le "Row + 1" se change automatiquement en "Row 1"
30/05/2013, 20h25
jfontaine

et la ligne comme bien par

Code:

Ligne = Sheets....
30/05/2013, 20h31
Mag06

Ah bin non ! :oops: je vais essayer avec le code correct alors !
Désolée de te faire perdre du temps j'ai passé tellement de temps dessus que je m'y perds
30/05/2013, 20h45
jfontaine

Les débuts peuvent être difficile mais ça vaut la peine de persévérer. :lol:

Le retour !!
Bon plus de message d'erreur pour le code :
Code:

1 2 3 4 ligne = Sheets("TABLEAU_FACTURES").Range("A" & Rows.Count).End(xlUp).Row + 1 = TextBox1.Value ligne = Sheets("TABLEAU_FACTURES").Range("B" & Rows.Count).End(xlUp).Row + 1 = TextBox2.Value ligne = Sheets("TABLEAU_FACTURES").Range("C" & Rows.Count).End(xlUp).Row + 1 = TextBox3.Value ligne = Sheets("TABLEAU_FACTURES").Range("D" & Rows.Count).End(xlUp).Row + 1 = TextBox4.Value
Par contre il ne renvoi aucune valeur ! je craque :cry:

Et le code des boutons ne fonctionne pas non plus

Code:

Sheets("TABLEAU_FACTURES").Range("E" & ligne) = IIf(OptionButton1.Value = True, OptionButton1.Caption, OptionButton2.Caption) = IIf(OptionButton1.Value = True, OptionButton1.Caption, OptionButton2.Caption)

Ou la tu n'as pas tout compris

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub BtFacture_Valider_Click()
Dim Ligne as long
 
'Ligne contiendra le numero de ligne suivante
Ligne = Sheets("TABLEAU_FACTURES").Range("A" & Rows.Count).End(Xlup).Row + 1
 
'Alimente la feuille sur la dernière ligne
Sheets("TABLEAU_FACTURES").Range("A" & i) = TextBox1.Value
Sheets("TABLEAU_FACTURES").Range("B" & i) = TextBox2.Value
Sheets("TABLEAU_FACTURES").Range("C" & i) = TextBox3.Value
Sheets("TABLEAU_FACTURES").Range("D" & i) = TextBox4.Value
Sheets("TABLEAU_FACTURES").Range("E" & i) = IIf(OptionButton1.Value = True, OptionButton1.Caption, OptionButton2.Caption)
Unload Me
 
End Sub

26/06/2013, 13h46
Mag06

Bonjour,

27 jours plus tard... je reviens sur le fil de ma discussion.
D'abord pour m'excuser de ne pas avoir donner de retour et pour te remercier jfontaine pour ton aide. Je ne suis pas parvenu au résultat que j'attendais mais je repars de zéro avec l'espoir qu'une petite faute dans ma programmation a empêché son bon fonctionnement.

Alors j'ai finalement réussi en faisant ceci :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub BtFacture_Valider_Click()
Dim no_ligne As Integer
 
'no_ligne = N° de ligne de la dernière cellule non vide de la colonne +1
no_ligne = Sheets("TABLEAU_FACTURES").Range("A65536").End(xlUp).Row + 1
 
'Alimente la feuille sur la dernière ligne
Sheets("TABLEAU_FACTURES").Cells(no_ligne, 1) = TextBox1.Value
Sheets("TABLEAU_FACTURES").Cells(no_ligne, 2) = TextBox2.Value
Sheets("TABLEAU_FACTURES").Cells(no_ligne, 3) = TextBox3.Value
Sheets("TABLEAU_FACTURES").Cells(no_ligne, 4) = TextBox4.Value
Sheets("TABLEAU_FACTURES").Cells(no_ligne, 5) = IIf(OptionButton1.Value = True, OptionButton1.Caption, OptionButton2.Caption)
 
Unload Me
 
End Sub

Voilà merci encore pour tout