Microsoft 365 afficher image entière même si volets figés

[Usine à gaz]

Bonjour à toutes et à tous,
Je vous souhaite une belle journée

J'ai récemment posté une demande : https://www.excel-downloads.com/thr...-la-meme-image-dans-tous-mes-onglet.20048675/
Super génialement résolue par Job75.

Mais comme rien n'est simple dans mon fichier de travail, un nouveau souci vient d'apparaître et je n'arrive pas à le résoudre.

Ma feuille "SuivisAppels" a les volets figés pour garder toujours visibles mes lignes de 1 à 5.
Fonctionnement :
- Un clic sur le bouton "Affiche CaCh" créé et affiche l'image correspondante à la ligne active,
- Un clic sur Image la supprime".

Mon souci :
Selon la ligne sur laquelle je suis, mon image disparaît peu à peu pour ne plus être que tronquée et affichée uniquement sur les lignes 1 à 5.
J'ai besoin de garder les volets figés et de voir l'image entière qu'elle que soit la ligne sur laquelle je suis.

Une fois de plus, je sèche malgré mes recherches et tentatives.
Auriez-vous la solution ?

Je joins :
- le fichier test,
- Photo du besoin d'affichage de l'image,
- Photo de l'affichage image tronquée,
Avec mes remerciements,
Amicalement,
lionel,

 

[job75]

Bonjour Lionel,

Coller l'image en A1 est la pire des solutions, moi je la collais sur la ligne sélectionnée !!!

Bonne journée.

 

[Usine à gaz]

Bonjour Gérard
Exact mais je préférais la mettre en A1 pour que ma commerciale n'ait pas besoin de la déplacer pour la voir en entier.
Mais si c'est pas possible de l'avoir toujours en entier si elle est en A1, on fera comme tu as fait
lionel,

 

[Usine à gaz]

Re-Bonjour,

Ma demande semble irréalisable en l'état.
En continuant à chercher, j'ai trouvé un fil de 2011 : https://www.excel-downloads.com/thr...sieme-colonne-au-niveau-du-defilement.171819/
Post# de modeste qui pourrait résoudre mon souci :
Fichier test de Modeste joint,
Il intègre l'image dans un UserForm et il devient possible de la positionner où l'on veut etc ...
Je vais voir comment à chaque création d'image elle pourrait être intégrée à l'UserForm (en remplacement de la précédente) pour pouvoir l'afficher en entier.
Je verrai cela ce WE et je reviendrai donner mes résultats,
lionel

 

[job75]

Ma demande semble irréalisable en l'état.

Pas du tout, et je comprends bien que coller en A1 permet d'utiliser toute la hauteur de la feuille.

Alors utilise ces codes :

Sub Image_Clients1()
Dim c As Range, lig&, s As Shape, sr&
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...
sr = ActiveWindow.ScrollRow
Application.Goto [A1], True 'cadrage
ActiveSheet.Paste
Selection.Name = c.Address & " " & sr 'mémorise l'adresse de la cellule active et le Scroll
Selection.OnAction = "Supprimer_Images" 'affecte la macro Suppprimer
ActiveCell.Select 'désélectionne l'image
End Sub

Sub Supprimer_Images()
On Error Resume Next
ActiveWindow.ScrollRow = Split(Application.Caller)(1) 'Scroll d'origine
Range(Split(Application.Caller)(0)).Select 'cellule active d'origine
ActiveSheet.Shapes(Application.Caller).Delete
End Sub

On mémorise dans le nom de l'image l'adresse de la cellule active et le Scroll.

Ton fichier du post #1 en retour.

 

[Usine à gaz]

Re-Gérard,
intarissable lol
Bon sang !! Il faut que je trouve des images pour "imager" mon admiration.
Merci Gérard c'est super nickel (évidemment comme d'hab)
lionel,