Bonsoir tout le monde,

j'ai une petite question à vous poser :

voila je voudrais ajouter une ligne dans une feuille ainsi que le mot à ajouter dans cette ligne puis les classer par ordre alphabétique...

je demande à l'aide d'un inputbox le titre à ajouter... ensuite j'aimerais pouvoir ajouter le titre dans la liste puis trier la liste par ordre alphabétique...

voici mon code :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Sub Ajouter_un_film()
'
  Dim wk As Workbook
  Dim c As Range ' Resultat de la recherche
  Dim mot As String, sResult As String
  mot = InputBox("saisissez le nom du film à ajouter")
  Dim f As Worksheet 'Feuille dans laquelle effectuer la rechercher
 ' Application.ScreenUpdating = False
  'Ouverture du classeur :
  Set wk = Workbooks.Open("file://localhost/users/sebneb/Desktop/liste DVD/LISTEDVD.xls")
  'Effectue recherche dans 1° feuille du classser
 Selection.EntireRow.Insert
 '   wk.Close True ' Fermetur de classeur sans sauvegarde...
 '  Application.ScreenUpdating = False  'Réactive l'affichage
 
 
'Selection.Sort Key1:=Range("B1"), Order1:=xlAscending, Header:=xlGuess, _
   '     OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
 
 
End Sub
merci d'avance pour votre aide