eastwick
XLDnaute Accro
Bonjour à toutes et tous, je rame avec ce code, pouvez-vous m'aider ?
Function ornerimage(s, R)
Application.Volatile
ActiveSheet.Shapes(s).Interior.pattern = R.Value
End Function
Function patternImage(s)
Set f = Sheets(Application.Caller.Parent.Name)
patternImage = f.Shapes(s).Interior.pattern
End Function
Function ornerimage(s, R)
Application.Volatile
ActiveSheet.Shapes(s).Interior.pattern = R.Value
End Function
Function patternImage(s)
Set f = Sheets(Application.Caller.Parent.Name)
patternImage = f.Shapes(s).Interior.pattern
End Function