• Initiateur de la discussion Initiateur de la discussion fleet21
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

fleet21

XLDnaute Junior
Bonjour,

Je souhaite mettre une couleur de remplissage dans une cellule par vba, avec l’enregistrement macro ça me donne une usine à gaz dont je ne veux pas :

Range("A8").Select

With Selection.Interior

.Pattern = xlSolid

.PatternColorIndex = xlAutomatic

.Color = 5296274

.TintAndShade = 0

.PatternTintAndShade = 0

End With

Il y a certainement moyen de faire plus court et lisible.
 
Salut

Comme souvent ÕÖ*, je balance et pour un effet va et vient :

VB:
Dim Fond As Single
Private Sub Worksheet_SelectionChange(ByVal R As Range)
  Fond = R.Interior.ColorIndex 'couleur à récupérer
End Sub

Private Sub Worksheet_BeforeDoubleClick(ByVal R As Range, Cancel As Boolean)
  Cancel = 1 'puis effet bascule
  R.Interior.ColorIndex = IIf(R.Interior.ColorIndex = 3, Fond, 3)
End Sub

*mon bon souvenir et bise.ColorIndex
 
Bonjour à tous,

Je suis resté "simplet",
CAR
il y aura des "peut-être" ou "surement" des recherches par la suite (comme on j'en voit souvent par "COULEUR")
au moins avec des couleurs de base c'est plus facile à faire son module
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

  • Question Question
Microsoft 365 worksheet_change
Réponses
29
Affichages
482
  • Question Question
Microsoft 365 comparaison texte
Réponses
5
Affichages
715
  • Question Question
Microsoft 365 colorer une plage
Réponses
2
Affichages
872
Réponses
22
Affichages
3 K
Retour