W
walerian
Guest
Si quelqu'un peux m'expliquer pourquoi le code vba ci_dessous,
a partir de Range('A1') jusqu'à x1TopToBottom annonce erreur de compile. Ce code c'est une copie d'exemple de livre MO Excel 2003.
Private Sub UserForm_Activate()
Worksheets('RDV').Select
Range('A1').CurrentRegion.Sort Key1:=Range('A2')
Order1:=x1Ascending, _
Header:= x1Guess, OrderCustom:=1, MatchCase:=False,
Orientation:= _
x1TopToBottom
Range('A2').Select
If ActiveCell.Value = '' Then
Range('A1').Select
Worksheets('Menu').Select
MsgBox ('pas de rendez-vous à rechercher')
FRM_rechercher.Hide
Exit Sub
End If
End Sub
a partir de Range('A1') jusqu'à x1TopToBottom annonce erreur de compile. Ce code c'est une copie d'exemple de livre MO Excel 2003.
Private Sub UserForm_Activate()
Worksheets('RDV').Select
Range('A1').CurrentRegion.Sort Key1:=Range('A2')
Order1:=x1Ascending, _
Header:= x1Guess, OrderCustom:=1, MatchCase:=False,
Orientation:= _
x1TopToBottom
Range('A2').Select
If ActiveCell.Value = '' Then
Range('A1').Select
Worksheets('Menu').Select
MsgBox ('pas de rendez-vous à rechercher')
FRM_rechercher.Hide
Exit Sub
End If
End Sub