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

[bahnini mohamed]

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]

Re : chnager couleur de cellules par style de motif

Bonjour

Remplace

[d3:e59].Interior.ColorIndex = 15

par

[d3:e59].Interior.Pattern = xlGray8

Cordialement
Chris

 

[bahnini mohamed]

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]

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]

Re : chnager couleur de cellules par style de motif

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

 

[DoubleZero]

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]

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