Fenetre de saisie

[jajaouaib]

Salut,

J'ai un petit probleme dans excel 2002.
Voilà je tiens une liste de mes jeux et de tous les CD que je possede et à chaque fois que j'en récupère un nouveau je suis obligé de le rentrer manuellement et de retrier tout les CD. Je voudrais pouvoir faire comme expliquer ci-dessous :

-Je clique sur un bouton Nouvelle Entrée
-Une fenetre s'affiche me demande le titre du cd, le genre, le nb de cd, etc...
-une fois les info entrées, clique sur ok
-Que excel retrie la liste par ordre alphabetique.....

Voilà merci d'avance

repondre sur mon mail

jajaouaib@wanadoo.fr

 

[Stéphane]

Sub et_voila_une_solution()
Application.ScreenUpdating = False
Range("A1").Select
ActiveSheet.ShowDataForm
Selection.CurrentRegion.Sort _
Key1:=ActiveSheet.Range("A1"), _
Key2:=ActiveSheet.Range("B1"), Header:=xlGuess
End Sub