Microsoft 365 Image : pourvoir afficher la même image dans tous mes onglet

_Thierry

XLDnaute Barbatruc

Repose en paix

• 7 Septembre 2020

• #2

Bonsoir @Usine à gaz , le Forum

Un essai en pièce jointe, si j'ai compris !
Il faut dézipper le tout dans un répertoire de test qui contiendra le sub-folder "Drapeaux" et les trois .gif...

Bonne Soirée
@+Thierry

 

Pièces jointes

• XLD_Usine_a_Gaz_Image_v00.zip

  55.4 KB · Affichages: 8

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

Supporter XLD

• 7 Septembre 2020

• #3

Bonsoir _Thierry,

Merci pour m'avoir répondu et pour ton fichier.
J'ai testé, mais j'en suis désolé, ça ne peut pas correspondre à mon besoin.
Il est très important que les photos soient stockées dans le fichier de travail.
"Je ne sais où dans le fichier, mais accessibles pour tous les onglets".
Mais je garde ta proposition que m'intéresse
Merci à toi,
lionel,

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

Supporter XLD

• 7 Septembre 2020

• #4

Je réfléchi à mon problème et je me dis que peut-être la solution serait de copier l'image dans l'onglet où je souhaite l'afficher et de la supprimer quand je n'en n'ai plus besoin, c'est à dire "masquer second clic " ?

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 7 Septembre 2020

• #5

Bonsoir Lionel, _Thierry,

Teste le fichier joint avec ce code dans ThisWorkbook :

VB:

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
If Not Target(1) Like "##" Then Exit Sub
Sh.DrawingObjects.Delete 'RAZ
On Error Resume Next
Sheets("Images").Shapes("Image" & Target(1)).Copy
Application.Goto Sh.[C5] 'ou ailleurs...
If Err Then MsgBox "L'image " & Target(1) & " n'existe pas...": Exit Sub
Sh.Paste
ActiveCell.Activate 'désélectionne l'image
End Sub

Bonne nuit.

 

Pièces jointes

• Image_Affiche_TsOnglets(1).xlsm

  217.2 KB · Affichages: 5

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

Supporter XLD

• 7 Septembre 2020

• #6

Bonsoir Gérard
Comme d'hab voilà une belle proposition
Merci à toi, encore une fois
Fatigué, je vais au repos car demain 6h ça recommence lol.
Je verrai ça demain mais c'est une super piste.
Bonne nuit,
lionel

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

Supporter XLD

• 9 Septembre 2020

• #7

Bonjour Gérard, _Thierry, le Forum,
Bonne journée à toutes et à tous
@Gérard,
je ne suis pas revenu sur le fil car après analyse, ton fichier qui fonctionne super bien ne peut pas être intégré à mon fichier de travail et c'est, encore une fois de ma faute

En effet, pour que ce soit adapté, il aurait fallu que je fasse un fichier test exactement mon fichier de travail et comme c'est toujours long à faire, par manque de temps, je ne l'avais pas fait !

Je suis en train de le faire et je reviens dès que c'est prêt
(Je garde précieusement ton fichier dans ma bibliothèque "Gérard")
@plus
lionel,

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 9 Septembre 2020

• #8

Il n'y a pas 36 solutions pour afficher une image : dans une feuille ou dans un UserForm.

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

Supporter XLD

• 9 Septembre 2020

• #9

Re Gérard
Effectivement ... mais j'y reviendrai et si tu veux bien je te soumettrai "la chose"

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

Supporter XLD

• 10 Septembre 2020

• #10

Bonjour Gérard, _Thierry, le Forum,

J'ai pu terminer le fichier test pour mon besoin.
Voici comment j'ai besoin que ça fonctionne ...
Dans l'onglet "Images', chaque image est nommée comme suit : "Client + le n° du Client"

en Feuille "SuivisAppels"
au 1er clic sur le bouton "CaCh"
Pas de photo affichée
si la ligne active contient le n° 1 en colonne "J", la photo "Client 1" est crée et s'affiche
si la ligne active contient le n° 5 en colonne "J", la photo "Client 5" est crée et s'affiche etc...

