preselection vba

[binoute]

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

 

[pat1545.]

Salut,

j'ai un peu modifié ton code comme ceci :

Private Sub validation_Click()
If Not LaFeuille Is Nothing Then LaFeuille.Select
Dim cellulevide As String, Lastrow As Integer
cellulevide = Worksheets('0').Range('b2').End(xlDown).Address

Lastrow = Range('B65000').End(xlUp).Row

'Range(cellulevide).Select

Cells(Lastrow, 2).Select

t1 = TextBox1.Value
.... suite

Ca semble aller

Patrick

 

[binoute]

bonsoir patrick,
avec ton code ça roule du feu de dieu (pas de blaspheme sur le forum en pleine semaine sainte)

merci pour le coup de main

a+