plus de transf vrs cellule avec option button

[pitchoune85]

Bonjour
je viens de créer mon 1° USF
tt d'abord il fonctionner bien avec des text box qui renvoyaient les valeurs vers mon tableau ds la feuille famille.
j'ai voulu rajouter une conditon avec deux bouttons options oui/non
mes boutons fonctionne
mais qu je valide
le remplissage des cellules ne se fait plus
pouvez vous me dire pourquoi
ci joint le fichier condensé
merci de votre aide toujours aussi précieuse [file name=optionbutton_20060306131210.zip size=17652]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/optionbutton_20060306131210.zip[/file]

 

[Robert]

Bonjour Pichounet, boujour le forum,

Ton problème vient de l'initialisation de l'UserForm qui n'est pas faite. Tu as écrit :
Private Sub Usf1_Initialize()
ceci n'est pas accepté en VBA, remplace cette ligne par :
Private Sub UserForm_Initialize()
l'initialisation se fera et tes codes tourneront convenablement.

 

[pitchoune85]

merci robert, ca fontionne bien mais je pense aussi que ca venait de ça :

Private Sub CommandButton1_Click()
If Usf1.TextBox1.Text = '' Then
MsgBox 'Vous n'avez rien saisi ;' & Chr(10) & 'Veuillez saisir le Nom et le prénom du responsable de la famille !'
Exit Sub
'End If

'If Usf1.TextBox1.Text = ' ' Then
'MsgBox 'Vous devez saisir le Nom ET le prénom du responsable de la famille !'
'Exit Sub

Else <-- la j'avais un guillement


Par contre, j'ai une autre question, qd je repond non au bouttonoption, et que je valide il me dit que mes codes bq, guichet,... doivent contenir 5;11 caractères :
comment faire pour le désactiver si option non

merci

 

[Robert]

Bonjour Pichounet, bonjour le forum,

Oui peut-être car je n'avais rien validé en fait...

Pour ton second problème je pense qu'un :

If Optionoui.Value = True
...les 4 conditions de len...
End If

devrait le résoudre.