preselection vba

Bonjour le forum,
je seche sur un code pour realiser les actions suivantes :
dans le classeur joint, apres la selection par option button, je cherche à distribuer les saisies de mon userform dans la feuille préselectionnees apres validation.

Dim LaFeuille As Worksheet

Private Sub general_Click()
If Me.general = True Then Set LaFeuille = Sheets('0')
End Sub
Private Sub psycho_Click()
If Me.psycho = True Then Set LaFeuille = Sheets('1')
End Sub

Private Sub validation_Click()
If Not LaFeuille Is Nothing Then LaFeuille.Select

Dim cellulevide As String
cellulevide = Worksheets('0').Range('b2').End(xlDown).Address
Range(cellulevide).Select
t1 = TextBox1.Value
ActiveCell.Offset(1, 0).Value = t1

t2 = TextBox2.Value
ActiveCell.Offset(1, 1).Value = t2

t3 = TextBox3.Value
ActiveCell.Offset(1, 2).Value = t3

End Sub

si quelqu'un(e) peut me dépanner, merci d'avance

Message édité par: binoute, à: 23/03/2005 21:55