Fenêtres "pop-up"

[Mini Vado]

Bonsoir.

Je souhaite dans une feuille excel 2007 que lorsque je passe la souris ou lorsque je clique sur un lien cela me fasse un pop up avec une image qui se mettrait en premier plan.

C'est tout simple, mais je n'ai aucune connaissance en VB (VBA ? Visual BAsic), j'en ai en C, XHTML, donc j'ai quelques notions mais si l'on pouvait me rediriger vers quelque chose que je pourrais pleinement assimiler, ca serait super cool de votre part !

J'ai lu un peu le forum mais je ne connais pas grand chose à excel, je maîtrise comme ca, sans plus(equations, ...) mais jamais de programmation sous excel alors c'est un départ de zéro

Merci à vous, bonne soirée et joyeuses fêtes de fin d'année !

 

[BOISGONTIER]

Re : Fenêtres "pop-up"

Bonsoir,

Affichage image survol cellule

JB

 

[Mini Vado]

Re : Fenêtres "pop-up"

Merci du lien.

Mais je patine. J'ai beau chercher comment nommer un champ, rien que ca je ne trouve pas. Je me suis un peu perdu dans les tableaux croisés dynamiques et VB.

 

[Mini Vado]

Re : Fenêtres "pop-up"

Peut on m'aider ?

Comment est ce que je crée un champ ? --> Nommer le champ B2:B10 (champ)

Où puis-je trouver la boîte à outil "Contrôle" ?

Et tout le code qui est fournit, je le met où ?

Quelqu'un pourrait me faire une liste d'étapes pas à pas où me rediriger vers un lien qui le ferait ? Merci bien.

Dim Xc, Yc
Private Sub Label1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
d = 3
If X < d Or X > Label1.Width - d Or Y < d Or Y > Label1.Height - d Then
Range("champ").Interior.ColorIndex = xlNone
UserForm1.Hide
Else
Hcel = Range("champ").Cells(1, 1).Height
Lcel = Range("champ").Cells(1, 1).Width
Yc = Int(Y / Hcel)
Xc = Int(X / Lcel)
Range("champ").Interior.ColorIndex = xlNone
Range("champ").Cells(1, 1).Offset(Yc, Xc).Interior.ColorIndex = 3
'Range("champ").Cells(1, 1).Offset(Yc, Xc).Select ' optionel
répertoireImage = "c:\mesdoc" ' à adapter
NomImage = Range("champ").Cells(1, 1).Offset(Yc, Xc)
If Dir(répertoireImage & "\" & NomImage & ".jpg") <> "" Then
UserForm1.Image1.Picture = LoadPicture(répertoireImage & "\" & NomImage & ".jpg")
UserForm1.Show
End If
End If
End Sub

Private Sub Label1_Click()
Range("champ").Interior.ColorIndex = xlNone
Range("champ").Cells(1, 1).Offset(Yc, Xc).Select
Range("champ").Cells(1, 1).Offset(Yc, Xc).Interior.ColorIndex = 4
ActiveSheet.Label1.Visible = False
Range("champ").Cells(1, 1).Offset(Yc, Xc).Select
AppActivate "Microsoft Excel"
ActiveSheet.Label1.Width = Range("champ").Width
ActiveSheet.Label1.Height = Range("champ").Height
ActiveSheet.Shapes("label1").Top = Range("champ").Top + 1
ActiveSheet.Shapes("label1").Left = Range("champ").Left + 1
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect([champ], Target) Is Nothing Then
Unload UserForm1
Range("champ").Interior.ColorIndex = xlNone
ActiveSheet.Label1.Visible = True
Else
Range("champ").Interior.ColorIndex = xlNone
ActiveSheet.Label1.Visible = True
End If
End Sub

 

[Mini Vado]

Re : Fenêtres "pop-up"

J'ai trouvé le gestionnaire de noms, et j'ai pu créer le nom champ prenant comme valeur les cases que je voulais.

Impossible de mettre la main sur la bote à outil contrôle....

 

[James007]

Re : Fenêtres "pop-up"

Bonjour,

Quelle est la version d'Excel que tu utilises ...?

A +

 

[Mini Vado]

Re : Fenêtres "pop-up"

je suis sous excel 2007.

Je cherche à faire apparaître une image quand la souris passe sur un nom, rien de plus ^^ (Pour le moment )

Merci.

 

[Pierrot93]

Re : Fenêtres "pop-up"

Bonjour à tous,
Sous 2007, la boite à outils contrôles se trouve sur l'onglet "Développeur" => insérer => contrôles ActiveX

Bonne journée
@+

 

[James007]

Re : Fenêtres "pop-up"

Bonjour à tous,

Le moyen le plus simple pour une image (avec effet mouseover) c'est d'insérer l'image dans le commentaire de la cellule ...
voir fichier test joint


A+

 

[natorp]

Re : Fenêtres "pop-up"

Bjr à tous

James : j'aimerais savoir comment est insérée l'image dans le commentaire, quand je fais "modifier le commentaire", il n'y a rien dedans..

merci, cordialement
Gérard

 

[cerede2000]

Re : Fenêtres "pop-up"

Bonjour,

Il te suffit d'éditer le format du commentaire
Pour cela clique droit sur la cellule, modifier le commentaire, clique droit sur le carde du commentaire puis Format de commentaire. La tu va dans l'onglet Couleurs et traits puis dans couleur et motifs et textures.

Pas évident en effet quand on ne sait pas, car quand on édite le commentaire on ne peut que modifier le format du texte

 

[natorp]

Re : Fenêtres "pop-up"

Merci à vous....
j'apprécie d'en apprendre un peu plus chaque jour....

Gérard

 

[Mini Vado]

Re : Fenêtres "pop-up"

Super, je vous remercie, la solution VBA est de loin la plus complexe ^^'