Bonjour à tous,
J'ai en colonne A, une liste de noms et je voudrais faire apparaître la
photo de chaque personne lorsque le pointeur de la souris passe sur le
nom...
Est-ce possible ? si oui comment faire?
Merci.
Noégor
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Youky
salut Utilise la barre d'outils Visual Basic selectionne et trace Image ..va dans ses propritées picture (choisit la photo) tu fait idem pour toutes les photos Ensuite au lieu de mettre les noms dans les cellules il faut les mettre dans des labels donc, toujours à l'aide de la barre d'outils vb click sur le A et trace les Labels... va dans leurs propritées Caption met le nom; joue aussi sur font ... une fois tes labels fait double clic sur un, et insere le code à modifier selon le nom des feuilles et le N°d'image
Private Sub Label1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) Feuil1.Image1.Picture = Feuil2.Image1.Picture End Sub Private Sub Label2_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) Feuil1.Image1.Picture = Feuil2.Image2.Picture End Sub
Youky "Noegor" a écrit dans le message de news: %
Bonjour à tous, J'ai en colonne A, une liste de noms et je voudrais faire apparaître la photo de chaque personne lorsque le pointeur de la souris passe sur le nom... Est-ce possible ? si oui comment faire? Merci. Noégor
salut
Utilise la barre d'outils Visual Basic
selectionne et trace Image ..va dans ses propritées picture (choisit la
photo)
tu fait idem pour toutes les photos
Ensuite au lieu de mettre les noms dans les cellules il faut les mettre dans
des labels
donc, toujours à l'aide de la barre d'outils vb click sur le A et trace les
Labels...
va dans leurs propritées Caption met le nom; joue aussi sur font ...
une fois tes labels fait double clic sur un, et insere le code à modifier
selon le nom des feuilles et le N°d'image
Private Sub Label1_MouseMove(ByVal Button As Integer, ByVal Shift As
Integer, ByVal X As Single, ByVal Y As Single)
Feuil1.Image1.Picture = Feuil2.Image1.Picture
End Sub
Private Sub Label2_MouseMove(ByVal Button As Integer, ByVal Shift As
Integer, ByVal X As Single, ByVal Y As Single)
Feuil1.Image1.Picture = Feuil2.Image2.Picture
End Sub
Youky
"Noegor" <teleclean@vol.lu> a écrit dans le message de news:
%23ScF6EmTGHA.2156@tk2msftngp13.phx.gbl...
Bonjour à tous,
J'ai en colonne A, une liste de noms et je voudrais faire apparaître la
photo de chaque personne lorsque le pointeur de la souris passe sur le
nom...
Est-ce possible ? si oui comment faire?
Merci.
Noégor
salut Utilise la barre d'outils Visual Basic selectionne et trace Image ..va dans ses propritées picture (choisit la photo) tu fait idem pour toutes les photos Ensuite au lieu de mettre les noms dans les cellules il faut les mettre dans des labels donc, toujours à l'aide de la barre d'outils vb click sur le A et trace les Labels... va dans leurs propritées Caption met le nom; joue aussi sur font ... une fois tes labels fait double clic sur un, et insere le code à modifier selon le nom des feuilles et le N°d'image
Private Sub Label1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) Feuil1.Image1.Picture = Feuil2.Image1.Picture End Sub Private Sub Label2_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) Feuil1.Image1.Picture = Feuil2.Image2.Picture End Sub
Youky "Noegor" a écrit dans le message de news: %
Bonjour à tous, J'ai en colonne A, une liste de noms et je voudrais faire apparaître la photo de chaque personne lorsque le pointeur de la souris passe sur le nom... Est-ce possible ? si oui comment faire? Merci. Noégor
Youky
Oups la suite car J'ai oublié il faut aussi faire une image dans la page ou sont tes noms et mettre aussi la propriété de l'image PictureSizeMode=3 "Youky"
Oups
la suite car
J'ai oublié il faut aussi faire une image dans la page ou sont tes noms et
mettre aussi la propriété de
l'image PictureSizeMode=3
"Youky"
Oups la suite car J'ai oublié il faut aussi faire une image dans la page ou sont tes noms et mettre aussi la propriété de l'image PictureSizeMode=3 "Youky"
JB
Bonjour,
http://cjoint.com/?dxm4CeNRYE
Sur sélection de la cellule qui contient le nom:
Dim témoin Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Column = 1 And Target.Count = 1 And Not IsEmpty(Target) And Not témoin Then témoin = True ChDir ActiveWorkbook.Path On Error Resume Next ActiveSheet.Shapes("monimage").Delete Range("C1").Select monimage = ActiveSheet.Pictures.Insert(Target.Value & ".jpg").Select Selection.Name = "monimage" Target.Select témoin = False End If End Sub
Cordialement JB
Bonjour,
http://cjoint.com/?dxm4CeNRYE
Sur sélection de la cellule qui contient le nom:
Dim témoin
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 1 And Target.Count = 1 And Not IsEmpty(Target) And
Not témoin Then
témoin = True
ChDir ActiveWorkbook.Path
On Error Resume Next
ActiveSheet.Shapes("monimage").Delete
Range("C1").Select
monimage = ActiveSheet.Pictures.Insert(Target.Value &
".jpg").Select
Selection.Name = "monimage"
Target.Select
témoin = False
End If
End Sub
Dim témoin Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Column = 1 And Target.Count = 1 And Not IsEmpty(Target) And Not témoin Then témoin = True ChDir ActiveWorkbook.Path On Error Resume Next ActiveSheet.Shapes("monimage").Delete Range("C1").Select monimage = ActiveSheet.Pictures.Insert(Target.Value & ".jpg").Select Selection.Name = "monimage" Target.Select témoin = False End If End Sub
