Insérer une image dans plusieurs formes à la fois

[Florian699]

Bonjour à tous,

voilà mon problème actuellement :
j'ai une feuille ou à plusieurs endroits j'ai mis une forme différente avec une image dedans (via remplissage / remplissage avec une image ou texture).
J'ai donc au total une centaine de form dans une feuille avec la même image (qui est sur mon disque dur).

Le soucis est que bien souvent je mais une autre image avec le même nom de fichier, je dois passer sur la centaine de forme pour modifier l'image afin de la réactualiser et permettre l'affichage de la nouvelle image.

Ce que j'aimerai c'est que quand je change l'image sur mon disque dur (je garde le même nom d'image), l'image dans ma centaine de formes s'actualise toute seule pour avoir la nouvelle image.

Si quelqu'un peut m'aider, je le remercie d'avance

 

[DoubleZero]

Bonjour, Florian699, le Forum,

Comme ceci ?

Option Explicit
Sub Image_modifier()
    Dim s As Shape
    For Each s In ActiveSheet.Shapes
        If s.Type = 1 Then
            With s
                ' emplacement adapter
                .Fill.UserPicture "C:\Users\DoubleZero\Downloads\Cerises.jpg"
            End With
        End If
    Next
End Sub

A bientôt

 

[Florian699]

Merci pour ta réponse mais cela ne fonctionne pas dans ma feuille
il n'y a rien qui se passe et la forme a toujours la même image quand je change mon image sur le dd

 

[DoubleZero]

Re-bonjour,

...cela ne fonctionne pas dans ma feuille
il n'y a rien qui se passe et la forme a toujours la même image quand je change mon image sur le dd

L'emplacement de l'image a-t-il été modifié ?

Le code est-il placé dans un module standard ?

Avec la macro (non événementielle), voici ce que j'obtiens :

A bientôt ​

 

[Florian699]

oups !!!
cela fonctionne très bien (j'avais oublié de mettre le code sur la feuille).

Par contre un élément que j'ai oublié de précisé : j'ai d'autres formes avec d'autres images et je ne veux pas que ces images là soient changées. Comment peut-on préciser qu'uniquement certaines formes doivent être changées et pas d'autres ?

merci pour ton aide

 

[DoubleZero]

Re-bonjour,

Je pense qu'il est temps de joindre un fichier exemple.

A bientôt

 

[Florian699]

voici un fichier d'exemple :
j'ai 3 langues et 3 formes par langue.
Uniquement les formes de la langue 1 doivent être modifiées.
Mais je peux aussi choisir les formes de la langue 2 uniquement etc ...

 

[Florian699]

toujours là ?

 

[Florian699]

Bonjour,

je reviens vers toi pour voir si tu peux m'aider ou pas ?

Merci encore

 

[DoubleZero]

Bonjour, Florian699, le Forum,

Une suggestion en pièce jointe.

A bientôt

 

[Florian699]

Bonjour et merci
je regarde et je teste et je reviens vers toi

bonne journée

 

[phlaurent55]

Bonjour Florian, doubleOO

voir fichier joint sans macro
les images ne sont pas stockées sur le disque dur mais dans le classeur
il suffit de faire le choix dans la liste déroulante (cellule jaune)

à+
Philippe

 

[DoubleZero]

Bonjour à toutes et à tous,

Philippe ,

Grâce à ton fichier, j'ai pris conscience de la vilaine culeur de mon sourire !

Depuis ce soir, cette brosse à dents trône dans mon enclos :

Il ne me reste plus qu'à trouver le dentifrice idoine...

A bientôt

 

[Florian699]

Bonjour Philippe,

cela marche très bien et je te remercie beaucoup.
Le problème est que je ne comprends pas bien ton code et je n'arrive pas à le reproduire sur une autre feuille.

 

[phlaurent55]

Re,

Le problème est que je ne comprends pas bien ton code ......................

Je suis certain que personne ici sur ce forum n'arrivera à comprendre le code
.................. puisqu'il n'y a pas de code

Il s'agit tout simplement d'un décalage de zone nommée en fonction du choix fait dans les listes de validation (en jaune)

à+
Philippe