Tout est dans le titre. J'aimerai insérer un pattern dans une image et modifier sa couleur en fonction d'informations saisies dans des cellules. L'exemple fourni sera plus clair.
J'aimerai un code VBA valable pour tout le classeur et non la feuille, donc dans un module SVP.
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
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.