Macro pour appeler la palette de couleurs, Excel VBA

Si l’utilisateur devait décider lui-même de la couleur de fond qu’il aimerait avoir pour certaines cellules, mettez-lui la boîte de dialogue Palette de couleurs à sa disposition via une macro suivante :

Sub CouleursLireDepuisCouleurPalette ()
    Dim b As Boolean
    Dim I As Integer
    b = Application.Dialogs (xlDialogPatterns).Show
       If b = True Then
          I = ActiveCell.Interior.ColorIndex
           MsgBox " L'index de couleur est:" & I
    Else
          I = xlNone
           MsgBox " Le dialogue a été annulé "
    End If
End Sub

 

Figure: Quelle couleur de fond doit-on utiliser?

S’abonner
Notifier de
0 Commentaires
Inline Feedbacks
Voir tous les commentaires

Initiation à Excel

Fonctions Excel

Excel VBA

Macros VBA Utiles

Plus d'outils

Sur Facebook

Sur YouTube

0
Nous aimerions avoir votre avis, veuillez laisser un commentaire.x
()
x