Discussion :

[Mag06]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 !!

[jfontaine]

Bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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%

[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

[jfontaine]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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 !!

[BERRACHED SAID]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

sinon

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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