Bonjour.
Je sais vous allez vous dire "encore un qui ne fait aucune recherche de sources sur le site"
Mais là je sèche.
Je souhaite dans mon outil(application c'est plus joli) que l'utilisateur choisisse une couleur pour un certain paramètre donné via une boite de dialogue de sélection de couleur.
Puis ensuite, par le code enrichir une table de ce type:
Nom : Capture d'écran 2024-08-03 105548.png
Affichages : 247
Taille : 8,0 Ko

Bien sûr je me suis basé sur ceci : https://access.developpez.com/source...ndlg#ShowColor

Voici mon code (dans la module du formulaire) :

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
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
Option Compare Database
Private Declare PtrSafe Function CHOOSECOLOR Lib "comdlg32.dll" Alias _
"ChooseColorA" (pChoosecolor As CHOOSECOLOR) As Long
Private Type CHOOSECOLOR
    lStructSize As Long
    hwndOwner As Long
    hInstance As Long
    rgbResult As Long
    lpCustColors As String
    flags As Long
    lCustData As Long
    lpfnHook As Long
    lpTemplateName As String
End Type
 
Private Sub Commande0_Click()
Dim lacouleur As Long
lacouleur = ShowColor(Me.Hwnd)
'Debug.Print lacouleur
End Sub
 
 
Public Function ShowColor(Handle As Long) As Long
    Dim cc As CHOOSECOLOR
    Dim Custcolor(16) As Long
    Dim lReturn As Long
 
    'set the structure size
    cc.lStructSize = Len(cc)
    'Set the owner
    cc.hwndOwner = Handle
    'set the custom colors (converted to Unicode)
    cc.lpCustColors = StrConv(CustomColors, vbUnicode)
    'no extra flags
    cc.flags = 0
 
    'Show the 'Select Color'-dialog
    If CHOOSECOLOR(cc) <> 0 Then
        ShowColor = cc.rgbResult
        CustomColors = StrConv(cc.lpCustColors, vbFromUnicode)
    Else
        ShowColor = -1
    End If
End Function
La valeur de lacouleur reste à -1, aucune boite de dialogue de sélection de couleur ne s'affiche...
Quel est le soucis svp ?
Merci.
Cordialement.
Pour info je joins le fichier:
Palette_couleur_DPC.zip