au second clic sur le bouton "CaCh"
1 photo affichée
la photo affichée est "supprimée et ...
si la ligne active contient le n° 1 en colonne "J", la photo "Client 1" est crée et s'affiche
si la ligne active contient le n° 5 en colonne "J", la photo "Client 5" est crée et s'affiche etc...

je continue à chercher pour faire le bon code ... mais pas certain de pouvoir le faire.

Je joins le fichier test,
Avec mes remerciements,
Je vous souhaite une belle journée à toutes et à tous,
Amicalement,
lionel

 

Pièces jointes

• Image_Affiche_TsOngletsM_forum.xlsm

  633.2 KB · Affichages: 3

Dernière édition: 10 Septembre 2020

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 10 Septembre 2020

• #11

Bonjour Lionel,

Pas bien difficile d'adapter la macro du post #5 :

VB:

Sub Image_Clients1()
Dim c As Range, lig&, s As Shape
Set c = ActiveCell
lig = c.Row
For Each s In ActiveSheet.Shapes
    If s.Name Like "Client*" Then s.Delete
Next
If Not IsNumeric(CStr(Cells(lig, "J"))) Or lig < 7 Then Exit Sub
On Error Resume Next
Sheets("Images").Shapes("Client " & Cells(lig, "J")).Copy
If Err Then MsgBox "L'image " & Cells(lig, "J") & " n'existe pas...": Exit Sub
Cells(lig, "K").Select 'ou ailleurs...
ActiveSheet.Paste
c.Select 'désélectionne l'image
End Sub

A+

 

Pièces jointes

• Image_Affiche_TsOngletsM_forum(1).xlsm

  634.3 KB · Affichages: 9

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

Supporter XLD

• 10 Septembre 2020

• #12

Re-Gérard,
Vraiment super et je n'aurais pas été capable de le faire
Encore un autre "GRAND MERCI"
C'est nickel comme d'hab,

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

Supporter XLD

• 10 Septembre 2020

• #13

Re-Gérard,
Ca fonctionne super bien !
Je reviens pour une dernière"p'tite" amélioration

Tu l'as compris, afficher l'image du client traité (ligne active) permet de voir le "Cahier des charges" et donc permet de l'avoir sous les yeux sans avoir à consulter les documents papier et la, ça devient très très pratique et rapide

Toutefois,quand on a plus besoin de l'afficher, je voudrais qu'on puisse détruire l'image sans en créer forcément une autre.

En partant de ton code, j'ai fait ceci :

VB:

Sub Supprimer_Images()
Application.ScreenUpdating = False
Dim c As Range, s As Shape
For Each s In ActiveSheet.Shapes
    If s.Name Like "Client*" Then s.Delete
Next
Application.ScreenUpdating = True
End Sub

Plaggia lol
Mais ça m'oblige à créer un autre bouton (y'en a déjà bcp dans la feuille) et j'aimerais :
que si une l'image est déjà affichée et si clic une seconde fois sur le bouton "CaCh", "si je suis toujours sur la même ligne active", que l'image soit détruite sans la création d'une autre.
Cela me permettrait de tout faire avec un seul bouton.

Je cherche comment faire mais, la aussi ... pas sur que je sois capable de le coder.
Un dernier coup de "doigts" ?
Merci Gérard
Si je trouve avant (lol ça m'étonnerait), je te dirai,
lionel,

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 10 Septembre 2020

• #14

Usine à gaz à dit:

Toutefois,quand on a plus besoin de l'afficher, je voudrais qu'on puisse détruire l'image sans en créer forcément une autre.

Cliquez pour agrandir...

Bah clique sur la cellule A1 puis sur le bouton "CaCh", ma macro supprime l'image.

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

Supporter XLD

• 10 Septembre 2020

• #15

OUI, c'est vrai aussi lol

 

Vote positif 0 Vote négatif