Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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

A

antoine1251

XLDnaute Nouveau
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.
 
Trier par date Trier par votes

patricktoulon

XLDnaute Barbatruc
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
Identifiez-vous ou inscrivez-vous pour participer.

Discussions similaires

C
  • Question
Microsoft 365 comment afficher une images dans INCORPORER("Forms.Image.1";"") avec une Clique de la souris
Réponses
1
Affichages
242
fanch55
N
  • Question
XL 2021 Inclure dans mail une image déjà dans le fichier .xlm
Réponses
9
Affichages
224
nano33320
N
E
  • Question
XL 2013 Insérer dans un USF une image qui est dans une feuille
2 3 4
Réponses
50
Affichages
2 K
patricktoulon
  • Question
Microsoft 365 Insérer automatiquement un texte défini dans une cellule, avant ou après une série de chiffres.
Réponses
7
Affichages
369
Brigitte 45
  • Question
XL 2019 Cellule à 0 au lieu de vide dans le formulaire VBA
Réponses
5
Affichages
468
Cousinhub
S
  • Question
XL 2019 Zoom sur image dans un USF
Réponses
2
Affichages
440
Sheldor
S
O
  • Résolu(e)
XL 2016 Transfert de données sous conditions
Réponses
4
Affichages
205
sylvanu
J
  • Question
XL 2019 afficher une image dont l'adresse se trouve dans une cellule
Réponses
3
Affichages
689
Gégé-45550
E
  • Question
XL 2013 Affichage commentaire ou USB au survol de la souris
Réponses
3
Affichages
833
fanch55
  • Résolu(e)
XL 2013 (RESOLU) Affichage des en-têtes de tableau selon l'ordre
2
Réponses
20
Affichages
805
chaelie2015
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…