Problème UserForm insertion d'image ou bouton

Version imprimable

1 pièce(s) jointe(s)

Bonjour,

J'ai un formulaire avec des listbox multi colonnes. J'aimerais pouvoir insérer des images ou des boutons dans les deux premieres colonnes ma listbox mais je n'y arrive pas et je ne sais pas si c'est possible. Les listbox sont alimentés dynamiquement
Pièce jointe 269224

voici le code qui alimente les colonnes 3 et 4 et jaimerais pouvoir alimenter ici les images/boutons des colonnes 1 et 2
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 For Each CurTest In Test_Col.Collection With F_COMPO_CATEGORY_admin.FRM_COMPO_FONCTION.ZLM_COMPO_FONC '.List(j,0) = // jaimerais pouvoir inserer ici des images/boutons ' .List(j,1) = .AddItem .List(j, 2) = CurTest.INT_idtest .List(j, 3) = CurTest.STR_valueref End With j = j + 1 Next CurTest
ces images auront pour but d'ouvrir la modification de la ligne selectionnée ou de supprimer la ligne, donc si vous avez d'autre idées de solutions pouvant répondre a ce problème je suis ouvert.

Merci d'avance,

JahExodus

Intégrer un bouton dans une listbox en vba n'est pas faisable (à ma connaissance)

1. Le plus sage est d'utiliser 2 boutons modifier et supprimer sur ton userform. l'utilisateur sélectionne la ligne désirée de ta listbox et clique sur le bouton modifier ou supprimer.

2. Sinon, on pourra sans les boutons utiliser l’événement DblClick de ta listbox et à l'aide d'un msgbox orienter l'utilisateur à l'action de suppression et de modification. par exemple le msgbox OUI-NON-ANNULER et affecter chaque bouton à une action.

3. On pourra même à l'aide des API personnaliser les boutons du msgbox (je la propose même si je ne suis pas fervent de telles usines à gaz)

Code trouvé sur le net. Référence faite dans le commentaire du code

Dans un module standard:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
Option Explicit
' Module de code adapté des excellents travaux de Michel Pierron
Private Declare Function SetWindowsHookEx& Lib "USER32" Alias "SetWindowsHookExA" (ByVal idHook&, ByVal lpfn&, ByVal hmod&, ByVal dwThreadId&)
Private Declare Function GetCurrentThreadId& Lib "kernel32" ()
Private Declare Function CallNextHookEx& Lib "USER32" (ByVal hHook&, ByVal CodeNo&, ByVal wParam&, ByVal lParam&)
Private Declare Function GetWindow& Lib "USER32" (ByVal hWnd&, ByVal wCmd&)
Private Declare Function SetWindowText& Lib "USER32" Alias "SetWindowTextA" (ByVal hWnd&, ByVal lpString$)
Private Declare Function UnhookWindowsHookEx& Lib "USER32" (ByVal hHook&)
Private msgHook&
Private TitreBtn$(1 To 2)
 
Function MsgBoxPerso(Prompt$, Optional Title$, Optional Caption1$ = "Supprimer", Optional Caption2$ = "Modifier") As Byte
Dim Rep%, hInstance&
TitreBtn(1) = Caption1
TitreBtn(2) = Caption2
msgHook = SetWindowsHookEx(5, AddressOf CaptionBoutons, hInstance, GetCurrentThreadId())
Rep = MsgBox(Prompt, vbYesNoCancel, Title)
MsgBoxPerso = Application.Max(Rep - 5, 0)
Erase TitreBtn
End Function
 
Private Function CaptionBoutons&(ByVal nCode&, ByVal wParam&, ByVal lParam&)
Dim hWndChild&
If nCode < 0 Then
    CaptionBoutons = CallNextHookEx(msgHook, nCode, wParam, lParam)
    Exit Function
End If
If nCode = 5 Then
    hWndChild = GetWindow(wParam, 5)
    Call SetWindowText(hWndChild, TitreBtn(1))
    hWndChild = GetWindow(hWndChild, 2)
    Call SetWindowText(hWndChild, TitreBtn(2))
    UnhookWindowsHookEx msgHook
End If
CaptionBoutons = False
End Function

Et dans le module de ton userform

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim Ref As String
Dim S As Integer
 
With Me.ListBox1
    Ref = .List(.ListIndex, 3)
    S = MsgBoxPerso("Modification ou suppression de " & Ref, Ref)
    If S = 1 Then
        'suppresion
        MsgBox Ref & " va être supprimée"
    ElseIf S = 2 Then
        'modification
        MsgBox Ref & " va être modifiée"
    End If
End With
End Sub

PS. personnellement j'utiliserai le 1.

28/04/2017, 15h17
joe.levrai

Bonjour,

à noter qu'avec la solution 1, tu peux même t'offrir l'opportunité d'un traitement en lot

via les deux propriétés suivantes de ton listbox :

- obligatoire : Propriété Multiselect à placer à 1 - fmMultiSelectMulti (ou Extended si souhaité)
- facultatif : Propriété ListStyle à placer à 1 - fmListStyleOption (qui permet d'avoir des cases à cocher à côté de chaque élément)

tu pourras faire une sélection de plusieurs éléments, et ensuite tu appuies sur le bouton "SUPPRESSION" ou "VISUALISATION" dont tu faisais mention dans tes souhaits, et que mercatog t'as proposé
28/04/2017, 16h04
JahExodus

Merci pour vos réponses je vais essayer de mettre tout ca en place.
J'ai pas l'habitude de faire du VBA alors je galère un peu :oops:
11/05/2017, 15h30
JahExodus

Bonjour,
après reflexion, j'ai décidé de modifier le design de mon appli. Il a un désormais un seul bouton de modif qui va recuperer la valeur de la ligne sélectionné, c'est bien plus simple.

merci à tous, je met le sujet en résolu