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

patricktoulon

XLDnaute Barbatruc

• 24 Novembre 2019

• #2

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

 

Vote positif 0 Vote négatif

A

antoine1251

XLDnaute Nouveau

• 24 Novembre 2019

• #3

Bonjour,

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

Bonne journée.

 

Vote positif 0 Vote négatif

A

antoine1251

XLDnaute Nouveau

• 24 Novembre 2019

• #4

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 ?

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 24 Novembre 2019

• #5

re
ben oui bien évidemment

elle est ou cette image dans le classeur

 

Vote positif 0 Vote négatif

jcf6464

XLDnaute Impliqué

• 24 Novembre 2019

• #6

Bonjour a tous et le forum,

regarde ce lien

Commentaires

Bonne continuation jcf

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 24 Novembre 2019

• #7

re
donne un exemple de fichier ça ira plus vite

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 24 Novembre 2019

• #8

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 ?

 

Pièces jointes

• Copie de essai survol.xlsm

  26 KB · Affichages: 13

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 24 Novembre 2019

• #9

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.

 

Pièces jointes

• Copie de essai survol (V2).xlsm

  84.3 KB · Affichages: 9

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 24 Novembre 2019

• #10

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

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 24 Novembre 2019

• #11

Bonjour Patrick,

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

Cliquez pour agrandir...

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.

 

Vote positif 0 Vote négatif

A

antoine1251

XLDnaute Nouveau

• 24 Novembre 2019

• #12

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

 

Vote positif 0 Vote négatif

A

antoine1251

XLDnaute Nouveau

• 24 Novembre 2019

• #13

patricktoulon à dit:

re
donne un exemple de fichier ça ira plus vite

Cliquez pour agrandir...

Je t'ai joint l'exemple Patrick.

 

Pièces jointes

• SUIVI STOCK EXEMPLE.xlsm

  712.8 KB · Affichages: 8

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 24 Novembre 2019

• #14

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

VB:

'********************************************
'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

VB:

'********************************************
'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

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 24 Novembre 2019

• #15

mais ca reste des solutions bancales ou contraignantes

Cliquez pour agrandir...

Je ne comprends pas ce que vous vouliez dire 🙂😉🙂😉🙂😉

 

Vote positif 0 Vote négatif