Microsoft 365 Insérer image déjà présente dans le fichier au survol de la souris

[antoine1251]

Bonjour à tous,

Je souhaite afficher de façon dynamique, c'est à dire au passage de la souris sur le cellule, une image déjà présente dans le fichier.

Mon objectif est de pouvoir afficher en colonne A une image déjà présente en colonne O de la même ligne.

J'ai trouvé des éléments pour afficher dans un commentaire une image présente sur le DD mais ça ne correspond pas exactement à mon besoin. Sauriez-vous m'aider ?

Merci beaucoup.

 

[patricktoulon]

re
Bonjour

les feuilles n'ont pas d’événement mouse move ca n'existe pas
il existe quelques rares astuces mais ca reste des solutions bancales ou contraignantes

 

[antoine1251]

Bonjour,

Merci de ton retour ! je vais réfléchir à tourner la question autrement.

Bonne journée.

 

[antoine1251]

Patrick, si je choisis de plutôt afficher l'image en cliquant dans la cellule ( = la définir comme cellule active ), ai-je une chance d'y arriver ?

 

[patricktoulon]

re
ben oui bien évidemment

elle est ou cette image dans le classeur

 

[jcf6464]

Bonjour a tous et le forum,

regarde ce lien

Commentaires

Bonne continuation jcf

 

[patricktoulon]

re
donne un exemple de fichier ça ira plus vite

 

[sylvanu]

Bonjour le fil
Un fichier qui déclenche une macro au survol d'une cellule. ( kidnappé sur https://forum.excel-pratique.com/viewtopic.php?t=88072 )
Peut être le début d'une solution ?

 

[sylvanu]

Le mêm un peu modifié. Le survol de B2 ou B12 font apparaitre des images.
Brut de fonderie, il y a quelques bugs d'affichage, mais c'est une piste.

 

[patricktoulon]

re
bonsoir sylvanu
quand je disais que les solutions que l'on trouve sont bancales

 

[sylvanu]

Bonjour Patrick,

Brut de fonderie, il y a quelques bugs d'affichage, mais c'est une piste.

C'est ce que j'ai dit.
D'autre part je parle d'une piste. Ca c'est brut de fonderie. 3 min de travail. On peut peut être appronfondir.

 

[antoine1251]

Bonjour à tous et merci de vos nombreuses réponses !! Je teste tout ça ce soir et vous fais un retour. Encore merci.

 

[antoine1251]

re
donne un exemple de fichier ça ira plus vite

Je t'ai joint l'exemple Patrick.

 

[patricktoulon]

tenez j'ai fouillé un peu je le trouvais plus dans mes ".rar "

c'est une base vous fait ce que vous voulez après
donc dans le module thisworkbook

'********************************************
'base mouse move pour sheets sans timer
'patricktoulon sur developpez.com
'date:08/10/2017
'********************************************
Public WithEvents cmbrs As CommandBars
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    If Sh.Name = "Feuil2" Then
        Set cmbrs = Application.CommandBars
        Cmbrs_OnUpdate
    End If
End Sub
'evenement commandbars
Private Sub Cmbrs_OnUpdate()
    Set cell = Getcell_XY
    DoEvents
    Cells(1, 1) = Format(Now, "hh:nn:ss")
    If TypeName(cell) = "Range" Then Cells(1, 2) = cell.Address
    Application.CommandBars.FindControl(ID:=2040).Enabled = Not Application.CommandBars.FindControl(ID:=2040).Enabled
End Sub


Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
    If Sh.Name = "Feuil2" Then Set cmbrs = Nothing
End Sub

dans un module standard

'********************************************
'base mouse move pour sheets sans timer
'patricktoulon sur developpez.com
'date:08/10/2017
'********************************************
Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Type POINTAPI: X As Long: Y As Long: End Type

Public Function Getcell_XY() As Range
    Dim Tampon As POINTAPI
    GetCursorPos Tampon
     Set Getcell_XY = ActiveWindow.RangeFromPoint(Tampon.X, Tampon.Y)
End Function

pas de timer
pas de do/loop
pas de wait bloquant
etc
ici on utilise un événement commandbars on update qui consomme 1 clopinettes et un demi pois chiche

demo

ps: n'est actif que sur feuil2

 

[sylvanu]

mais ca reste des solutions bancales ou contraignantes

Je ne comprends pas ce que vous vouliez dire