Macro format cellule, couleur remplissage

Résolu
volfoss Messages postés 43 Statut Membre -  
volfoss Messages postés 43 Statut Membre -
Bonjour,
Je cherche en vain une macro qui me permette d'accéder directement à l'option format cellule, couleur de remplissage.
Est-ce réalisable ? Merci.

2 réponses

  1. Mike-31 Messages postés 18405 Date d'inscription   Statut Contributeur Dernière intervention   5 147
     
    Bonjour,

    oui bien sur, mais il faut nous en dire plus si tu veux un code adapté

    la ligne de commande est

    ta cellule.interior.colorindex=index couleur
    exemple si tu veux la cellule B5 en rouge
    Range("B5").Interior.colorindex=3

    A+
    Mike-31

    Une période d'échec est un moment rêvé pour semer les graines du savoir.
    0
    1. volfoss Messages postés 43 Statut Membre 3
       
      En fait je veut ouvrir le choix des couleurs par le biais de la macro et pouvoir choisir en cliquant sur la couleur désirée car les cellules n'auront pas de couleurs fixes mais variables (la macro doit remplacer clic droit, format cellule, remplissage, choix de la couleur).
      0
  2. Mike-31 Messages postés 18405 Date d'inscription   Statut Contributeur Dernière intervention   5 147
     
    Re,

    voila le code à placer dans les propriétés d'un bouton ou dans un module

    Dim Coul As Long
    On Error Resume Next
    Application.ScreenUpdating = False
    Application.Dialogs(xlDialogPatterns).Show
    Coul = ActiveCell.Interior.Color
    If ActiveCell.Interior.Color = 16777215 Then
    ActiveCell.Interior.Color = xlNone
    Else: ActiveCell.Interior.Color = Coul
    End If
    Application.ScreenUpdating = True

    0
    1. volfoss Messages postés 43 Statut Membre 3
       
      C'est exactement ce que je recherchais, un grand merci à toi.
      0