décorer une image + couleur

Iznogood1

XLDnaute Impliqué

• 8 Mars 2016

• #2

Re : décorer une image + couleur

Bonjour,

un code du genre

Code:

Sub FillShape(sh As Shape, Color As Long)
  sh.Fill.ForeColor.RGB = Color
End Sub

Tu peux ensuite appeler cette fonction de divers moyens
Exemple

Code:

Sub demo()
  FillShape Feuil1.Shapes(Feuil1.[T2].Value), Feuil1.[V2].Value
End Sub

 

Vote positif 0 Vote négatif

eastwick

XLDnaute Accro

• 8 Mars 2016

• #3

Re : décorer une image + couleur

Merci, ça fonctionne pour une couleur de remplissage globale mais pas pour un pattern qui ensuite sera coloré !

 

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 8 Mars 2016

• #4

Re : décorer une image + couleur

Bonjour eastwick, Iznogood,

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
ActiveSheet.Shapes("image_01").Select
With Selection.Interior
.Pattern = Range("U2").Text
.PatternColorIndex = xlAutomatic
.Color = Range("V2").Value
End With
End Sub

A+ 😎

 

Vote positif 0 Vote négatif

eastwick

XLDnaute Accro

• 8 Mars 2016

• #5

Re : décorer une image + couleur

Merci, j'ai intégré ton code dans un module, comment l'activer à présent, ou plutôt comment effectuer l'opération ?

 

Vote positif 0 Vote négatif

eastwick

XLDnaute Accro

• 8 Mars 2016

• #6

Re : décorer une image + couleur

Comment faire si j'ai plusieurs images STP (désolé du rajout) !

 

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 8 Mars 2016

• #7

Re : décorer une image + couleur

Re,

Pourquoi avoir mis le code dans un module???. Et bien, je ne sais pas si tu peux faire correpondre X Shapes avec une seule cellule.


EDIT: il faut changer ceci .Pattern = Range("U2").Interior.Pattern, avec le texte ça ne marche pas. Donc il faut créer un style dans la cellule.




A+ 😎

 

Dernière édition: 8 Mars 2016

Vote positif 0 Vote négatif

T

thebenoit59

XLDnaute Accro

• 8 Mars 2016

• #8

Re : décorer une image + couleur

Bonjour Eastwick.
Pourquoi ne reprends tu pas le code que nous avions fais ensemble ?

 

Vote positif 0 Vote négatif

eastwick

XLDnaute Accro

• 8 Mars 2016

• #9

Re : décorer une image + couleur

Justement il me faudra plusieurs images à modifier (80), donc comme je suis profane en VBA il me un code dans un module + la formule qui le fera fonctionner ex : AppliquerPatter(T2;U2) et ColoriePattern(T2;V2).
Difficile de se faire comprendre quand on ne maîtrise pas le VBA correctement.
Sur le même principe que J. Boisgontier dans le fichier joint.

Merci.

 

Pièces jointes

• j-boisgontier.xlsm

  173.7 KB · Affichages: 37
• j-boisgontier.xlsm

  173.7 KB · Affichages: 31

Vote positif 0 Vote négatif

eastwick

XLDnaute Accro

• 8 Mars 2016

• #10

Re : décorer une image + couleur

Bonjour thebenoit59, simplement parce que c'est trop compliqué pour moi !

 

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 8 Mars 2016

• #11

Re : décorer une image + couleur

Re eastwick,

regarde le fichier si il te convient.

 

Pièces jointes

• Change Color Shapes.xlsm

  19.3 KB · Affichages: 48

Dernière édition: 8 Mars 2016

Vote positif 0 Vote négatif

eastwick

XLDnaute Accro

• 9 Mars 2016

• #12

Re : décorer une image + couleur

Merci Lone-wolf, je fais ce fichier pour une utilisation personnelle. Je vais creuser un peu avec toutes les informations fournies jusqu'à présent.

 

Vote positif 0 Vote négatif

eastwick

XLDnaute Accro

• 14 Mars 2016

• #13

Re : décorer une image + couleur

UP, Bonjour le Forum !

 

Vote positif 0 Vote négatif