pascal21
XLDnaute Barbatruc
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ù
End Sub
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ù
merciOn 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:
End Sub
Message édité par: pascal21, à: 04/01/2006 21:05