Reffffffff
Bonsoir Dan et El Paso
Une liste qui s'use quand on s'en sert
du Site Excelabo fera peut-être l'affaire
Je souhaiterais obtenir dans une feuille excel, un menu déroulant avec la liste des disque dur, dans une autre liste, l'arborescence des fichiers. J'ai une liste de 120 personnes que je dois
mettre sur une feuille excel tous les jours. Je voudrais les placer sur cette feuille à l'aide d'un userform et qu'ils disparaissent au fur et à mesure de la liste. on assure la compatibilité excel 97 feuille modal
Private Declare Function FindWindow Lib 'user32' Alias 'FindWindowA' _
(ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function EnableWindow Lib 'user32' _
(ByVal hWnd As Long, ByVal fEnable As Long) As Long
Private Sub UserForm_Initialize()
For Each c In Range('nom').Cells
ListBox1.AddItem (c.Value)
TextBox1.Value = ListBox1.ListCount
Next
End Sub
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
ActiveCell.Value = ListBox1.Value
ListBox1.RemoveItem (Index)
TextBox1.Value = ListBox1.ListCount
End Sub
Philippe Bronchart
@+ GD