Bonjour, grace à ce forum, j'ai pu mettre en place l'apparition, à l'aide
d'une macro ci-dessous, d'une image sur ma feuille.
Cependant, cette dernière s'affiche par défaut au premier plan, et cache
donc des informations utiles.
Je voudrai donc une solution pour que l'image s'affiche désormais en arrière
plan.
Merci d'avance.
La macro "affichage image" :
Application.ScreenUpdating = False
Set Sh = Worksheets("Feuille A").Shapes("Image 6").Duplicate
Sh.CopyPicture
With Worksheets("Feuille B")
.Activate
.Paste
With .Range("b2:e10")
Selection.Top = .Top
Selection.Left = .Left
Selection.Height = .Height
Selection.Width = .Width
.Select
End With
End With
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
michdenis
Bonjour Filigim,
Le concept de premier plan ou d'arrière plan n'existe pas dans l'exemple que tu donnes ...
Si tu ajoutes ceci à ta procédure, l'image deviendra invisible
Application.ScreenUpdating = False Set Sh = Worksheets("Feuil1").Shapes("Image 1").Duplicate Sh.CopyPicture
With Worksheets("Feuil2") .Activate .Paste With .Range("b2:e10") Selection.Top = .Top Selection.Left = .Left Selection.Height = .Height Selection.Width = .Width 'inscrit dans la cellule A1 de la feuille , le nom de l'image Range("A1") = Selection.Name 'rend l'image invisible Selection.Visible = False .Select End With End With
Pour la rendre visible : With Worksheets("Feuil2") .Shapes(.Range("A1")).visible = true End with
Salutations!
"fifigim" a écrit dans le message de news: Bonjour, grace à ce forum, j'ai pu mettre en place l'apparition, à l'aide d'une macro ci-dessous, d'une image sur ma feuille. Cependant, cette dernière s'affiche par défaut au premier plan, et cache donc des informations utiles. Je voudrai donc une solution pour que l'image s'affiche désormais en arrière plan.
Merci d'avance.
La macro "affichage image" :
Application.ScreenUpdating = False Set Sh = Worksheets("Feuille A").Shapes("Image 6").Duplicate Sh.CopyPicture
With Worksheets("Feuille B") .Activate .Paste With .Range("b2:e10") Selection.Top = .Top Selection.Left = .Left Selection.Height = .Height Selection.Width = .Width .Select End With End With
Bonjour Filigim,
Le concept de premier plan ou d'arrière plan n'existe pas
dans l'exemple que tu donnes ...
Si tu ajoutes ceci à ta procédure, l'image deviendra invisible
Application.ScreenUpdating = False
Set Sh = Worksheets("Feuil1").Shapes("Image 1").Duplicate
Sh.CopyPicture
With Worksheets("Feuil2")
.Activate
.Paste
With .Range("b2:e10")
Selection.Top = .Top
Selection.Left = .Left
Selection.Height = .Height
Selection.Width = .Width
'inscrit dans la cellule A1 de la feuille , le nom de l'image
Range("A1") = Selection.Name
'rend l'image invisible
Selection.Visible = False
.Select
End With
End With
Pour la rendre visible :
With Worksheets("Feuil2")
.Shapes(.Range("A1")).visible = true
End with
Salutations!
"fifigim" <fifigim@discussions.microsoft.com> a écrit dans le message de news: 6DDAD132-073D-413A-840C-D51E55DB3FF0@microsoft.com...
Bonjour, grace à ce forum, j'ai pu mettre en place l'apparition, à l'aide
d'une macro ci-dessous, d'une image sur ma feuille.
Cependant, cette dernière s'affiche par défaut au premier plan, et cache
donc des informations utiles.
Je voudrai donc une solution pour que l'image s'affiche désormais en arrière
plan.
Merci d'avance.
La macro "affichage image" :
Application.ScreenUpdating = False
Set Sh = Worksheets("Feuille A").Shapes("Image 6").Duplicate
Sh.CopyPicture
With Worksheets("Feuille B")
.Activate
.Paste
With .Range("b2:e10")
Selection.Top = .Top
Selection.Left = .Left
Selection.Height = .Height
Selection.Width = .Width
.Select
End With
End With
Le concept de premier plan ou d'arrière plan n'existe pas dans l'exemple que tu donnes ...
Si tu ajoutes ceci à ta procédure, l'image deviendra invisible
Application.ScreenUpdating = False Set Sh = Worksheets("Feuil1").Shapes("Image 1").Duplicate Sh.CopyPicture
With Worksheets("Feuil2") .Activate .Paste With .Range("b2:e10") Selection.Top = .Top Selection.Left = .Left Selection.Height = .Height Selection.Width = .Width 'inscrit dans la cellule A1 de la feuille , le nom de l'image Range("A1") = Selection.Name 'rend l'image invisible Selection.Visible = False .Select End With End With
Pour la rendre visible : With Worksheets("Feuil2") .Shapes(.Range("A1")).visible = true End with
Salutations!
"fifigim" a écrit dans le message de news: Bonjour, grace à ce forum, j'ai pu mettre en place l'apparition, à l'aide d'une macro ci-dessous, d'une image sur ma feuille. Cependant, cette dernière s'affiche par défaut au premier plan, et cache donc des informations utiles. Je voudrai donc une solution pour que l'image s'affiche désormais en arrière plan.
Merci d'avance.
La macro "affichage image" :
Application.ScreenUpdating = False Set Sh = Worksheets("Feuille A").Shapes("Image 6").Duplicate Sh.CopyPicture
With Worksheets("Feuille B") .Activate .Paste With .Range("b2:e10") Selection.Top = .Top Selection.Left = .Left Selection.Height = .Height Selection.Width = .Width .Select End With End With
fifigim
Oui, je sais bien que le "concept" d'arrière plan n'existe pas dans mon exemple. Et en toute logique, vu que je demande comment le mettre en oeuvre dans ma macro...
Merci pour la réponse, mais je ne souhaite pas que l'image soit invisible, mais seulement s'afficher en arrière plan. Car, par défaut, elle s'affiche en premier plan, et cache les données qui se trouve derrière. Il est vrai qu'en faisant clic droit et "arrière plan", mais bon, si l'on peut s'éviter cette opération, cela serai bien plus rapide.
Merci !
Bonjour Filigim,
Le concept de premier plan ou d'arrière plan n'existe pas dans l'exemple que tu donnes ...
Si tu ajoutes ceci à ta procédure, l'image deviendra invisible
Application.ScreenUpdating = False Set Sh = Worksheets("Feuil1").Shapes("Image 1").Duplicate Sh.CopyPicture
With Worksheets("Feuil2") .Activate .Paste With .Range("b2:e10") Selection.Top = .Top Selection.Left = .Left Selection.Height = .Height Selection.Width = .Width 'inscrit dans la cellule A1 de la feuille , le nom de l'image Range("A1") = Selection.Name 'rend l'image invisible Selection.Visible = False .Select End With End With
Pour la rendre visible : With Worksheets("Feuil2") .Shapes(.Range("A1")).visible = true End with
Salutations!
"fifigim" a écrit dans le message de news: Bonjour, grace à ce forum, j'ai pu mettre en place l'apparition, à l'aide d'une macro ci-dessous, d'une image sur ma feuille. Cependant, cette dernière s'affiche par défaut au premier plan, et cache donc des informations utiles. Je voudrai donc une solution pour que l'image s'affiche désormais en arrière plan.
Merci d'avance.
La macro "affichage image" :
Application.ScreenUpdating = False Set Sh = Worksheets("Feuille A").Shapes("Image 6").Duplicate Sh.CopyPicture
With Worksheets("Feuille B") .Activate .Paste With .Range("b2:e10") Selection.Top = .Top Selection.Left = .Left Selection.Height = .Height Selection.Width = .Width .Select End With End With
Oui, je sais bien que le "concept" d'arrière plan n'existe pas dans mon
exemple. Et en toute logique, vu que je demande comment le mettre en oeuvre
dans ma macro...
Merci pour la réponse, mais je ne souhaite pas que l'image soit invisible,
mais seulement s'afficher en arrière plan. Car, par défaut, elle s'affiche en
premier plan, et cache les données qui se trouve derrière. Il est vrai qu'en
faisant clic droit et "arrière plan", mais bon, si l'on peut s'éviter cette
opération, cela serai bien plus rapide.
Merci !
Bonjour Filigim,
Le concept de premier plan ou d'arrière plan n'existe pas
dans l'exemple que tu donnes ...
Si tu ajoutes ceci à ta procédure, l'image deviendra invisible
Application.ScreenUpdating = False
Set Sh = Worksheets("Feuil1").Shapes("Image 1").Duplicate
Sh.CopyPicture
With Worksheets("Feuil2")
.Activate
.Paste
With .Range("b2:e10")
Selection.Top = .Top
Selection.Left = .Left
Selection.Height = .Height
Selection.Width = .Width
'inscrit dans la cellule A1 de la feuille , le nom de l'image
Range("A1") = Selection.Name
'rend l'image invisible
Selection.Visible = False
.Select
End With
End With
Pour la rendre visible :
With Worksheets("Feuil2")
.Shapes(.Range("A1")).visible = true
End with
Salutations!
"fifigim" <fifigim@discussions.microsoft.com> a écrit dans le message de news: 6DDAD132-073D-413A-840C-D51E55DB3FF0@microsoft.com...
Bonjour, grace à ce forum, j'ai pu mettre en place l'apparition, à l'aide
d'une macro ci-dessous, d'une image sur ma feuille.
Cependant, cette dernière s'affiche par défaut au premier plan, et cache
donc des informations utiles.
Je voudrai donc une solution pour que l'image s'affiche désormais en arrière
plan.
Merci d'avance.
La macro "affichage image" :
Application.ScreenUpdating = False
Set Sh = Worksheets("Feuille A").Shapes("Image 6").Duplicate
Sh.CopyPicture
With Worksheets("Feuille B")
.Activate
.Paste
With .Range("b2:e10")
Selection.Top = .Top
Selection.Left = .Left
Selection.Height = .Height
Selection.Width = .Width
.Select
End With
End With
Oui, je sais bien que le "concept" d'arrière plan n'existe pas dans mon exemple. Et en toute logique, vu que je demande comment le mettre en oeuvre dans ma macro...
Merci pour la réponse, mais je ne souhaite pas que l'image soit invisible, mais seulement s'afficher en arrière plan. Car, par défaut, elle s'affiche en premier plan, et cache les données qui se trouve derrière. Il est vrai qu'en faisant clic droit et "arrière plan", mais bon, si l'on peut s'éviter cette opération, cela serai bien plus rapide.
Merci !
Bonjour Filigim,
Le concept de premier plan ou d'arrière plan n'existe pas dans l'exemple que tu donnes ...
Si tu ajoutes ceci à ta procédure, l'image deviendra invisible
Application.ScreenUpdating = False Set Sh = Worksheets("Feuil1").Shapes("Image 1").Duplicate Sh.CopyPicture
With Worksheets("Feuil2") .Activate .Paste With .Range("b2:e10") Selection.Top = .Top Selection.Left = .Left Selection.Height = .Height Selection.Width = .Width 'inscrit dans la cellule A1 de la feuille , le nom de l'image Range("A1") = Selection.Name 'rend l'image invisible Selection.Visible = False .Select End With End With
Pour la rendre visible : With Worksheets("Feuil2") .Shapes(.Range("A1")).visible = true End with
Salutations!
"fifigim" a écrit dans le message de news: Bonjour, grace à ce forum, j'ai pu mettre en place l'apparition, à l'aide d'une macro ci-dessous, d'une image sur ma feuille. Cependant, cette dernière s'affiche par défaut au premier plan, et cache donc des informations utiles. Je voudrai donc une solution pour que l'image s'affiche désormais en arrière plan.
Merci d'avance.
La macro "affichage image" :
Application.ScreenUpdating = False Set Sh = Worksheets("Feuille A").Shapes("Image 6").Duplicate Sh.CopyPicture
With Worksheets("Feuille B") .Activate .Paste With .Range("b2:e10") Selection.Top = .Top Selection.Left = .Left Selection.Height = .Height Selection.Width = .Width .Select End With End With
michdenis
| Il est vrai qu'en faisant clic droit et "arrière plan", mais bon
Il n'y a rien de vrai dans ce que tu énonces... (clic droit ...), tu peux utiliser la commande barre des menus / format / feuille / arrière plan .... mais cela ne saurait se limiter à l'étendue d'une plage de cellules bien définie.
Salutations!
"fifigim" a écrit dans le message de news: Oui, je sais bien que le "concept" d'arrière plan n'existe pas dans mon exemple. Et en toute logique, vu que je demande comment le mettre en oeuvre dans ma macro...
Merci pour la réponse, mais je ne souhaite pas que l'image soit invisible, mais seulement s'afficher en arrière plan. Car, par défaut, elle s'affiche en premier plan, et cache les données qui se trouve derrière. Il est vrai qu'en faisant clic droit et "arrière plan", mais bon, si l'on peut s'éviter cette opération, cela serai bien plus rapide.
Merci !
Bonjour Filigim,
Le concept de premier plan ou d'arrière plan n'existe pas dans l'exemple que tu donnes ...
Si tu ajoutes ceci à ta procédure, l'image deviendra invisible
Application.ScreenUpdating = False Set Sh = Worksheets("Feuil1").Shapes("Image 1").Duplicate Sh.CopyPicture
With Worksheets("Feuil2") .Activate .Paste With .Range("b2:e10") Selection.Top = .Top Selection.Left = .Left Selection.Height = .Height Selection.Width = .Width 'inscrit dans la cellule A1 de la feuille , le nom de l'image Range("A1") = Selection.Name 'rend l'image invisible Selection.Visible = False .Select End With End With
Pour la rendre visible : With Worksheets("Feuil2") .Shapes(.Range("A1")).visible = true End with
Salutations!
"fifigim" a écrit dans le message de news:
Bonjour, grace à ce forum, j'ai pu mettre en place l'apparition, à l'aide d'une macro ci-dessous, d'une image sur ma feuille. Cependant, cette dernière s'affiche par défaut au premier plan, et cache donc des informations utiles. Je voudrai donc une solution pour que l'image s'affiche désormais en arrière plan.
Merci d'avance.
La macro "affichage image" :
Application.ScreenUpdating = False Set Sh = Worksheets("Feuille A").Shapes("Image 6").Duplicate Sh.CopyPicture
With Worksheets("Feuille B") .Activate .Paste With .Range("b2:e10") Selection.Top = .Top Selection.Left = .Left Selection.Height = .Height Selection.Width = .Width .Select End With End With
| Il est vrai qu'en faisant clic droit et "arrière plan", mais bon
Il n'y a rien de vrai dans ce que tu énonces... (clic droit ...), tu peux utiliser la commande
barre des menus / format / feuille / arrière plan .... mais cela ne saurait se limiter à
l'étendue d'une plage de cellules bien définie.
Salutations!
"fifigim" <fifigim@discussions.microsoft.com> a écrit dans le message de news: 07A1CB46-1706-4085-B999-5C4052DE3D99@microsoft.com...
Oui, je sais bien que le "concept" d'arrière plan n'existe pas dans mon
exemple. Et en toute logique, vu que je demande comment le mettre en oeuvre
dans ma macro...
Merci pour la réponse, mais je ne souhaite pas que l'image soit invisible,
mais seulement s'afficher en arrière plan. Car, par défaut, elle s'affiche en
premier plan, et cache les données qui se trouve derrière. Il est vrai qu'en
faisant clic droit et "arrière plan", mais bon, si l'on peut s'éviter cette
opération, cela serai bien plus rapide.
Merci !
Bonjour Filigim,
Le concept de premier plan ou d'arrière plan n'existe pas
dans l'exemple que tu donnes ...
Si tu ajoutes ceci à ta procédure, l'image deviendra invisible
Application.ScreenUpdating = False
Set Sh = Worksheets("Feuil1").Shapes("Image 1").Duplicate
Sh.CopyPicture
With Worksheets("Feuil2")
.Activate
.Paste
With .Range("b2:e10")
Selection.Top = .Top
Selection.Left = .Left
Selection.Height = .Height
Selection.Width = .Width
'inscrit dans la cellule A1 de la feuille , le nom de l'image
Range("A1") = Selection.Name
'rend l'image invisible
Selection.Visible = False
.Select
End With
End With
Pour la rendre visible :
With Worksheets("Feuil2")
.Shapes(.Range("A1")).visible = true
End with
Salutations!
"fifigim" <fifigim@discussions.microsoft.com> a écrit dans le message de news:
6DDAD132-073D-413A-840C-D51E55DB3FF0@microsoft.com...
Bonjour, grace à ce forum, j'ai pu mettre en place l'apparition, à l'aide
d'une macro ci-dessous, d'une image sur ma feuille.
Cependant, cette dernière s'affiche par défaut au premier plan, et cache
donc des informations utiles.
Je voudrai donc une solution pour que l'image s'affiche désormais en arrière
plan.
Merci d'avance.
La macro "affichage image" :
Application.ScreenUpdating = False
Set Sh = Worksheets("Feuille A").Shapes("Image 6").Duplicate
Sh.CopyPicture
With Worksheets("Feuille B")
.Activate
.Paste
With .Range("b2:e10")
Selection.Top = .Top
Selection.Left = .Left
Selection.Height = .Height
Selection.Width = .Width
.Select
End With
End With
| Il est vrai qu'en faisant clic droit et "arrière plan", mais bon
Il n'y a rien de vrai dans ce que tu énonces... (clic droit ...), tu peux utiliser la commande barre des menus / format / feuille / arrière plan .... mais cela ne saurait se limiter à l'étendue d'une plage de cellules bien définie.
Salutations!
"fifigim" a écrit dans le message de news: Oui, je sais bien que le "concept" d'arrière plan n'existe pas dans mon exemple. Et en toute logique, vu que je demande comment le mettre en oeuvre dans ma macro...
Merci pour la réponse, mais je ne souhaite pas que l'image soit invisible, mais seulement s'afficher en arrière plan. Car, par défaut, elle s'affiche en premier plan, et cache les données qui se trouve derrière. Il est vrai qu'en faisant clic droit et "arrière plan", mais bon, si l'on peut s'éviter cette opération, cela serai bien plus rapide.
Merci !
Bonjour Filigim,
Le concept de premier plan ou d'arrière plan n'existe pas dans l'exemple que tu donnes ...
Si tu ajoutes ceci à ta procédure, l'image deviendra invisible
Application.ScreenUpdating = False Set Sh = Worksheets("Feuil1").Shapes("Image 1").Duplicate Sh.CopyPicture
With Worksheets("Feuil2") .Activate .Paste With .Range("b2:e10") Selection.Top = .Top Selection.Left = .Left Selection.Height = .Height Selection.Width = .Width 'inscrit dans la cellule A1 de la feuille , le nom de l'image Range("A1") = Selection.Name 'rend l'image invisible Selection.Visible = False .Select End With End With
Pour la rendre visible : With Worksheets("Feuil2") .Shapes(.Range("A1")).visible = true End with
Salutations!
"fifigim" a écrit dans le message de news:
Bonjour, grace à ce forum, j'ai pu mettre en place l'apparition, à l'aide d'une macro ci-dessous, d'une image sur ma feuille. Cependant, cette dernière s'affiche par défaut au premier plan, et cache donc des informations utiles. Je voudrai donc une solution pour que l'image s'affiche désormais en arrière plan.
Merci d'avance.
La macro "affichage image" :
Application.ScreenUpdating = False Set Sh = Worksheets("Feuille A").Shapes("Image 6").Duplicate Sh.CopyPicture
With Worksheets("Feuille B") .Activate .Paste With .Range("b2:e10") Selection.Top = .Top Selection.Left = .Left Selection.Height = .Height Selection.Width = .Width .Select End With End With
