[RESOLU]Afficher boite de dialogues : Autres couleurs

[Compte Supprimé 979]

Bonsoir à toutes et à tous

Est-ce que quelqu'un connait la syntaxe à utiliser en VBA pour afficher
la boite de dialogue de l'outil : Couleur de remplissage -> Autres couleurs

Je souhaite récupérer la valeur de la couleur sélectionner pour l'appliquer à une cellule

Voir boite de dialogue ci-jointe

D'avance merci

 

[Cousinhub]

Hello,

 

[patricktoulon]

re
Bonjour bhbh
va y creuse Forest

 

[TooFatBoy]

Bonjour,

la discussion est ancienne mais toujours pas résolu visiblement

Pourtant :

En fait le problème est que je pensais avoir trouvé la solution, en fait ce n'était pas le cas.
Du coup j'ai retiré le [RESOLU]

Et maintenant que la solution est réellement trouvée, je le remet

D'ailleurs je ne pensais pas qu'on pouvait utiliser la boîte de dialogue de choix de couleur dans une macro, mais je viens de tester et ça marche super bien !

 

[dysorthographie]

Bonjour,
puisque nous partons dans l'archéologie!

Public Property Get GetColor() As OLE_COLOR
With CreateObject("MSComDlg.CommonDialog")
    .CancelError = True
    On Error Resume Next
    .ShowColor
    If Err Then
       GetColor = -1
    Else
       GetColor = .Color
    End If
    On Error GoTo 0
End With
End Property
Sub test()
Debug.Print GetColor
End Sub

 

[Compte Supprimé 979]

Bonjour à tous,

Merci à Patrick de m'avoir donné un put*in de coup de vieux

 

[patricktoulon]

re
Bonjour Bruno
t'en fait pas c'est qu'un mauvais moment à passer

 

[Dranreb]

Bonjour.
Il y a aussi la commande AfficherEAF de mon CouleurCls.xlsm qui affiche les 3 UFm correspondants.

Élaboration et utilisation de jeux de couleurs.

Mise au point facile de jeux de couleurs pour UserForm, Shape et cellules, voire images calculées. Possibilité de capturer un pixel n'importe où sur l'écran. Module de classe Couleur pour utilisation dans d'autres projets VBA.

excel-downloads.com