Macro format cellule, couleur remplissage
Résolu/Fermé
volfoss
Messages postés
31
Date d'inscription
jeudi 21 juillet 2016
Statut
Membre
Dernière intervention
15 octobre 2023
-
13 août 2016 à 19:52
volfoss Messages postés 31 Date d'inscription jeudi 21 juillet 2016 Statut Membre Dernière intervention 15 octobre 2023 - 13 août 2016 à 22:00
volfoss Messages postés 31 Date d'inscription jeudi 21 juillet 2016 Statut Membre Dernière intervention 15 octobre 2023 - 13 août 2016 à 22:00
A voir également:
- Macro couleur cellule selon texte
- Excel cellule couleur si condition texte - Guide
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Excel compter cellule couleur sans vba - Guide
- Excel si couleur cellule alors ✓ - Forum Excel
- Macro word - Guide
2 réponses
Mike-31
Messages postés
18354
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
1 janvier 2025
5 110
Modifié par Mike-31 le 13/08/2016 à 20:07
Modifié par Mike-31 le 13/08/2016 à 20:07
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.
Mike-31
Messages postés
18354
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
1 janvier 2025
5 110
13 août 2016 à 21:48
13 août 2016 à 21:48
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
volfoss
Messages postés
31
Date d'inscription
jeudi 21 juillet 2016
Statut
Membre
Dernière intervention
15 octobre 2023
13 août 2016 à 22:00
13 août 2016 à 22:00
C'est exactement ce que je recherchais, un grand merci à toi.
13 août 2016 à 20:13