code VBA

[walerian]

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

 

[Jacques25]

Salut walerian,

Je n'y connais pas beaucoup en VBA mais es tu sur de tes x1ascending, x1guess et x1 topbottom ne serais ce pas plutôt un L à la place du 1??

@ plus
Jacques

 

[walerian]

Merci Jacques, en plus il fallait utilisé separateur _ après chaque ligne.
Encore merci

walerian