XL 2013 (resolut par Chris401) chnager couleur de cellules par style de motif

bahnini mohamed · 21 Février 2016

salut les amis

s"il vous plait comment je dois changer ce code pour avoir des motif au lieu des couleurs dans les cellules

Option Explicit
Private Sub Worksheet_Change(ByVal c As Range)
If c.Address = "$B$4" Then
[d3:e59].Interior.ColorIndex = xlNone
Select Case c.Value
Case "A", "D", "E"
[d3:e59].Interior.ColorIndex = xlNone: [d3:e59] = ""
Case "B", "C"
[d3:e59].Interior.ColorIndex = 15
End Select
End If
End Sub

voici l'exemple
merci

Chris401 · 21 Février 2016

Re : chnager couleur de cellules par style de motif

Bonjour

Remplace

Code:

[d3:e59].Interior.ColorIndex = 15

par

Code:

[d3:e59].Interior.Pattern = xlGray8

Cordialement
Chris

bahnini mohamed · 21 Février 2016

Re : chnager couleur de cellules par style de motif

merci ca fonction bien mais pour les autre motifs comment je doit faire
c'est a dire ya il un tableau qui regroupe toute les codes ?

Chris401 · 21 Février 2016

Re : chnager couleur de cellules par style de motif

Re

Tu lances l'enregistreur de macro et tu mets le style que tu désires dans une cellule ; le code enregistré te donnera sa valeur pour
Interior.Pattern

Chris

bahnini mohamed · 21 Février 2016

Re : chnager couleur de cellules par style de motif

c'est vraiment incroyable merci beaucoup
ça marche très très bien

DoubleZero · 21 Février 2016

Re : (resolut par Chris401) chnager couleur de cellules par style de motif

Bonjour, bahnini mohamed, Chris401, le Forum,

Une autre suggestion en pièce jointe.

A bientôt

bahnini mohamed · 21 Février 2016

Re : (resolut par Chris401) chnager couleur de cellules par style de motif

oh Monsieur DoubleZero c'est vraiment très gentille de vous de nous donner cette exemple impeccable
vraiment vraiment c'est très très professionnelle
encore un grand merci pour vous et aussi pour le forum
merci

XL 2013 (resolut par Chris401) chnager couleur de cellules par style de motif

bahnini mohamed

XLDnaute Occasionnel

Pièces jointes

Chris401

XLDnaute Accro

bahnini mohamed

XLDnaute Occasionnel

Chris401

XLDnaute Accro

bahnini mohamed

XLDnaute Occasionnel

DoubleZero

XLDnaute Barbatruc

Pièces jointes

bahnini mohamed

XLDnaute Occasionnel

Discussions similaires