Macro format cellule, couleur remplissage
Résolu
volfoss
Messages postés
37
Date d'inscription
Statut
Membre
Dernière intervention
-
volfoss Messages postés 37 Date d'inscription Statut Membre Dernière intervention -
volfoss Messages postés 37 Date d'inscription Statut Membre Dernière intervention -
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.
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.
A voir également:
- Vba changer la couleur d'une cellule
- Changer dns - Guide
- Excel cellule couleur si condition texte - Guide
- Excel compter cellule couleur sans vba - Guide
- Changer la couleur de la barre des taches - Guide
- Aller à la ligne dans une cellule excel - Guide
2 réponses
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.
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.
volfoss
Messages postés
37
Date d'inscription
Statut
Membre
Dernière intervention
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).
Re,
voila le code à placer dans les propriétés d'un bouton ou dans un module
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
