Discussion :

[patrick.iribarne]

Hello
J'ai créé des "shapes" dans une page et je cherche à rendre cette image tantôt invisible, tantôt visible selon des actions de l'utilisateur ...
Mon idée est donc tantôt d'envoyer l'image en premier plan, tantôt en arrière plan.

(A noter que j'ai renoncé à des Cut/ Paste à cause des basculements d'écrans !)

==> SOS ! - Merci - Patrick

Pour l'instant mon code ressemble à ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
        Indice = "Icone_" & CStr(Ancienne_Carte)
        Set I = Sheets("Board").Shapes(Indice)
        I.Fill.Visible = msoFalse
        I.Fill.Transparency = 1#
        Rem I.Cut
        Rem Sheets("Board").Select
        Rem Range("AC12").Select
        Rem ActiveSheet.Paste

[Menhir]

(A noter que j'ai renoncé à des Cut/ Paste à cause des basculements d'écrans !)

Les écrans basculent parce que tu utilises des Select, pas à cause des Cut / Paste.
Mais utiliser des Select pour faire ça n'est absolument pas indispensable. Je dirais même qu'à mon avis c'est fortement déconseillé.

[patrick.iribarne]

OK, mais alors comment coller mon image dans la cellule AC12 sans faire de select ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
        Sheets("Board").Select
        Range("AC12").Select
        ActiveSheet.Paste

[Menhir]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
        Sheets("Board").Shapes(Indice).Cut
        Sheets("Board").Range("AC12").Paste

Tu comprends mieux maintenant pourquoi je déconseille les Select ?
Sans les Select, le code est plus simple et l'exécution plus rapide et plus élégante. Que demander de plus ?

[patrick.iribarne]

Oui, Compris ! Mais bon, j'ai une erreur d'exécution sur

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Sheets("Board").Range("D21").Paste

==> Le paste ne semble pas marcher ?

[Menhir]

J'ai recopier ton code un peu vite.
Range n'a pas de méthode Paste. Il faut utiliser PasteSpecial.
https://msdn.microsoft.com/fr-fr/lib.../ff839476.aspx

[patrick.iribarne]

Euh ... Bon ... Pour revenir à ma recherche initiale : Comment envoyer une image "shape'" en background ou en foerground ?

Avec par exemple I.Fill.Visible = msoFalsen, I.Fill.Transparency = 1# ... Mais je n'arrive pas à le faire fonctionner avec des instructions simples !

[unparia]

Bonjour

je cherche à rendre cette image tantôt invisible, tantôt visible

Si tel est vraiment le but, la propriété visible fait chez moi l'affaire ainsi :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Me.Shapes("Image 1").Visible = False ' ou true pour montrer

[Menhir]

Comment envoyer une image "shape'" en background ou en foerground ?

Ce n'est pas possible. Excel ne marche pas comme Word.
Il n'est possible de mettre les Shapes "devant" ou "derrière" que les unes par rapport aux autres, pas par rapport aux cellules ou au tableau.
Pour t'en persuader, crée une Shape unique dans une feuille, fais un clic droit dessus et tu verras que les commandes "mettre dessus/dessous" sont grisées donc indisponibles.
Crée une seconde Shape et tu verras que ces commandes sont devenues disponibles.

Avec par exemple I.Fill.Visible = msoFalsen, I.Fill.Transparency = 1# ... Mais je n'arrive pas à le faire fonctionner avec des instructions simples !

Fill, comme son nom l'indique, concerne le remplissage de la forme, pas la forme elle-même.
Si tu fais un rectangle, Fill te permet de définir comment il est rempli et, par exemple, de pouvoir le transformer en simple cadre (intérieur transparent).

Mais ça ne peut pas marcher sur une image puisque l'objet est déjà rempli par lui-même.

La seule solution est de voir si ça marche en appliquant Visible au Shape (sans Fill).
https://msdn.microsoft.com/fr-fr/lib.../ff839674.aspx

[patrick.iribarne]

Bonjour

Si tel est vraiment le but, la propriété visible fait chez moi l'affaire ainsi :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Me.Shapes("Image 1").Visible = False ' ou true pour montrer

Ca marche pour le passage à False ! : L'image disparait bien !!!

Mais lorsque je veux la faire "revenir" : j'ai une erreur d'exécution avec Sélection impossible !!! (code ci-dessous)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
    Indice = "Icone_" & CStr(IDCarte)
    ActiveSheet.Shapes(Indice).Select
    Selection.Visible = True

[unparia]

Comment peux-tu en effet penser sélectionner ce qui n'est pas visible ?
Pourquoi, d'ailleurs, sélectionner ?
Il suffit de (exemple) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Me.Shapes("Image 1").Visible = True

On ne travaille pas à "coups" de select, selection, etc
On travaille directement sur les objets Excel (également vrai pour l'utilisation de .visible = False).
Perds ces habitudes.

[Menhir]

Mais lorsque je veux la faire "revenir" : j'ai une erreur d'exécution avec Sélection impossible !!!

Bis

Mais utiliser des Select pour faire ça n'est absolument pas indispensable. Je dirais même qu'à mon avis c'est fortement déconseillé.

[patrick.iribarne]

Comment peux-tu en effet penser sélectionner ce qui n'est pas visible ?
Pourquoi, d'ailleurs, sélectionner ?
Il suffit de (exemple) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Me.Shapes("Image 1").Visible = True

On ne travaille pas à "coups" de select, selection, etc
On travaille directement sur les objets Excel (également vrai pour l'utilisation de .visible = False).
Perds ces habitudes.

Ca marche ! Avec le code ci-dessous :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
ActiveSheet.Shapes("Shape").Visible = False 
ActiveSheet.Shapes("Shape").Visible = True

Heu ... le "Me." Connais pas ....

[Menhir]

Heu ... le "Me." Connais pas ....

L'aide VBA est ton amie : https://msdn.microsoft.com/fr-fr/lib...ffice.15).aspx