ouvrir feuil1, ecrire sur f2 avec USF

[pascal21]

bonsoir
est-il possible d'ouvrir un userform avec un bouton en feuille1 et que les données s'écrivent en feuille2
à titre d'infos j'ai déja ce code sur l'userform que faut-il rajouter et où

On Error
GoTo Fin
Dim Cel_Ref As Range
Set Cel_Ref = Cells(Me.ListBox1.ListIndex + 10, Me.ListBox2.ListIndex + 2)
If Intersect(Cel_Ref, Range('d10:q374')) Is Nothing And Intersect(Cel_Ref, Range('d15')) Is Nothing Then
Cel_Ref.Value = Me.TextBox1
Else
MsgBox 'Ereur!! Veuillez vérifier les horaires d'ouvertures MERCI', vbOKOnly + vbInformation
End If
Fin:

merci

End Sub

Message édité par: pascal21, à: 04/01/2006 21:05

 

[pascal21]

up