Désolé de ne pas être plus présent sur le forum en ce moment : peu de temps
et beaucoup de boulot.
Ma question :
Est t'l possible en vba (excel 97) de créer un userform qui reste à l'écran
et qui permet de faire un cliquer déplacer à partir d'une liste de nom.
En gros, j'ai une liste de 120 personnels que je dois mettre sur une feuille
excel tous les jours. Je voudrai les placer sur cette feuille à l'aide d'un
userform et qu'il disparraisse de la liste.
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
ListBox1.RemoveItem ListBox1.ListIndex
End Sub
-- JP
http://www.solutionsvba.com
"Philippe BRONCHART" <no wrote in message news:
Bonjour à tous
Désolé de ne pas être plus présent sur le forum en ce moment : peu de temps
et beaucoup de boulot.
Ma question :
Est t'l possible en vba (excel 97) de créer un userform qui reste à l'écran
et qui permet de faire un cliquer déplacer à partir d'une liste de nom.
En gros, j'ai une liste de 120 personnels que je dois mettre sur une feuille
excel tous les jours. Je voudrai les placer sur cette feuille à l'aide d'un
userform et qu'il disparraisse de la liste.
-- Amicalement
Philippe BRONCHART dit la bronche
Philippe BRONCHART
Merci jean paul Bon en fait en bricolant je suis arrivé la :
' 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
Amicalement
Philippe
"Jean-Paul Viel" a écrit dans le message de news: uy4bb.14300$
Bonjour,
Une solution:
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
ListBox1.RemoveItem ListBox1.ListIndex
End Sub
-- JP
http://www.solutionsvba.com
"Philippe BRONCHART" <no wrote in message news:
Bonjour à tous
Désolé de ne pas être plus présent sur le forum en ce moment : peu de temps
et beaucoup de boulot.
Ma question :
Est t'l possible en vba (excel 97) de créer un userform qui reste à l'écran
et qui permet de faire un cliquer déplacer à partir d'une liste de nom.
En gros, j'ai une liste de 120 personnels que je dois mettre sur une feuille
excel tous les jours. Je voudrai les placer sur cette feuille à l'aide d'un
userform et qu'il disparraisse de la liste.
-- Amicalement
Philippe BRONCHART dit la bronche
Merci jean paul
Bon en fait en bricolant je suis arrivé la :
' 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
Amicalement
Philippe
"Jean-Paul Viel" <mtljp2@sympatico.ca> a écrit dans le message de news:
uy4bb.14300$hF3.1671874@news20.bellglobal.com...
Bonjour,
Une solution:
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Merci jean paul Bon en fait en bricolant je suis arrivé la :
' 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
Amicalement
Philippe
"Jean-Paul Viel" a écrit dans le message de news: uy4bb.14300$
Bonjour,
Une solution:
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
ListBox1.RemoveItem ListBox1.ListIndex
End Sub
-- JP
http://www.solutionsvba.com
"Philippe BRONCHART" <no wrote in message news:
Bonjour à tous
Désolé de ne pas être plus présent sur le forum en ce moment : peu de temps
et beaucoup de boulot.
Ma question :
Est t'l possible en vba (excel 97) de créer un userform qui reste à l'écran
et qui permet de faire un cliquer déplacer à partir d'une liste de nom.
En gros, j'ai une liste de 120 personnels que je dois mettre sur une feuille
excel tous les jours. Je voudrai les placer sur cette feuille à l'aide d'un
