Hades60250
XLDnaute Nouveau
Bonjour à toutes et tous!
J'ai créé une base de données excel regroupant de nombreuse feuille.
Lors de l'ouverture de ce fichier, en plus des actions Full Screen et l'affichage d'une boite de dialogue, je souhaiterais trier une plage de données dans la feuille "Liste".
J'avais donc le code suivant dans ThisWorkbook:
Private Sub Workbook_Activate()
Application.DisplayFullScreen = True
End Sub
Private Sub Workbook_Deactivate()
Application.DisplayFullScreen = False
End Sub
Private Sub Workbook_Open()
UserForm16.Show
Application.Wait Now + TimeValue("00:00:03")
Unload UserForm16
End Sub
Private Sub Workbook_Activate()
Sheets("Liste").Range("A2:R1000").Select
Selection.Sort key1:=Range("A1"), Order1:=xlAscending
End Sub
Naturellement, ça ne fonctionne pas....
Est ce que quelqu'un pourrait m'aider s'il vous plait????
J'ai créé une base de données excel regroupant de nombreuse feuille.
Lors de l'ouverture de ce fichier, en plus des actions Full Screen et l'affichage d'une boite de dialogue, je souhaiterais trier une plage de données dans la feuille "Liste".
J'avais donc le code suivant dans ThisWorkbook:
Private Sub Workbook_Activate()
Application.DisplayFullScreen = True
End Sub
Private Sub Workbook_Deactivate()
Application.DisplayFullScreen = False
End Sub
Private Sub Workbook_Open()
UserForm16.Show
Application.Wait Now + TimeValue("00:00:03")
Unload UserForm16
End Sub
Private Sub Workbook_Activate()
Sheets("Liste").Range("A2:R1000").Select
Selection.Sort key1:=Range("A1"), Order1:=xlAscending
End Sub
Naturellement, ça ne fonctionne pas....
Est ce que quelqu'un pourrait m'aider s'il vous plait????