ouvrir feuil1, ecrire sur f2 avec USF

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:

Cliquez pour agrandir...

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

Cliquez pour agrandir...