afficher les couleurs avec msgbox

bigs32

XLDnaute Junior
j'aimerais affciher en msgbox la liste des couleurs avec la methode
Interior.Color mais ca ne marche pas .
j'ai un code qui marche sur excel
Sub PaletteOrigine()
With ThisWorkbook.Sheets("couleur")
.Unprotect
Application.ScreenUpdating = False
ExecuteExcel4Macro "COLOR.PALETTE("""")"
'Range("TBLRGB").Clear
For idx = 1 To 56
.Cells(1 + idx, 1).Interior.Color = ThisWorkbook.Colors(idx)
.Cells(1 + idx, 2) = idx
Next
End With
'Call Défilement1_QuandChangement
End Sub
mais c'est pas valable avec msgbox .avez vous une idée car je cherche depuis pas mal de temps.

merci d'avance
:eek:
 

13GIBE59

XLDnaute Accro
Re : afficher les couleurs avec msgbox

On peut faire ça aussi :

Code:
Sub BoiteDeDialogueFormatCellules()
'ouvrir la boite de dialogue
'Format de cellules Motifs
    Application.Dialogs _
            (xlDialogPatterns).Show
End Sub

mais j'ai l'impression que bigs32 veut autre chose...
 

bigs32

XLDnaute Junior
Re : afficher les couleurs avec msgbox

oh là .je vois qu'il y a des betes en VB sur ce forum.
En fait j'aimerais faire afficher la liste des couleurs à l'utilisateur .Apres il pourra choisir la couleur qui l'intéresse en clikant dessus.une fois cliké , je lance une fct1 si c'est rouge ou fct2 si c'est vert qui est choisi.
j'espère être compris
 

Discussions similaires

Statistiques des forums

Discussions
312 765
Messages
2 091 893
Membres
105 086
dernier inscrit
hyacinthe